@@ -79,17 +79,7 @@ writeMarkdown opts document =
7979-- pictures, or inline formatting).
8080writePlain :: WriterOptions -> Pandoc -> String
8181writePlain opts document =
82− evalState (pandocToMarkdown opts{
83− writerExtensions = Set.delete Ext_escaped_line_breaks $
84− Set.delete Ext_pipe_tables $
85− Set.delete Ext_raw_html $
86− Set.delete Ext_markdown_in_html_blocks $
87− Set.delete Ext_raw_tex $
88− Set.delete Ext_footnotes $
89− Set.delete Ext_tex_math_dollars $
90− Set.delete Ext_citations $
91− writerExtensions opts }
92− document) def{ stPlain = True }
82+ evalState (pandocToMarkdown opts document) def{ stPlain = True }
9383
9484pandocTitleBlock :: Doc -> [Doc] -> Doc -> Doc
9585pandocTitleBlock tit auths dat =
@@ -774,17 +764,23 @@ inlineToMarkdown opts (Strikeout lst) = do
774764 contents <- inlineListToMarkdown opts lst
775765 return $ if isEnabled Ext_strikeout opts
776766 then "~~" <> contents <> "~~"
777− else "<s>" <> contents <> "</s>"
767+ else if isEnabled Ext_raw_html opts
768+ then "<s>" <> contents <> "</s>"
769+ else contents
778770inlineToMarkdown opts (Superscript lst) = do
779771 contents <- inlineListToMarkdown opts $ walk escapeSpaces lst
780772 return $ if isEnabled Ext_superscript opts
781773 then "^" <> contents <> "^"
782− else "<sup>" <> contents <> "</sup>"
774+ else if isEnabled Ext_raw_html opts
775+ then "<sup>" <> contents <> "</sup>"
776+ else contents
783777inlineToMarkdown opts (Subscript lst) = do
784778 contents <- inlineListToMarkdown opts $ walk escapeSpaces lst
785779 return $ if isEnabled Ext_subscript opts
786780 then "~" <> contents <> "~"
787− else "<sub>" <> contents <> "</sub>"
781+ else if isEnabled Ext_raw_html opts
782+ then "<sub>" <> contents <> "</sub>"
783+ else contents
788784inlineToMarkdown opts (SmallCaps lst) = do
789785 plain <- gets stPlain
790786 if not plain &&