@@ -656,11 +656,11 @@ pandocToEPUB version opts doc = do
656656 ,("media-type","application/xhtml+xml")] ++
657657 [("properties","nav") | epub3 ]) $ ()
658658 ] ++
659− [ unode "item" ! [("id","style"), ("href",fp)
659+ [ unode "item" ! [("id","stylesheet" ++ show n), ("href",fp)
660660 ,("media-type","text/css")] $ () |
661− fp <- map
661+ (n :: Int, fp) <- zip [1..] (map
662662 (makeRelative epubSubdir . eRelativePath)
663− stylesheetEntries ] ++
663+ stylesheetEntries) ] ++
664664 map chapterNode (cpgEntry ++ (tpEntry : chapterEntries)) ++
665665 (case cpicEntry of
666666 [] -> []