writeMedia: unescape percent-encoding in creating file path.

Closes #7819 (problem with spaces in image filenames when creating
PDFs).

1 files changed, 3 insertions, 1 deletions

diff --git a/src/Text/Pandoc/Class/IO.hs b/src/Text/Pandoc/Class/IO.hs
index 305f07a01..5d4dbc715 100644
--- a/src/Text/Pandoc/Class/IO.hs
+++ b/src/Text/Pandoc/Class/IO.hs
@@ -214,13 +214,15 @@ extractMedia dir d = do
       return $ walk (adjustImagePath dir media) d
 
 -- | Write the contents of a media bag to a path.
+-- If the path contains URI escape sequences (percent-encoding),
+-- these are resolved.
 writeMedia :: (PandocMonad m, MonadIO m)
            => FilePath
            -> (FilePath, MimeType, BL.ByteString)
            -> m ()
 writeMedia dir (fp, _mt, bs) = do
   -- we normalize to get proper path separators for the platform
-  let fullpath = normalise $ dir </> fp
+  let fullpath = normalise $ dir </> unEscapeString fp
   liftIOError (createDirectoryIfMissing True) (takeDirectory fullpath)
   logIOError $ BL.writeFile fullpath bs