@@ -99,6 +99,7 @@ writeEPUB version opts doc@(Pandoc meta _) = do
9999 let coverImage = "cover-image" ++ takeExtension img
100100 let cpContent = fromStringLazy $ writeHtmlString
101101 opts'{writerTemplate = coverImageTemplate,
102+ writerHtml5 = epub3,
102103 writerVariables = ("coverimage",coverImage):vars}
103104 (Pandoc meta [])
104105 imgContent <- B.readFile img
@@ -108,6 +109,7 @@ writeEPUB version opts doc@(Pandoc meta _) = do
108109 -- title page
109110 let tpContent = fromStringLazy $ writeHtmlString
110111 opts'{writerTemplate = titlePageTemplate,
112+ writerHtml5 = epub3,
111113 writerVariables = vars}
112114 (Pandoc meta [])
113115 let tpEntry = mkEntry "title_page.xhtml" tpContent
@@ -134,7 +136,8 @@ writeEPUB version opts doc@(Pandoc meta _) = do
134136 -- so the next two lines fix that:
135137 let reftable = correlateRefs blocks'
136138 let blocks'' = replaceRefs reftable blocks'
137− let tags = parseTags $ writeHtmlString opts'{writerStandalone = False}
139+ let tags = parseTags $ writeHtmlString opts'{writerStandalone = False,
140+ writerHtml5 = epub3}
138141 $ Pandoc (Meta [] [] []) blocks''
139142
140143 let chunks = partitions (~== TagOpen "h1" []) tags