@@ -52,7 +52,6 @@ import qualified Data.Map as M
5252import qualified Data.Set as Set
5353import Data.Maybe (fromMaybe, isNothing)
5454import Data.Text (Text, unpack)
55−import System.FilePath (takeExtension)
5655import Text.HTML.TagSoup
5756import Text.Pandoc.Builder (Blocks, Inlines)
5857import qualified Text.Pandoc.Builder as B
@@ -966,14 +965,13 @@ explicitLink = try $ do
966965image :: PandocMonad m => MuseParser m (F Inlines)
967966image = try $ do
968967 string "[["
969− url <- manyTill anyChar $ char ']'
968+ (url, ext) <- manyUntil (noneOf "]") $ (imageExtension <* char ']')
970969 content <- optionMaybe linkContent
971970 char ']'
972− guard $ isImageUrl url
973− return $ B.image url "" <$> fromMaybe (return mempty) content
971+ return $ B.image (url ++ ext) "" <$> fromMaybe (return mempty) content
974972 where -- Taken from muse-image-regexp defined in Emacs Muse file lisp/muse-regexps.el
975973 imageExtensions = [".eps", ".gif", ".jpg", ".jpeg", ".pbm", ".png", ".tiff", ".xbm", ".xpm"]
976− isImageUrl = (`elem` imageExtensions) . takeExtension
974+ imageExtension = choice (try . string <$> imageExtensions)
977975
978976link :: PandocMonad m => MuseParser m (F Inlines)
979977link = try $ do