Made markdown writer sensitive to Ext_subscript/superscript/strikeout.

HTML is used if these are disabled.

1 files changed, 9 insertions, 3 deletions

diff --git a/src/Text/Pandoc/Writers/Markdown.hs b/src/Text/Pandoc/Writers/Markdown.hs
index d1c57b4b9..2abbde45b 100644
--- a/src/Text/Pandoc/Writers/Markdown.hs
+++ b/src/Text/Pandoc/Writers/Markdown.hs
@@ -439,15 +439,21 @@ inlineToMarkdown opts (Strong lst) = do
   return $ "**" <> contents <> "**"
 inlineToMarkdown opts (Strikeout lst) = do
   contents <- inlineListToMarkdown opts lst
-  return $ "~~" <> contents <> "~~"
+  return $ if isEnabled Ext_strikeout opts
+              then "~~" <> contents <> "~~"
+              else "<s>" <> contents <> "</s>"
 inlineToMarkdown opts (Superscript lst) = do
   let lst' = bottomUp escapeSpaces lst
   contents <- inlineListToMarkdown opts lst'
-  return $ "^" <> contents <> "^"
+  return $ if isEnabled Ext_superscript opts
+              then "^" <> contents <> "^"
+              else "<sup>" <> contents <> "</sup>"
 inlineToMarkdown opts (Subscript lst) = do
   let lst' = bottomUp escapeSpaces lst
   contents <- inlineListToMarkdown opts lst'
-  return $ "~" <> contents <> "~"
+  return $ if isEnabled Ext_subscript opts
+              then "~" <> contents <> "~"
+              else "<sub>" <> contents <> "</sub>"
 inlineToMarkdown opts (SmallCaps lst) = inlineListToMarkdown opts lst
 inlineToMarkdown opts (Quoted SingleQuote lst) = do
   contents <- inlineListToMarkdown opts lst