Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Markdown writer: Better escaping when +smart.

Browse source
This commit is contained in:
John MacFarlane 2017-02-04 21:06:42 +01:00
parent cb1b0bcba7
commit e0abe18bb9
1 changed files with 21 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

38
src/Text/Pandoc/Writers/Markdown.hs
View file

@ -267,23 +267,27 @@ noteToMarkdown opts num blocks = do
-- | Escape special characters for Markdown. -- | Escape special characters for Markdown.
escapeString :: WriterOptions -> String -> String escapeString :: WriterOptions -> String -> String
escapeString opts = escapeStringUsing markdownEscapes escapeString _ [] = []
where markdownEscapes = ('<', "&lt;") : ('>', "&gt;") : escapeString opts (c:cs) =
backslashEscapes specialChars case c of
specialChars = '<' -> "&lt;" ++ escapeString opts cs
(if isEnabled Ext_superscript opts '>' -> "&gt;" ++ escapeString opts cs
then ('^':) _ | c `elem` ['\\','`','*','_','[',']','#'] ->
else id) . '\\':c:escapeString opts cs
(if isEnabled Ext_subscript opts '^' | isEnabled Ext_superscript opts -> '\\':'^':escapeString opts cs
then ('~':) '~' | isEnabled Ext_subscript opts -> '\\':'~':escapeString opts cs
else id) . '$' | isEnabled Ext_tex_math_dollars opts -> '\\':'$':escapeString opts cs
(if isEnabled Ext_tex_math_dollars opts '\'' | isEnabled Ext_smart opts -> '\\':'\'':escapeString opts cs
then ('$':) '"' | isEnabled Ext_smart opts -> '\\':'"':escapeString opts cs
else id) $ '-' | isEnabled Ext_smart opts ->
"\\`*_[]#" ++ case cs of
if isEnabled Ext_smart opts '-':_ -> '\\':'-':escapeString opts cs
then "\"'" _ -> '-':escapeString opts cs
else "" '.' | isEnabled Ext_smart opts ->
case cs of
'.':'.':rest -> '\\':'.':'.':'.':escapeString opts rest
_ -> '.':escapeString opts cs
_ -> c : escapeString opts cs
-- | Construct table of contents from list of header blocks. -- | Construct table of contents from list of header blocks.
tableOfContents :: PandocMonad m => WriterOptions -> [Block] -> m Doc tableOfContents :: PandocMonad m => WriterOptions -> [Block] -> m Doc