diff options
author | Bastien <bzg@gnu.org> | 2020-05-22 16:36:50 +0200 |
---|---|---|
committer | Bastien <bzg@gnu.org> | 2020-05-22 16:36:50 +0200 |
commit | ceb0ef95fb3303215bfb213d81f2a35a9be7b8f0 (patch) | |
tree | e85665174d69e1b9468ce7b0d47afec5f9c58c73 | |
parent | 47b653450f5eda25786f284e86df5faad21449e2 (diff) | |
download | org-mode-ceb0ef95fb.tar.gz |
contrib/lisp/ox-confluence.el: Fix radio link export
* contrib/lisp/ox-confluence.el (org-confluence-link): Only use
the description when exporting radio links.
Thanks to Karl Voit for reporting this.
-rw-r--r-- | contrib/lisp/ox-confluence.el | 20 |
1 files changed, 11 insertions, 9 deletions
diff --git a/contrib/lisp/ox-confluence.el b/contrib/lisp/ox-confluence.el index b521b24..af23e18 100644 --- a/contrib/lisp/ox-confluence.el +++ b/contrib/lisp/ox-confluence.el @@ -125,15 +125,17 @@ (if (org-string-nw-p contents) contents "")))) (defun org-confluence-link (link desc info) - (let ((raw-link (org-element-property :raw-link link))) - (concat "[" - (when (org-string-nw-p desc) (format "%s|" desc)) - (cond - ((string-match "^confluence:" raw-link) - (replace-regexp-in-string "^confluence:" "" raw-link)) - (t - raw-link)) - "]"))) + (if (string= "radio" (org-element-property :type link)) + desc + (let ((raw-link (org-element-property :raw-link link))) + (concat "[" + (when (org-string-nw-p desc) (format "%s|" desc)) + (cond + ((string-match "^confluence:" raw-link) + (replace-regexp-in-string "^confluence:" "" raw-link)) + (t + raw-link)) + "]")))) (defun org-confluence-paragraph (paragraph contents info) "Transcode PARAGRAPH element for Confluence. |