diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-03-04 14:41:45 +0100 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-03-04 14:41:45 +0100 |
| commit | 8f20d7d92091c87e516fe785a323e845578d63f8 (patch) | |
| tree | a71dfc14f4ecd9b2da4a76ccf4e0f6247272155e /src | |
| parent | 0795244458868839cf8135ed20724b8a0b1a173f (diff) | |
| download | pandoc-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')
| -rw-r--r-- | src/Text/Pandoc/Writers/Markdown.hs | 3 |
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 |