Markdown writer: Use span with class 'smallcaps' for SmallCaps.

Instead of a style attribute as before.

See #1592.
This commit is contained in:
John MacFarlane 2017-03-04 14:41:45 +01:00
parent 0795244458
commit 8f20d7d920

View file

@ -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