diff options
author | John MacFarlane <jgm@berkeley.edu> | 2018-08-19 10:32:25 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2018-08-19 10:32:25 -0700 |
commit | fb3295cb9e54260b5395afde669aa2a14334592b (patch) | |
tree | b46fc0afdc1f42164dfe11dc2b616508814ad788 | |
parent | cc4753367c503777339eaf889a0aaf514d1ec427 (diff) | |
download | pandoc-fb3295cb9e54260b5395afde669aa2a14334592b.tar.gz |
Markdown writer: escape `~` if strikeout extension enabled.
See #4840.
-rw-r--r-- | src/Text/Pandoc/Writers/Markdown.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Markdown.hs b/src/Text/Pandoc/Writers/Markdown.hs index c07771384..741d11580 100644 --- a/src/Text/Pandoc/Writers/Markdown.hs +++ b/src/Text/Pandoc/Writers/Markdown.hs @@ -298,7 +298,8 @@ escapeString opts (c:cs) = '\\':c:escapeString opts cs '|' | isEnabled Ext_pipe_tables opts -> '\\':'|':escapeString opts cs '^' | isEnabled Ext_superscript opts -> '\\':'^':escapeString opts cs - '~' | isEnabled Ext_subscript opts -> '\\':'~':escapeString opts cs + '~' | isEnabled Ext_subscript opts || + isEnabled Ext_strikeout opts -> '\\':'~':escapeString opts cs '$' | isEnabled Ext_tex_math_dollars opts -> '\\':'$':escapeString opts cs '\'' | isEnabled Ext_smart opts -> '\\':'\'':escapeString opts cs '"' | isEnabled Ext_smart opts -> '\\':'"':escapeString opts cs |