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