Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Markdown writer: use Span instead of (hackish) SmallCaps in plainify.

Browse source
This commit is contained in:
John MacFarlane 2014-07-13 15:14:35 -07:00
parent a7daf29eaf
commit f6b81b2905
1 changed files with 10 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
src/Text/Pandoc/Writers/Markdown.hs
View file

@ -84,18 +84,19 @@ writePlain opts document =
plainify :: Pandoc -> Pandoc plainify :: Pandoc -> Pandoc
plainify = walk go plainify = walk go
where go :: Inline -> Inline where go :: Inline -> Inline
go (Emph xs) = SmallCaps xs go (Emph xs) = Span ("",[],[]) xs
go (Strong xs) = SmallCaps xs go (Strong xs) = Span ("",[],[]) xs
go (Strikeout xs) = SmallCaps xs go (Strikeout xs) = Span ("",[],[]) xs
go (Superscript xs) = SmallCaps xs go (Superscript xs) = Span ("",[],[]) xs
go (Subscript xs) = SmallCaps xs go (Subscript xs) = Span ("",[],[]) xs
go (SmallCaps xs) = SmallCaps xs go (SmallCaps xs) = Span ("",[],[]) xs
go (Span _ xs) = Span ("",[],[]) xs
go (Code _ s) = Str s go (Code _ s) = Str s
go (Math _ s) = Str s go (Math _ s) = Str s
go (RawInline _ _) = Str "" go (RawInline _ _) = Str ""
go (Link xs _) = SmallCaps xs go (Link xs _) = Span ("",[],[]) xs
go (Image xs _) = SmallCaps $ [Str "["] ++ xs ++ [Str "]"] go (Image xs _) = Span ("",[],[]) $ [Str "["] ++ xs ++ [Str "]"]
go (Cite _ cits) = SmallCaps cits go (Cite _ cits) = Span ("",[],[]) cits
go x = x go x = x
pandocTitleBlock :: Doc -> [Doc] -> Doc -> Doc pandocTitleBlock :: Doc -> [Doc] -> Doc -> Doc