Re: Patch for ox-confluence.el

[Paul Schorfheide <pschorf2@gmail.com>]

[-- Attachment #1.1: Type: text/plain, Size: 1624 bytes --]

Thanks for the feedback, Nicolas. I wasn't familiar with defcustom. I made
the two edits and attached an updated patch. I would be happy to maintain
the file in org-mode for now and look into moving it into ELPA.

Thanks
Paul Schorfheide

On Thu, Mar 17, 2016 at 6:23 AM Nicolas Goaziou <mail@nicolasgoaziou.fr>
wrote:

> Hello,
>
> Paul Schorfheide <pschorf2@gmail.com> writes:
>
> > I made a small change to ox-confluence.el to support additional language
> > name mappings. Can someone please review it?
>
> Thank you for the patch.
>
> AFAIU, "ox-confluence.el" doesn't have a maintainer anymore, in case you
> feel like doing the job.
>
> The library could also be moved to ELPA, IMO.
>
> > +(defvar org-confluence-lang-alist
> > +  '(("sh" . "bash"))
> > +  "Map from org-babel language name to confluence wiki language name")
>
> What about making it a defcustom?
>
> >  ;; All the functions we use
> >  (defun org-confluence-bold (bold contents info)
> >    (format "*%s*" contents))
> > @@ -111,8 +115,9 @@
> >  (defun org-confluence-src-block (src-block contents info)
> >    ;; FIXME: provide a user-controlled variable for theme
> >    (let* ((lang (org-element-property :language src-block))
> > -         (language (if (string= lang "sh") "bash" ;; FIXME: provide a
> mapping of some sort
> > -                     lang))
> > +         (language (if (assoc lang org-confluence-lang-alist)
> > +                    (cdr (assoc lang org-confluence-lang-alist))
> > +                       lang))
>
> Nitpick:
>
>   (or (cdr (assoc lang org-confluence-lang-alist) lang))
>
>
> Regards,
>
> --
> Nicolas Goaziou
>

[-- Attachment #1.2: Type: text/html, Size: 2310 bytes --]

[-- Attachment #2: 0001-Add-org-confluence-lang-alist.patch --]
[-- Type: application/octet-stream, Size: 1551 bytes --]

From 2fc5bc3199452506b313d3681672402def2859c6 Mon Sep 17 00:00:00 2001
From: Paul Schorfheide <pschorf2@gmail.com>
Date: Wed, 9 Mar 2016 10:38:46 -0600
Subject: [PATCH] Add org-confluence-lang-alist

* ox-confluence.el (org-confluence-src-block): Add var for mapping
language name

TINYCHANGE
---
 contrib/lisp/ox-confluence.el | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/contrib/lisp/ox-confluence.el b/contrib/lisp/ox-confluence.el
index 4b74e75..48bc5ea 100644
--- a/contrib/lisp/ox-confluence.el
+++ b/contrib/lisp/ox-confluence.el
@@ -58,6 +58,11 @@
 		     (template . org-confluence-template)
 		     (underline . org-confluence-underline)))
 
+(defcustom org-confluence-lang-alist
+  '(("sh" . "bash"))
+  "Map from org-babel language name to confluence wiki language name"
+  :type '(alist :key-type string :value-type string))
+
 ;; All the functions we use
 (defun org-confluence-bold (bold contents info)
   (format "*%s*" contents))
@@ -118,8 +123,7 @@ a communication channel."
 (defun org-confluence-src-block (src-block contents info)
   ;; FIXME: provide a user-controlled variable for theme
   (let* ((lang (org-element-property :language src-block))
-         (language (if (string= lang "sh") "bash" ;; FIXME: provide a mapping of some sort
-                     lang))
+         (language (or (cdr (assoc lang org-confluence-lang-alist)) lang))
          (content (org-export-format-code-default src-block info)))
     (org-confluence--block language "Emacs" content)))
 
-- 
2.5.4 (Apple Git-61)