ox-confluence.el: Add support for verbatim & code

* contrib/lisp/ox-confluence.el (org-confluence-verbatim,
org-confluence-code): New functions.

Convert org-mode =verbatim= and ~code~ into Confluence {{monospace}}.

TINYCHANGE
This commit is contained in:
Charles Durst 2016-12-05 22:22:53 +01:00 committed by Nicolas Goaziou
parent efe6548611
commit b25dd07bc0
1 changed files with 10 additions and 2 deletions

View File

@ -39,13 +39,14 @@
;; Define the backend itself
(org-export-define-derived-backend 'confluence 'ascii
:translate-alist '((bold . org-confluence-bold)
(code . org-confluence-code)
(example-block . org-confluence-example-block)
(fixed-width . org-confluence-fixed-width)
(footnote-definition . org-confluence-empty)
(footnote-reference . org-confluence-empty)
(headline . org-confluence-headline)
(italic . org-confluence-italic)
(item . org-confluence-item)
(item . org-confluence-item)
(link . org-confluence-link)
(paragraph . org-confluence-paragraph)
(property-drawer . org-confluence-property-drawer)
@ -56,7 +57,8 @@
(table-cell . org-confluence-table-cell)
(table-row . org-confluence-table-row)
(template . org-confluence-template)
(underline . org-confluence-underline)))
(underline . org-confluence-underline)
(verbatim . org-confluence-verbatim)))
(defcustom org-confluence-lang-alist
'(("sh" . "bash"))
@ -86,6 +88,12 @@
(defun org-confluence-fixed-width (fixed-width contents info)
(format "\{\{%s\}\}" contents))
(defun org-confluence-verbatim (verbatim contents info)
(format "\{\{%s\}\}" (org-element-property :value verbatim)))
(defun org-confluence-code (code contents info)
(format "\{\{%s\}\}" (org-element-property :value code)))
(defun org-confluence-headline (headline contents info)
(let ((low-level-rank (org-export-low-level-p headline info))
(text (org-export-data (org-element-property :title headline)