From 927e4b92a6c1ac10d80b587700b2b4dae9956328 Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Fri, 2 Nov 2012 20:57:18 -0700
Subject: EPUB: Use HTML5 for epub3.

---
 src/Text/Pandoc/Writers/EPUB.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'src/Text')

diff --git a/src/Text/Pandoc/Writers/EPUB.hs b/src/Text/Pandoc/Writers/EPUB.hs
index 5d557824f..e9a8b3de7 100644
--- a/src/Text/Pandoc/Writers/EPUB.hs
+++ b/src/Text/Pandoc/Writers/EPUB.hs
@@ -99,6 +99,7 @@ writeEPUB version opts doc@(Pandoc meta _) = do
                        let coverImage = "cover-image" ++ takeExtension img
                        let cpContent = fromStringLazy $ writeHtmlString
                              opts'{writerTemplate = coverImageTemplate,
+                                   writerHtml5 = epub3,
                                    writerVariables = ("coverimage",coverImage):vars}
                                (Pandoc meta [])
                        imgContent <- B.readFile img
@@ -108,6 +109,7 @@ writeEPUB version opts doc@(Pandoc meta _) = do
   -- title page
   let tpContent = fromStringLazy $ writeHtmlString
                      opts'{writerTemplate = titlePageTemplate,
+                           writerHtml5 = epub3,
                            writerVariables = vars}
                      (Pandoc meta [])
   let tpEntry = mkEntry "title_page.xhtml" tpContent
@@ -134,7 +136,8 @@ writeEPUB version opts doc@(Pandoc meta _) = do
   -- so the next two lines fix that:
   let reftable = correlateRefs blocks'
   let blocks'' = replaceRefs reftable blocks'
-  let tags = parseTags $ writeHtmlString opts'{writerStandalone = False}
+  let tags = parseTags $ writeHtmlString opts'{writerStandalone = False,
+                                               writerHtml5 = epub3}
                        $ Pandoc (Meta [] [] []) blocks''
 
   let chunks = partitions (~== TagOpen "h1" []) tags
-- 
cgit v1.2.3