Recognize images with uppercase extensions

Fixes: #6472
2026-09-24 15:44:59 +08:00 · 2020-06-20 18:14:18 +02:00
parent b907d25fe4
commit f5d7d41cbd
2 changed files with 6 additions and 1 deletions
@@ -26,7 +26,8 @@ import Text.Pandoc.Shared (elemText)
 isImageFilename :: Text -> Bool
 isImageFilename fp = hasImageExtension && (isValid (T.unpack fp) || isKnownProtocolUri)
 where
-   hasImageExtension = takeExtension (T.unpack fp) `elem` imageExtensions
+   hasImageExtension = takeExtension (T.unpack $ T.toLower fp)
+                       `elem` imageExtensions
   isKnownProtocolUri = any (\x -> (x <> "://") `T.isPrefixOf` fp) protocols

   imageExtensions = [ ".jpeg", ".jpg", ".png", ".gif", ".svg" ]