From f5d7d41cbdf02bdca04115bbe527b3a58ff67ea5 Mon Sep 17 00:00:00 2001 From: Albert Krewinkel Date: Sat, 20 Jun 2020 18:14:18 +0200 Subject: Recognize images with uppercase extensions Fixes: #6472 --- src/Text/Pandoc/Readers/Org/Shared.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/Text') diff --git a/src/Text/Pandoc/Readers/Org/Shared.hs b/src/Text/Pandoc/Readers/Org/Shared.hs index 7ddf3738f..3934be6e1 100644 --- a/src/Text/Pandoc/Readers/Org/Shared.hs +++ b/src/Text/Pandoc/Readers/Org/Shared.hs @@ -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" ] -- cgit v1.2.3