@@ -99,6 +99,7 @@ writeEPUB version opts doc@(Pandoc meta _) = do
99 let coverImage = "cover-image" ++ takeExtension img
99 let coverImage = "cover-image" ++ takeExtension img
100 let cpContent = fromStringLazy $ writeHtmlString
100 let cpContent = fromStringLazy $ writeHtmlString
101 opts'{writerTemplate = coverImageTemplate,
101 opts'{writerTemplate = coverImageTemplate,
102+ writerHtml5 = epub3,
102 writerVariables = ("coverimage",coverImage):vars}
103 writerVariables = ("coverimage",coverImage):vars}
103 (Pandoc meta [])
104 (Pandoc meta [])
104 imgContent <- B.readFile img
105 imgContent <- B.readFile img
@@ -108,6 +109,7 @@ writeEPUB version opts doc@(Pandoc meta _) = do
108 -- title page
109 -- title page
109 let tpContent = fromStringLazy $ writeHtmlString
110 let tpContent = fromStringLazy $ writeHtmlString
110 opts'{writerTemplate = titlePageTemplate,
111 opts'{writerTemplate = titlePageTemplate,
112+ writerHtml5 = epub3,
111 writerVariables = vars}
113 writerVariables = vars}
112 (Pandoc meta [])
114 (Pandoc meta [])
113 let tpEntry = mkEntry "title_page.xhtml" tpContent
115 let tpEntry = mkEntry "title_page.xhtml" tpContent
@@ -134,7 +136,8 @@ writeEPUB version opts doc@(Pandoc meta _) = do
134 -- so the next two lines fix that:
136 -- so the next two lines fix that:
135 let reftable = correlateRefs blocks'
137 let reftable = correlateRefs blocks'
136 let blocks'' = replaceRefs reftable blocks'
138 let blocks'' = replaceRefs reftable blocks'
137− let tags = parseTags $ writeHtmlString opts'{writerStandalone = False}
139+ let tags = parseTags $ writeHtmlString opts'{writerStandalone = False,
140+ writerHtml5 = epub3}
138 $ Pandoc (Meta [] [] []) blocks''
141 $ Pandoc (Meta [] [] []) blocks''
140 let chunks = partitions (~== TagOpen "h1" []) tags
143 let chunks = partitions (~== TagOpen "h1" []) tags