6b24b1a · typeable/pandoc

git.iko.soy/typeable/pandoc

on master help sign in

Don't print `<span>` tags in 'plain' output.

6b24b1aJohn MacFarlane13 years ago

src/Text/Pandoc/Writers/Markdown.hs+4−1

@@ -642,8 +642,11 @@ escapeSpaces x = x

642-- | Convert Pandoc inline element to markdown.

643inlineToMarkdown :: WriterOptions -> Inline -> State WriterState Doc

644inlineToMarkdown opts (Span attrs ils) = do

645+ st <- get

645 contents <- inlineListToMarkdown opts ils

646 contents <- inlineListToMarkdown opts ils

647+ return $ if stPlain st

648+ then contents

646− return $ tagWithAttrs "span" attrs <> contents <> text "</span>"

649+ else tagWithAttrs "span" attrs <> contents <> text "</span>"

647inlineToMarkdown opts (Emph lst) = do

650inlineToMarkdown opts (Emph lst) = do

648 contents <- inlineListToMarkdown opts lst

651 contents <- inlineListToMarkdown opts lst

649 return $ "*" <> contents <> "*"

652 return $ "*" <> contents <> "*"