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

Markdown writer: Use span with style for SmallCaps. (#1360)

Browse source
This commit is contained in:
John MacFarlane 2014-07-13 15:21:50 -07:00
parent 9d10df7ff4
commit 92bcd8d298
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -696,7 +696,14 @@ inlineToMarkdown opts (Subscript lst) = do
return $ if isEnabled Ext_subscript opts
then "~" <> contents <> "~"
else "<sub>" <> contents <> "</sub>"
inlineToMarkdown opts (SmallCaps lst) = inlineListToMarkdown opts lst
inlineToMarkdown opts (SmallCaps lst) = do
contents <- inlineListToMarkdown opts lst
st <- get
return $ if stPlain st
then contents
else tagWithAttrs "span"
("",[],[("style","font-variant:small-caps;")])
<> contents <> text "</span>"
inlineToMarkdown opts (Quoted SingleQuote lst) = do
contents <- inlineListToMarkdown opts lst
return $ "‘" <> contents <> "’"