diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Writers/MediaWiki.hs | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/MediaWiki.hs b/src/Text/Pandoc/Writers/MediaWiki.hs index 5e8cbb095..10823c8db 100644 --- a/src/Text/Pandoc/Writers/MediaWiki.hs +++ b/src/Text/Pandoc/Writers/MediaWiki.hs @@ -117,9 +117,12 @@ blockToMediaWiki (Para inlines) = do tags <- asks useTags lev <- asks listLevel contents <- inlineListToMediaWiki inlines + let initEsc = if startsWithListMarker contents -- #9700 + then "\\" + else "" return $ if tags then "<p>" <> contents <> "</p>" - else contents <> if null lev then "\n" else "" + else initEsc <> contents <> if null lev then "\n" else "" blockToMediaWiki (LineBlock lns) = blockToMediaWiki $ linesToPara lns @@ -1144,3 +1147,9 @@ highlightingLangs = Set.fromList [ "yaml", "yaml+jinja", "zephir" ] + +startsWithListMarker :: Text -> Bool +startsWithListMarker t = + case T.uncons t of + Nothing -> False + Just (c,_) -> c == '#' || c == ':' || c == ';' || c == '*' |