git.iko.soy/typeable/pandoc
on master help sign in
Fix strikethrough in gfm writer.
8e53489John MacFarlane
src/Text/Pandoc/Writers/CommonMark.hs+1−1
compare with master
unifiedsplit
@@ -242,7 +242,7 @@ inlineToNodes opts (Emph xs) = (node EMPH (inlinesToNodes opts xs) :)
242inlineToNodes opts (Strong xs) = (node STRONG (inlinesToNodes opts xs) :)
242inlineToNodes opts (Strong xs) = (node STRONG (inlinesToNodes opts xs) :)
243inlineToNodes opts (Strikeout xs) =
243inlineToNodes opts (Strikeout xs) =
244 if isEnabled Ext_strikeout opts
244 if isEnabled Ext_strikeout opts
245− then (node STRIKETHROUGH (inlinesToNodes opts xs) :)
245+ then (node (CUSTOM_INLINE "~~" "~~") (inlinesToNodes opts xs) :)
246 else ((node (HTML_INLINE (T.pack "<s>")) [] : inlinesToNodes opts xs ++
246 else ((node (HTML_INLINE (T.pack "<s>")) [] : inlinesToNodes opts xs ++
247 [node (HTML_INLINE (T.pack "</s>")) []]) ++ )
247 [node (HTML_INLINE (T.pack "</s>")) []]) ++ )
248inlineToNodes opts (Superscript xs) =
248inlineToNodes opts (Superscript xs) =
test/command/4038.mdnew file+6
@@ -0,0 +1,6 @@
1+```
2+% pandoc -f gfm -t gfm
3+# ~~Header~~
4+^D
5+# ~~Header~~
6+```