diff options
| author | Albert Krewinkel <albert@zeitkraut.de> | 2020-06-20 18:14:18 +0200 |
|---|---|---|
| committer | Albert Krewinkel <albert@zeitkraut.de> | 2020-06-20 18:14:18 +0200 |
| commit | f5d7d41cbdf02bdca04115bbe527b3a58ff67ea5 (patch) | |
| tree | 734712a02aed3d970c15bf810af4833d0053eb77 | |
| parent | b907d25fe43e2b7b9ecfe50c65b2d1f85c079d52 (diff) | |
| download | pandoc-f5d7d41cbdf02bdca04115bbe527b3a58ff67ea5.tar.gz | |
Recognize images with uppercase extensions
Fixes: #6472
| -rw-r--r-- | src/Text/Pandoc/Readers/Org/Shared.hs | 3 | ||||
| -rw-r--r-- | test/Tests/Readers/Org/Inline.hs | 4 |
2 files changed, 6 insertions, 1 deletions
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" ] diff --git a/test/Tests/Readers/Org/Inline.hs b/test/Tests/Readers/Org/Inline.hs index 19a20fd06..85c9a8756 100644 --- a/test/Tests/Readers/Org/Inline.hs +++ b/test/Tests/Readers/Org/Inline.hs @@ -214,6 +214,10 @@ tests = , "[[file:guinea-pig.gif]]" ] =?> para (imageWith ("", [], [("width", "50%")]) "guinea-pig.gif" "" "") + + , "Uppercase extension" =: + "[[file:test.PNG]]" =?> + para (image "test.PNG" "" "") ] , "Explicit link" =: |