summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPaul Schorfheide <pschorf2@gmail.com>2016-03-09 10:38:46 -0600
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2016-04-02 10:56:05 +0200
commitcd47ab7411a9fc8efbef577f25eeb16d00da277a (patch)
tree910910853cc4e307989bd15c69fb103584ef5acf
parent506ff0d76e45e957c53a77adc6ababd96b0f7425 (diff)
downloadorg-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.el8
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)))