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

11
ox-confluence-en.el
View file

@ -81,11 +81,12 @@ https://marketplace.atlassian.com/plugins/de.griffel.confluence.plugins.plant-um
CONTENTS holds the contents of the element. INFO is a plist CONTENTS holds the contents of the element. INFO is a plist
holding contextual information." holding contextual information."
(let* ((text (org-export-data (org-element-property :title headline) (let* ((text (org-export-data (org-element-property :title headline) info))
info)) (todo (org-export-data (org-element-property :todo-keyword headline) info))
(todo (org-export-data (org-element-property :todo-keyword headline) (custom-id (org-export-data (org-element-property :CUSTOM_ID headline) info))
info))
(level (org-export-get-relative-level 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)) (todo-text (if (or (not (plist-get info :with-todo-keywords))
(string= todo "")) (string= todo ""))
"" ""
@ -95,7 +96,7 @@ holding contextual information."
(t "green")))) (t "green"))))
(format "%s " (ox-confluence-en--macro "status" nil `((color . ,status-color) (title . ,todo)))))))) (format "%s " (ox-confluence-en--macro "status" nil `((color . ,status-color) (title . ,todo))))))))
;; Else: Standard headline. ;; 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 "")))) (if (org-string-nw-p contents) contents ""))))
(defun ox-confluence-en-paragraph (paragraph contents info) (defun ox-confluence-en-paragraph (paragraph contents info)