git.iko.soy/typeable/pandoc
on master help sign in
EPUB reader: fix images with space in file path.
b87dd19John MacFarlane
src/Text/Pandoc/Readers/EPUB.hs+2−2
compare with master
unifiedsplit
@@ -93,7 +93,7 @@ fetchImages mimes root arc (query iq -> links) =
93 mapM_ (uncurry3 insertMedia) (mapMaybe getEntry links)
93 mapM_ (uncurry3 insertMedia) (mapMaybe getEntry links)
94 where
94 where
95 getEntry link =
95 getEntry link =
96− let abslink = normalise (root </> link) in
96+ let abslink = normalise (unEscapeString (root </> link)) in
97 (link , lookup link mimes, ) . fromEntry
97 (link , lookup link mimes, ) . fromEntry
98 <$> findEntryByPath abslink arc
98 <$> findEntryByPath abslink arc
99
99
@@ -264,7 +264,7 @@ findAttrE :: PandocMonad m => QName -> Element -> m String
264findAttrE q e = mkE "findAttr" $ findAttr q e
264findAttrE q e = mkE "findAttr" $ findAttr q e
265
265
266findEntryByPathE :: PandocMonad m => FilePath -> Archive -> m Entry
266findEntryByPathE :: PandocMonad m => FilePath -> Archive -> m Entry
267−findEntryByPathE (normalise -> path) a =
267+findEntryByPathE (normalise . unEscapeString -> path) a =
268 mkE ("No entry on path: " ++ path) $ findEntryByPath path a
268 mkE ("No entry on path: " ++ path) $ findEntryByPath path a
269
269
270parseXMLDocE :: PandocMonad m => String -> m Element
270parseXMLDocE :: PandocMonad m => String -> m Element