diff options
-rw-r--r-- | src/Text/Pandoc/Writers/CommonMark.hs | 2 | ||||
-rw-r--r-- | test/command/4038.md | 6 |
2 files changed, 7 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/CommonMark.hs b/src/Text/Pandoc/Writers/CommonMark.hs index e6d297291..8677dd840 100644 --- a/src/Text/Pandoc/Writers/CommonMark.hs +++ b/src/Text/Pandoc/Writers/CommonMark.hs @@ -242,7 +242,7 @@ inlineToNodes opts (Emph xs) = (node EMPH (inlinesToNodes opts xs) :) inlineToNodes opts (Strong xs) = (node STRONG (inlinesToNodes opts xs) :) inlineToNodes opts (Strikeout xs) = if isEnabled Ext_strikeout opts - then (node STRIKETHROUGH (inlinesToNodes opts xs) :) + then (node (CUSTOM_INLINE "~~" "~~") (inlinesToNodes opts xs) :) else ((node (HTML_INLINE (T.pack "<s>")) [] : inlinesToNodes opts xs ++ [node (HTML_INLINE (T.pack "</s>")) []]) ++ ) inlineToNodes opts (Superscript xs) = diff --git a/test/command/4038.md b/test/command/4038.md new file mode 100644 index 000000000..121760540 --- /dev/null +++ b/test/command/4038.md @@ -0,0 +1,6 @@ +``` +% pandoc -f gfm -t gfm +# ~~Header~~ +^D +# ~~Header~~ +``` |