summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2020-02-16 23:33:13 +0100
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2020-02-16 23:33:13 +0100
commit8f6ce817d80f891108d85606de356806a55ac81c (patch)
tree65c100736f723770bd06836ce3bb7ad4237bcadc
parent27e4d7ce487b38428618ed1fb2a6e2a1b59098bc (diff)
downloadorg-mode-8f6ce817d80f891108d85606de356806a55ac81c.tar.gz
ox-html: Fix author meta-data
* lisp/ox-html.el (org-html--build-meta-info): Prevent duplicates in author meta-data.
-rw-r--r--lisp/ox-html.el11
1 files changed, 3 insertions, 8 deletions
diff --git a/lisp/ox-html.el b/lisp/ox-html.el
index 5c22ea7..32f7a7a 100644
--- a/lisp/ox-html.el
+++ b/lisp/ox-html.el
@@ -1853,13 +1853,8 @@ INFO is a plist used as a communication channel."
(title (if (org-string-nw-p title) title "&lrm;"))
(author (and (plist-get info :with-author)
(let ((auth (plist-get info :author)))
- (and auth
- ;; Return raw Org syntax, skipping non
- ;; exportable objects.
- (org-element-interpret-data
- (org-element-map auth
- (cons 'plain-text org-element-all-objects)
- 'identity info))))))
+ ;; Return raw Org syntax.
+ (and auth (org-element-interpret-data auth)))))
(description (plist-get info :description))
(keywords (plist-get info :keywords))
(charset (or (and org-html-coding-system
@@ -1882,7 +1877,7 @@ INFO is a plist used as a communication channel."
charset) "\n"
(let ((viewport-options
(cl-remove-if-not (lambda (cell) (org-string-nw-p (cadr cell)))
- (plist-get info :html-viewport))))
+ (plist-get info :html-viewport))))
(and viewport-options
(concat
(org-html-close-tag