lee/pandoc
1
0
Fork 0
mirror of https://github.com/jgm/pandoc.git synced 2026-08-25 09:47:06 +00:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
John MacFarlane
2013-11-06 09:25:50 -08:00
parent cf0472a4c6
commit 6b24b1afca
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Text/Pandoc/Writers/Markdown.hs
+4 -1
View File
@@ -642,8 +642,11 @@ escapeSpaces x = x
-- | Convert Pandoc inline element to markdown.
inlineToMarkdown :: WriterOptions -> Inline -> State WriterState Doc
inlineToMarkdown opts (Span attrs ils) = do
st <- get
contents <- inlineListToMarkdown opts ils
return $ tagWithAttrs "span" attrs <> contents <> text "</span>"
return $ if stPlain st
then contents
else tagWithAttrs "span" attrs <> contents <> text "</span>"
inlineToMarkdown opts (Emph lst) = do
contents <- inlineListToMarkdown opts lst
return $ "*" <> contents <> "*"