@@ -358,8 +358,9 @@ writeEPUB opts doc@(Pandoc meta _) = do
358 Nothing -> return ([],[])
358 Nothing -> return ([],[])
359 Just img -> do
359 Just img -> do
360 let coverImage = "media/" ++ takeFileName img
360 let coverImage = "media/" ++ takeFileName img
361− let cpContent = renderHtml $ writeHtml opts'
361+ let cpContent = renderHtml $ writeHtml
362+ opts'{ writerVariables = ("coverpage","true"):vars }
362− (Pandoc meta [RawBlock (Format "html") $ "<div id=\"cover-image\">\n<img src=\"" ++ coverImage ++ "\" alt=\"cover image\" />\n</div>"])
363+ (Pandoc meta [RawBlock (Format "html") $ "<div id=\"cover-image\">\n<img src=\"" ++ coverImage ++ "\" alt=\"cover image\" />\n</div>"])
363 imgContent <- B.readFile img
364 imgContent <- B.readFile img
364 return ( [mkEntry "cover.xhtml" cpContent]
365 return ( [mkEntry "cover.xhtml" cpContent]
365 , [mkEntry coverImage imgContent] )
366 , [mkEntry coverImage imgContent] )