EPUB writer: add frontmatter type on body element for nav.xhtml.

Closes #6918.
This commit is contained in:
John MacFarlane 2020-12-03 21:24:27 -08:00
parent 5bbd5a9e80
commit 9c6cc79c11

View file

@ -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)