@@ -377,7 +377,7 @@ inlineToMuse (Link _ txt (src, _)) =
377 return $ "[[" <> text (escapeLink x) <> "]]"
377 return $ "[[" <> text (escapeLink x) <> "]]"
378 _ -> do contents <- inlineListToMuse txt
378 _ -> do contents <- inlineListToMuse txt
379 return $ "[[" <> text (escapeLink src) <> "][" <> contents <> "]]"
379 return $ "[[" <> text (escapeLink src) <> "][" <> contents <> "]]"
380− where escapeLink lnk = escapeURI (if isImageUrl lnk then "URL:" ++ lnk else lnk)
380+ where escapeLink lnk = if isImageUrl lnk then "URL:" ++ lnk else lnk
381 -- Taken from muse-image-regexp defined in Emacs Muse file lisp/muse-regexps.el
381 -- Taken from muse-image-regexp defined in Emacs Muse file lisp/muse-regexps.el
382 imageExtensions = [".eps", ".gif", ".jpg", ".jpeg", ".pbm", ".png", ".tiff", ".xbm", ".xpm"]
382 imageExtensions = [".eps", ".gif", ".jpg", ".jpeg", ".pbm", ".png", ".tiff", ".xbm", ".xpm"]
383 isImageUrl = (`elem` imageExtensions) . takeExtension
383 isImageUrl = (`elem` imageExtensions) . takeExtension