From 9d52ecdd422a6821c9f37f53e3d30d4be4e41e8f Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sat, 16 Aug 2014 22:57:00 -0700
Subject: HTML reader: Parse appropriately styled span as SmallCaps.
---
src/Text/Pandoc/Readers/HTML.hs | 7 ++++++-
1 file changed, 6 insertions(+), 1 deletion(-)
(limited to 'src/Text')
diff --git a/src/Text/Pandoc/Readers/HTML.hs b/src/Text/Pandoc/Readers/HTML.hs
index cee7ea300..bd60a74fa 100644
--- a/src/Text/Pandoc/Readers/HTML.hs
+++ b/src/Text/Pandoc/Readers/HTML.hs
@@ -570,7 +570,12 @@ pSpan = try $ do
guardEnabled Ext_native_spans
TagOpen _ attr <- lookAhead $ pSatisfy $ tagOpen (=="span") (const True)
contents <- pInTags "span" inline
- return $ B.spanWith (mkAttr attr) contents
+ let attr' = mkAttr attr
+ return $ case attr' of
+ ("",[],[("style",s)])
+ | filter (`notElem` " \t;") s == "font-variant:small-caps" ->
+ B.smallcaps contents
+ _ -> B.spanWith (mkAttr attr) contents
pRawHtmlInline :: TagParser Inlines
pRawHtmlInline = do
--
cgit v1.2.3