diff --git a/src/Text/Pandoc/Writers/MediaWiki.hs b/src/Text/Pandoc/Writers/MediaWiki.hs index 785c1a602..f8b89eaa7 100644 --- a/src/Text/Pandoc/Writers/MediaWiki.hs +++ b/src/Text/Pandoc/Writers/MediaWiki.hs @@ -458,7 +458,10 @@ inlineToMediaWiki (Str str) = do if inDefLabel then T.intercalate ":" $ map escapeText $ T.splitOn ":" str - else escapeText str + else + (if "://" `T.isInfixOf` str -- see #11834 + then inNowiki + else id) $ escapeText str inlineToMediaWiki (Math mt str) = return $ literal $ " @@ -1169,3 +1172,6 @@ startsWithListMarker t = case T.uncons t of Nothing -> False Just (c,_) -> c == '#' || c == ':' || c == ';' || c == '*' + +inNowiki :: Text -> Text +inNowiki t = "" <> t <> "" diff --git a/test/command/11834.md b/test/command/11834.md new file mode 100644 index 000000000..32c10107d --- /dev/null +++ b/test/command/11834.md @@ -0,0 +1,6 @@ +``` +% pandoc -t mediawiki +http://foo.bar (https://foo.bar.baz) +^D +http://foo.bar (https://foo.bar.baz) +```