@@ -102,8 +102,7 @@ writeEPUB mbStylesheet opts doc@(Pandoc meta _) = do
102 let chunks = splitByIndices h1Indices blocks
102 let chunks = splitByIndices h1Indices blocks
103 let titleize (Header 1 xs : ys) = Pandoc meta{docTitle = xs} ys
103 let titleize (Header 1 xs : ys) = Pandoc meta{docTitle = xs} ys
104 titleize xs = Pandoc meta xs
104 titleize xs = Pandoc meta xs
105− let chapToHtml = writeHtmlString opts'{ writerTemplate = pageTemplate
105+ let chapToHtml = writeHtmlString opts'{ writerTemplate = pageTemplate }
106− , writerHTMLMathMethod = PlainMath }
107 let chapters = map titleize chunks
106 let chapters = map titleize chunks
108 let chapterToEntry :: Int -> Pandoc -> Entry
107 let chapterToEntry :: Int -> Pandoc -> Entry
109 chapterToEntry num chap = mkEntry ("ch" ++ show num ++ ".xhtml") $
108 chapterToEntry num chap = mkEntry ("ch" ++ show num ++ ".xhtml") $