diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2020-12-27 23:19:14 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2020-12-27 23:19:14 -0800 |
| commit | 99e1b67b74ddcbf7ffc8add640493f73471cf50a (patch) | |
| tree | 8996ddcfe1955f77663bb891ce1f24f653147ed3 /src | |
| parent | 528b67df596feab2f3b80ecce1c9716123a4d8c5 (diff) | |
| download | pandoc-99e1b67b74ddcbf7ffc8add640493f73471cf50a.tar.gz | |
Use meta-description instead of description in templates.
Since this is an attribute value, we need to prepare it
in the writer.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Writers/HTML.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs index 9f9a1013c..c93322953 100644 --- a/src/Text/Pandoc/Writers/HTML.hs +++ b/src/Text/Pandoc/Writers/HTML.hs @@ -254,6 +254,8 @@ pandocToHtml opts (Pandoc meta blocks) = do let stringifyHTML = escapeStringForXML . stringify let authsMeta = map stringifyHTML $ docAuthors meta let dateMeta = stringifyHTML $ docDate meta + let descriptionMeta = escapeStringForXML $ + lookupMetaString "description" meta slideVariant <- gets stSlideVariant let sects = adjustNumbers opts $ makeSections (writerNumberSections opts) Nothing $ @@ -352,6 +354,7 @@ pandocToHtml opts (Pandoc meta blocks) = do defField "author-meta" authsMeta . maybe id (defField "date-meta") (normalizeDate dateMeta) . + defField "description-meta" descriptionMeta . defField "pagetitle" (stringifyHTML . docTitle $ meta) . defField "idprefix" (writerIdentifierPrefix opts) . |