From 005eda2f02d74ffd85cb35370811fda0faadc2d0 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Fri, 19 Dec 2014 11:32:37 -0800 Subject: MediaWiki writer: Fixed links with URL = text. Previously these were rendered as bare words, even if the URL was not an absolute URL. Closes #1825. --- src/Text/Pandoc/Writers/MediaWiki.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Text/Pandoc') diff --git a/src/Text/Pandoc/Writers/MediaWiki.hs b/src/Text/Pandoc/Writers/MediaWiki.hs index 3f392a5d0..4f03ee3bb 100644 --- a/src/Text/Pandoc/Writers/MediaWiki.hs +++ b/src/Text/Pandoc/Writers/MediaWiki.hs @@ -382,7 +382,7 @@ inlineToMediaWiki Space = return " " inlineToMediaWiki (Link txt (src, _)) = do label <- inlineListToMediaWiki txt case txt of - [Str s] | escapeURI s == src -> return src + [Str s] | isURI src && escapeURI s == src -> return src _ -> return $ if isURI src then "[" ++ src ++ " " ++ label ++ "]" else "[[" ++ src' ++ "|" ++ label ++ "]]" -- cgit v1.2.3