From bbfb6f0c3cda85588ae6a309a3402a48275e3b21 Mon Sep 17 00:00:00 2001 From: Alexander Krotov Date: Sat, 30 Dec 2017 17:37:06 +0300 Subject: Muse writer: don't escape URIs from AST --- src/Text/Pandoc/Writers/Muse.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Text/Pandoc/Writers/Muse.hs b/src/Text/Pandoc/Writers/Muse.hs index 34936504e..ff393e574 100644 --- a/src/Text/Pandoc/Writers/Muse.hs +++ b/src/Text/Pandoc/Writers/Muse.hs @@ -377,7 +377,7 @@ inlineToMuse (Link _ txt (src, _)) = return $ "[[" <> text (escapeLink x) <> "]]" _ -> do contents <- inlineListToMuse txt return $ "[[" <> text (escapeLink src) <> "][" <> contents <> "]]" - where escapeLink lnk = escapeURI (if isImageUrl lnk then "URL:" ++ lnk else lnk) + where escapeLink lnk = if isImageUrl lnk then "URL:" ++ lnk else lnk -- Taken from muse-image-regexp defined in Emacs Muse file lisp/muse-regexps.el imageExtensions = [".eps", ".gif", ".jpg", ".jpeg", ".pbm", ".png", ".tiff", ".xbm", ".xpm"] isImageUrl = (`elem` imageExtensions) . takeExtension -- cgit v1.2.3