summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien <bzg@gnu.org>2020-05-22 16:36:50 +0200
committerBastien <bzg@gnu.org>2020-05-22 16:36:50 +0200
commitceb0ef95fb3303215bfb213d81f2a35a9be7b8f0 (patch)
treee85665174d69e1b9468ce7b0d47afec5f9c58c73
parent47b653450f5eda25786f284e86df5faad21449e2 (diff)
downloadorg-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.el20
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.