@@ -845,7 +845,9 @@ pandocToEPUB version opts doc = do
845845 [ unode "ol" landmarkItems ]
846846 | not (null landmarkItems)]
847847 navData <- lift $ writeHtml opts'{ writerVariables =
848− Context (M.fromList [("navpage", toVal' "true")])
848+ Context (M.fromList [("navpage", toVal' "true")
849+ ,("body-type", toVal' "frontmatter")
850+ ])
849851 <> cssvars False <> vars }
850852 (Pandoc (setMeta "title"
851853 (walk removeNote $ fromList $ docTitle' meta) nullMeta)