diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2020-02-16 23:33:13 +0100 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2020-02-16 23:33:13 +0100 |
commit | 8f6ce817d80f891108d85606de356806a55ac81c (patch) | |
tree | 65c100736f723770bd06836ce3bb7ad4237bcadc | |
parent | 27e4d7ce487b38428618ed1fb2a6e2a1b59098bc (diff) | |
download | org-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.el | 11 |
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 "‎")) (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 |