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