diff options
author | Paul Schorfheide <pschorf2@gmail.com> | 2016-03-09 10:38:46 -0600 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-04-02 10:56:05 +0200 |
commit | cd47ab7411a9fc8efbef577f25eeb16d00da277a (patch) | |
tree | 910910853cc4e307989bd15c69fb103584ef5acf | |
parent | 506ff0d76e45e957c53a77adc6ababd96b0f7425 (diff) | |
download | org-mode-cd47ab7411a9fc8efbef577f25eeb16d00da277a.tar.gz |
ox-confluence: Add `org-confluence-lang-alist'
* ox-confluence.el (org-confluence-src-block): Add var for mapping
language name.
TINYCHANGE
-rw-r--r-- | contrib/lisp/ox-confluence.el | 8 |
1 files 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))) |