diff options
| author | ickc <ickc@users.noreply.github.com> | 2016-11-16 02:53:51 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2016-11-16 11:53:51 +0100 |
| commit | e8ce21d614b0a65a1cc1a9d3e41e6e38220875d8 (patch) | |
| tree | e4348aafa6ff2e0d2c8e9660836b8af7620de493 /src/Text | |
| parent | 0dfcedad7ef98dfcfdb2378b7c974bf96b93fbcc (diff) | |
Small caps in Bracketed Spans (#3191)
* Markdown reader: modify bracketedSpan to check small caps
* MANUAL.txt: add description on the use of `bracketed_spans` in small cap
* Improve markdown readers: bracketedSpan function EXACTLY as spanHtml
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index b3459eec0..20a478aa9 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -1764,7 +1764,13 @@ bracketedSpan = try $ do guardEnabled Ext_bracketed_spans (lab,_) <- reference attr <- attributes - return $ B.spanWith attr <$> lab + let (ident,classes,keyvals) = attr + case lookup "style" keyvals of + Just s | null ident && null classes && + map toLower (filter (`notElem` " \t;") s) == + "font-variant:small-caps" + -> return $ B.smallcaps <$> lab + _ -> return $ B.spanWith attr <$> lab regLink :: (Attr -> String -> String -> Inlines -> Inlines) -> F Inlines -> MarkdownParser (F Inlines) |