@@ -440,7 +440,7 @@ writeEPUB opts doc@(Pandoc meta _) = do
440 xs -> [("properties", unwords xs)])
440 xs -> [("properties", unwords xs)])
442 let chapterRefNode ent = unode "itemref" !
442 let chapterRefNode ent = unode "itemref" !
443− [("idref", takeFileName $ eRelativePath ent)] $ ()
443+ [("idref", toId $ eRelativePath ent)] $ ()
444 let pictureNode ent = unode "item" !
444 let pictureNode ent = unode "item" !
445 [("id", toId $ eRelativePath ent),
445 [("id", toId $ eRelativePath ent),
446 ("href", eRelativePath ent),
446 ("href", eRelativePath ent),
@@ -488,8 +488,8 @@ writeEPUB opts doc@(Pandoc meta _) = do
488 case epubCoverImage metadata of
488 case epubCoverImage metadata of
489 Nothing -> []
489 Nothing -> []
490 Just _ -> [ unode "itemref" !
490 Just _ -> [ unode "itemref" !
491− [("idref", "cover"),("linear","no")] $ () ]
491+ [("idref", "cover_xhtml"),("linear","no")] $ () ]
492− ++ ((unode "itemref" ! [("idref", "title_page")
492+ ++ ((unode "itemref" ! [("idref", "title_page_xhtml")
493 ,("linear", if null (docTitle meta)
493 ,("linear", if null (docTitle meta)
494 then "no"
494 then "no"
495 else "yes")] $ ()) :
495 else "yes")] $ ()) :