6b24b1a · typeable/pandoc

git.iko.soy/typeable/pandoc

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

commit6b24b1afca306c9149c285b60ed36f04fae2ece2 authorJohn MacFarlane <fiddlosopher@gmail.com> dateWed 6 Nov 2013, 09:25 (13 years ago) parentcf0472a

1 file changed+4−1

unifiedsplit

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

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

642642-- | Convert Pandoc inline element to markdown.

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

644644inlineToMarkdown opts (Span attrs ils) = do

645+ st <- get

645646 contents <- inlineListToMarkdown opts ils

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

647+ return $ if stPlain st

648+ then contents

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

647650inlineToMarkdown opts (Emph lst) = do

648651 contents <- inlineListToMarkdown opts lst

649652 return $ "*" <> contents <> "*"