github/ox-confluence-en
1
0
Fork 0
mirror of https://github.com/correl/ox-confluence-en.git synced 2024-11-23 11:09:54 +00:00
Code Issues Projects Releases Packages Wiki Activity

Export CUSTOM_ID property as anchor macro

Browse source
This commit is contained in:
Stanley Jaddoe 2021-01-21 17:22:38 +01:00 committed by Correl
parent 093cdc2e07
commit 9bdf5aba9e
1 changed files with 10 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
ox-confluence-en.el
View file

@ -81,21 +81,22 @@ https://marketplace.atlassian.com/plugins/de.griffel.confluence.plugins.plant-um
CONTENTS holds the contents of the element. INFO is a plist
holding contextual information."
(let* ((text (org-export-data (org-element-property :title headline)
info))
(todo (org-export-data (org-element-property :todo-keyword headline)
info))
(level (org-export-get-relative-level headline info))
(todo-text (if (or (not (plist-get info :with-todo-keywords))
(string= todo ""))
""
(let* ((text (org-export-data (org-element-property :title headline) info))
(todo (org-export-data (org-element-property :todo-keyword headline) info))
(custom-id (org-export-data (org-element-property :CUSTOM_ID headline) info))
(level (org-export-get-relative-level headline info))
(anchor (if (string= custom-id "") ""
(format "{anchor:%s}\n" custom-id)))
(todo-text (if (or (not (plist-get info :with-todo-keywords))
(string= todo ""))
""
(let* ((todo-type (org-element-property :todo-type headline))
(status-color (cond
((equal todo-type 'todo) "red")
(t "green"))))
(format "%s " (ox-confluence-en--macro "status" nil `((color . ,status-color) (title . ,todo))))))))
;; Else: Standard headline.
(format "h%s. %s%s\n%s" level todo-text text
(format "%sh%s. %s%s\n%s" anchor level todo-text text
(if (org-string-nw-p contents) contents ""))))
(defun ox-confluence-en-paragraph (paragraph contents info)