@@ -439,15 +439,21 @@ inlineToMarkdown opts (Strong lst) = do
439 return $ "**" <> contents <> "**"
439 return $ "**" <> contents <> "**"
440inlineToMarkdown opts (Strikeout lst) = do
440inlineToMarkdown opts (Strikeout lst) = do
441 contents <- inlineListToMarkdown opts lst
441 contents <- inlineListToMarkdown opts lst
442+ return $ if isEnabled Ext_strikeout opts
442− return $ "~~" <> contents <> "~~"
443+ then "~~" <> contents <> "~~"
444+ else "<s>" <> contents <> "</s>"
443inlineToMarkdown opts (Superscript lst) = do
445inlineToMarkdown opts (Superscript lst) = do
444 let lst' = bottomUp escapeSpaces lst
446 let lst' = bottomUp escapeSpaces lst
445 contents <- inlineListToMarkdown opts lst'
447 contents <- inlineListToMarkdown opts lst'
448+ return $ if isEnabled Ext_superscript opts
446− return $ "^" <> contents <> "^"
449+ then "^" <> contents <> "^"
450+ else "<sup>" <> contents <> "</sup>"
447inlineToMarkdown opts (Subscript lst) = do
451inlineToMarkdown opts (Subscript lst) = do
448 let lst' = bottomUp escapeSpaces lst
452 let lst' = bottomUp escapeSpaces lst
449 contents <- inlineListToMarkdown opts lst'
453 contents <- inlineListToMarkdown opts lst'
454+ return $ if isEnabled Ext_subscript opts
450− return $ "~" <> contents <> "~"
455+ then "~" <> contents <> "~"
456+ else "<sub>" <> contents <> "</sub>"
451inlineToMarkdown opts (SmallCaps lst) = inlineListToMarkdown opts lst
457inlineToMarkdown opts (SmallCaps lst) = inlineListToMarkdown opts lst
452inlineToMarkdown opts (Quoted SingleQuote lst) = do
458inlineToMarkdown opts (Quoted SingleQuote lst) = do
453 contents <- inlineListToMarkdown opts lst
459 contents <- inlineListToMarkdown opts lst