@@ -95,9 +95,6 @@ writeEPUB version opts doc@(Pandoc meta _) = do
9595 let sourceDir = writerSourceDirectory opts'
9696 let mbCoverImage = lookup "epub-cover-image" vars
9797
98− titlePageTemplate <- readDataFile (writerUserDataDir opts')
99− $ "templates" </> "epub-titlepage" <.> "html"
100−
10198 -- cover page
10299 (cpgEntry, cpicEntry) <-
103100 case mbCoverImage of
@@ -111,11 +108,9 @@ writeEPUB version opts doc@(Pandoc meta _) = do
111108 , [mkEntry coverImage imgContent] )
112109
113110 -- title page
114− let tpContent = fromStringLazy $ writeHtmlString
115− opts'{writerTemplate = titlePageTemplate,
116− writerHtml5 = epub3,
117− writerVariables = vars}
118− (Pandoc meta [])
111+ let tpContent = renderHtml $ writeHtml opts'{
112+ writerVariables = ("titlepage","true"):vars }
113+ (Pandoc meta [])
119114 let tpEntry = mkEntry "title_page.xhtml" tpContent
120115
121116 -- handle pictures