@@ -74,12 +74,15 @@ writeEPUB :: EPUBVersion
7474writeEPUB version opts doc@(Pandoc meta _) = do
7575 let epub3 = version == EPUB3
7676 epochtime <- floor `fmap` getPOSIXTime
77+ pageTemplate <- readDataFile (writerUserDataDir opts)
78+ $ "templates" </> "epub-page" <.> "html"
7779 let mkEntry path content = toEntry path epochtime content
7880 let vars = ("epub3", if epub3 then "true" else "false")
7981 : ("css", "stylesheet.css")
8082 : writerVariables opts
8183 let opts' = opts{ writerEmailObfuscation = NoObfuscation
8284 , writerStandalone = True
85+ , writerTemplate = pageTemplate
8386 , writerSectionDivs = True
8487 , writerHtml5 = epub3
8588 , writerTableOfContents = False -- we always have one in epub
@@ -95,23 +98,14 @@ writeEPUB version opts doc@(Pandoc meta _) = do
9598 titlePageTemplate <- readDataFile (writerUserDataDir opts')
9699 $ "templates" </> "epub-titlepage" <.> "html"
97100
98− coverImageTemplate <- readDataFile (writerUserDataDir opts')
99− $ "templates" </> "epub-coverimage" <.> "html"
100−
101− pageTemplate <- readDataFile (writerUserDataDir opts')
102− $ "templates" </> "epub-page" <.> "html"
103−
104101 -- cover page
105102 (cpgEntry, cpicEntry) <-
106103 case mbCoverImage of
107104 Nothing -> return ([],[])
108105 Just img -> do
109106 let coverImage = "cover-image" ++ takeExtension img
110− let cpContent = fromStringLazy $ writeHtmlString
111− opts'{writerTemplate = coverImageTemplate,
112− writerHtml5 = epub3,
113− writerVariables = ("coverimage",coverImage):vars}
114− (Pandoc meta [])
107+ let cpContent = renderHtml $ writeHtml opts'
108+ (Pandoc meta [RawBlock "html" $ "<div id=\"cover-image\">\n<img src=\"" ++ coverImage ++ " alt=\"cover image\" />\n</div"])
115109 imgContent <- B.readFile img
116110 return ( [mkEntry "cover.xhtml" cpContent]
117111 , [mkEntry coverImage imgContent] )