aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Writers
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2017-03-04 14:41:45 +0100
committerJohn MacFarlane <jgm@berkeley.edu>2017-03-04 14:41:45 +0100
commit8f20d7d92091c87e516fe785a323e845578d63f8 (patch)
treea71dfc14f4ecd9b2da4a76ccf4e0f6247272155e /src/Text/Pandoc/Writers
parent0795244458868839cf8135ed20724b8a0b1a173f (diff)
downloadpandoc-8f20d7d92091c87e516fe785a323e845578d63f8.tar.gz
Markdown writer: Use span with class 'smallcaps' for SmallCaps.
Instead of a style attribute as before. See #1592.
Diffstat (limited to 'src/Text/Pandoc/Writers')
-rw-r--r--src/Text/Pandoc/Writers/Markdown.hs3
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/Markdown.hs b/src/Text/Pandoc/Writers/Markdown.hs
index e5b3b5001..d34ccb0f6 100644
--- a/src/Text/Pandoc/Writers/Markdown.hs
+++ b/src/Text/Pandoc/Writers/Markdown.hs
@@ -973,8 +973,7 @@ inlineToMarkdown opts (SmallCaps lst) = do
(isEnabled Ext_raw_html opts || isEnabled Ext_native_spans opts)
then do
contents <- inlineListToMarkdown opts lst
- return $ tagWithAttrs "span"
- ("",[],[("style","font-variant:small-caps;")])
+ return $ tagWithAttrs "span" ("",["smallcaps"],[])
<> contents <> text "</span>"
else inlineListToMarkdown opts $ capitalize lst
inlineToMarkdown opts (Quoted SingleQuote lst) = do