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