diff options
author | Alexander Krotov <ilabdsf@gmail.com> | 2017-12-30 17:37:06 +0300 |
---|---|---|
committer | Alexander Krotov <ilabdsf@gmail.com> | 2017-12-30 20:32:16 +0300 |
commit | bbfb6f0c3cda85588ae6a309a3402a48275e3b21 (patch) | |
tree | 115c152dc8deb8d705c37a2a0fa583638f682ee5 | |
parent | 4fc3f511863c578be6a3237d02133da25db0ce05 (diff) | |
download | pandoc-bbfb6f0c3cda85588ae6a309a3402a48275e3b21.tar.gz |
Muse writer: don't escape URIs from AST
-rw-r--r-- | src/Text/Pandoc/Writers/Muse.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |