From c69827145c437d507c87e547bc554851b964d7b8 Mon Sep 17 00:00:00 2001 From: Paul Schorfheide 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 | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/contrib/lisp/ox-confluence.el b/contrib/lisp/ox-confluence.el index 9b96d5f..d4a26bf 100644 --- a/contrib/lisp/ox-confluence.el +++ b/contrib/lisp/ox-confluence.el @@ -57,6 +57,10 @@ (template . org-confluence-template) (underline . org-confluence-underline))) +(defvar org-confluence-lang-alist + '(("sh" . "bash")) + "Map from org-babel language name to confluence wiki language name") + ;; 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)) (content (org-export-format-code-default src-block info))) (org-confluence--block language "Emacs" content))) -- 2.5.4 (Apple Git-61)