diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-03-04 14:46:54 +0100 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-03-04 14:46:54 +0100 |
| commit | aa5ae5ff0f19a3ad1739fe4afa0b26f05a5966b4 (patch) | |
| tree | 0a971774da0906ca37e6640b713e98ef9c55b85b /src/Text | |
| parent | b64211a547abf8e454b01e0b79cd18d689f1f3bc (diff) | |
| download | pandoc-aa5ae5ff0f19a3ad1739fe4afa0b26f05a5966b4.tar.gz | |
HTML writer: Render SmallCaps as span with smallcaps class.
Rather than using a style attribute directly.
This gives the user more flexibility in styling small caps
in CSS.
See #1592.
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Writers/HTML.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs index 6a5c4e43a..1796b6481 100644 --- a/src/Text/Pandoc/Writers/HTML.hs +++ b/src/Text/Pandoc/Writers/HTML.hs @@ -880,7 +880,7 @@ inlineToHtml opts inline = do (Strikeout lst) -> inlineListToHtml opts lst >>= return . H.del (SmallCaps lst) -> inlineListToHtml opts lst >>= - return . (H.span ! A.style "font-variant: small-caps;") + return . (H.span ! A.class_ "smallcaps") (Superscript lst) -> inlineListToHtml opts lst >>= return . H.sup (Subscript lst) -> inlineListToHtml opts lst >>= return . H.sub (Quoted quoteType lst) -> |