From 83b326b005c3917cee9a475bbac00462cd5ffe5a Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Sun, 4 Nov 2012 21:08:40 -0800 Subject: EPUB: removed need for separate epub-titlepage template. The titlepage stuff is now folded into the epub-page template. A titlepage variable selects it. --- src/Text/Pandoc/Writers/EPUB.hs | 11 +++-------- 1 file changed, 3 insertions(+), 8 deletions(-) (limited to 'src') diff --git a/src/Text/Pandoc/Writers/EPUB.hs b/src/Text/Pandoc/Writers/EPUB.hs index dabb9722b..ec51253e7 100644 --- a/src/Text/Pandoc/Writers/EPUB.hs +++ b/src/Text/Pandoc/Writers/EPUB.hs @@ -95,9 +95,6 @@ writeEPUB version opts doc@(Pandoc meta _) = do let sourceDir = writerSourceDirectory opts' let mbCoverImage = lookup "epub-cover-image" vars - titlePageTemplate <- readDataFile (writerUserDataDir opts') - $ "templates" "epub-titlepage" <.> "html" - -- cover page (cpgEntry, cpicEntry) <- case mbCoverImage of @@ -111,11 +108,9 @@ writeEPUB version opts doc@(Pandoc meta _) = do , [mkEntry coverImage imgContent] ) -- title page - let tpContent = fromStringLazy $ writeHtmlString - opts'{writerTemplate = titlePageTemplate, - writerHtml5 = epub3, - writerVariables = vars} - (Pandoc meta []) + let tpContent = renderHtml $ writeHtml opts'{ + writerVariables = ("titlepage","true"):vars } + (Pandoc meta []) let tpEntry = mkEntry "title_page.xhtml" tpContent -- handle pictures -- cgit v1.2.3