From b6ab2d3cb895fdabb519d16e83a39f8e4d789d1c Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Thu, 2 Aug 2012 21:40:54 -0700
Subject: Made markdown writer sensitive to
 Ext_subscript/superscript/strikeout.

HTML is used if these are disabled.
---
 src/Text/Pandoc/Writers/Markdown.hs | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

(limited to 'src/Text/Pandoc/Writers')

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
-- 
cgit v1.2.3