@@ -33,7 +33,7 @@ import Data.Maybe ( fromMaybe, isNothing )
3333import Data.List ( isPrefixOf, isInfixOf, intercalate )
3434import System.Environment ( getEnv )
3535import Text.Printf (printf)
36−import System.FilePath ( (</>), (<.>), takeBaseName, takeExtension, takeFileName )
36+import System.FilePath ( (</>), takeBaseName, takeExtension, takeFileName )
3737import qualified Data.ByteString.Lazy as B
3838import qualified Data.ByteString.Lazy.Char8 as B8
3939import Text.Pandoc.UTF8 ( fromStringLazy )
@@ -74,15 +74,12 @@ 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"
7977 let mkEntry path content = toEntry path epochtime content
8078 let vars = ("epub3", if epub3 then "true" else "false")
8179 : ("css", "stylesheet.css")
8280 : writerVariables opts
8381 let opts' = opts{ writerEmailObfuscation = NoObfuscation
8482 , writerStandalone = True
85− , writerTemplate = pageTemplate
8683 , writerSectionDivs = True
8784 , writerHtml5 = epub3
8885 , writerTableOfContents = False -- we always have one in epub
@@ -102,7 +99,7 @@ writeEPUB version opts doc@(Pandoc meta _) = do
10299 Just img -> do
103100 let coverImage = "cover-image" ++ takeExtension img
104101 let cpContent = renderHtml $ writeHtml opts'
105− (Pandoc meta [RawBlock "html" $ "<div id=\"cover-image\">\n<img src=\"" ++ coverImage ++ " alt=\"cover image\" />\n</div"])
102+ (Pandoc meta [RawBlock "html" $ "<div id=\"cover-image\">\n<img src=\"" ++ coverImage ++ "\" alt=\"cover image\" />\n</div>"])
106103 imgContent <- B.readFile img
107104 return ( [mkEntry "cover.xhtml" cpContent]
108105 , [mkEntry coverImage imgContent] )
@@ -149,9 +146,7 @@ writeEPUB version opts doc@(Pandoc meta _) = do
149146 let chapToEntry :: Int -> [Block] -> Entry
150147 chapToEntry num bs = mkEntry (showChapter num)
151148 $ renderHtml
152− $ writeHtml opts'{ writerStandalone = True
153− , writerTemplate = pageTemplate
154− }
149+ $ writeHtml opts'
155150 $ case bs of
156151 (Header 1 xs : _) -> Pandoc (Meta xs [] []) bs
157152 _ -> Pandoc (Meta [] [] []) bs