Merge pull request #477 from eclig/bugfix/extract-data-before-formatting

Properly extract data before formatting
This commit is contained in:
Yujie Wen 2022-04-10 23:33:05 +08:00 committed by GitHub
commit 862b41df77
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 4 additions and 4 deletions

View File

@ -1346,7 +1346,7 @@ contextual information."
"Generate the automatic title slide template." "Generate the automatic title slide template."
(let* ((spec (org-html-format-spec info)) (let* ((spec (org-html-format-spec info))
(title (org-export-data (plist-get info :title) info)) (title (org-export-data (plist-get info :title) info))
(subtitle (plist-get info :subtitle)) (subtitle (cdr (assq ?s spec)))
(author (cdr (assq ?a spec))) (author (cdr (assq ?a spec)))
(email (cdr (assq ?e spec))) (email (cdr (assq ?e spec)))
(date (cdr (assq ?d spec)))) (date (cdr (assq ?d spec))))
@ -1380,9 +1380,9 @@ info is a plist holding export options."
(if-format " lang=\"%s\"" (plist-get info :language))) (if-format " lang=\"%s\"" (plist-get info :language)))
"<meta charset=\"utf-8\"/>\n" "<meta charset=\"utf-8\"/>\n"
(if-format "<title>%s</title>\n" (org-export-data (plist-get info :title) info)) (if-format "<title>%s</title>\n" (org-export-data (plist-get info :title) info))
(if-format "<meta name=\"author\" content=\"%s\"/>\n" (plist-get info :author)) (if-format "<meta name=\"author\" content=\"%s\"/>\n" (org-export-data (plist-get info :author) info))
(if-format "<meta name=\"description\" content=\"%s\"/>\n" (plist-get info :description)) (if-format "<meta name=\"description\" content=\"%s\"/>\n" (org-export-data (plist-get info :description) info))
(if-format "<meta name=\"keywords\" content=\"%s\"/>\n" (plist-get info :keywords)) (if-format "<meta name=\"keywords\" content=\"%s\"/>\n" (org-export-data (plist-get info :keywords) info))
(org-reveal-stylesheets info) (org-reveal-stylesheets info)
(org-reveal-mathjax-scripts info) (org-reveal-mathjax-scripts info)
(org-reveal--build-pre/postamble 'head-preamble info) (org-reveal--build-pre/postamble 'head-preamble info)