@@ -439,15 +439,21 @@ inlineToMarkdown opts (Strong lst) = do
439439 return $ "**" <> contents <> "**"
440440inlineToMarkdown opts (Strikeout lst) = do
441441 contents <- inlineListToMarkdown opts lst
442− return $ "~~" <> contents <> "~~"
442+ return $ if isEnabled Ext_strikeout opts
443+ then "~~" <> contents <> "~~"
444+ else "<s>" <> contents <> "</s>"
443445inlineToMarkdown opts (Superscript lst) = do
444446 let lst' = bottomUp escapeSpaces lst
445447 contents <- inlineListToMarkdown opts lst'
446− return $ "^" <> contents <> "^"
448+ return $ if isEnabled Ext_superscript opts
449+ then "^" <> contents <> "^"
450+ else "<sup>" <> contents <> "</sup>"
447451inlineToMarkdown opts (Subscript lst) = do
448452 let lst' = bottomUp escapeSpaces lst
449453 contents <- inlineListToMarkdown opts lst'
450− return $ "~" <> contents <> "~"
454+ return $ if isEnabled Ext_subscript opts
455+ then "~" <> contents <> "~"
456+ else "<sub>" <> contents <> "</sub>"
451457inlineToMarkdown opts (SmallCaps lst) = inlineListToMarkdown opts lst
452458inlineToMarkdown opts (Quoted SingleQuote lst) = do
453459 contents <- inlineListToMarkdown opts lst