diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2020-12-03 21:24:27 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2020-12-03 21:24:27 -0800 |
| commit | 9c6cc79c11d191c74aae8646279a2b94ae253330 (patch) | |
| tree | 667f70f48d54211e8c3cfa461d2ce91ad1a155c2 /src/Text/Pandoc/Writers/EPUB.hs | |
| parent | 5bbd5a9e80c4f4356d71b54315cf75b5ae2f3650 (diff) | |
| download | pandoc-9c6cc79c11d191c74aae8646279a2b94ae253330.tar.gz | |
EPUB writer: add frontmatter type on body element for nav.xhtml.
Closes #6918.
Diffstat (limited to 'src/Text/Pandoc/Writers/EPUB.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/EPUB.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/EPUB.hs b/src/Text/Pandoc/Writers/EPUB.hs index 12004889f..eadd1100f 100644 --- a/src/Text/Pandoc/Writers/EPUB.hs +++ b/src/Text/Pandoc/Writers/EPUB.hs @@ -845,7 +845,9 @@ pandocToEPUB version opts doc = do [ unode "ol" landmarkItems ] | not (null landmarkItems)] navData <- lift $ writeHtml opts'{ writerVariables = - Context (M.fromList [("navpage", toVal' "true")]) + Context (M.fromList [("navpage", toVal' "true") + ,("body-type", toVal' "frontmatter") + ]) <> cssvars False <> vars } (Pandoc (setMeta "title" (walk removeNote $ fromList $ docTitle' meta) nullMeta) |