From e61f63253130480c43d8bb4f4531e83d0384daf5 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Thu, 15 Nov 2018 22:36:01 -0800 Subject: HTML reader: parse `` as a Span with class "small". Closes #5080. --- src/Text/Pandoc/Readers/HTML.hs | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'src/Text/Pandoc') diff --git a/src/Text/Pandoc/Readers/HTML.hs b/src/Text/Pandoc/Readers/HTML.hs index 2876fb8c5..2ae79bebd 100644 --- a/src/Text/Pandoc/Readers/HTML.hs +++ b/src/Text/Pandoc/Readers/HTML.hs @@ -655,6 +655,7 @@ inline = choice , pStrong , pSuperscript , pSubscript + , pSmall , pStrikeout , pUnderline , pLineBreak @@ -718,6 +719,9 @@ pSuperscript = pInlinesInTags "sup" B.superscript pSubscript :: PandocMonad m => TagParser m Inlines pSubscript = pInlinesInTags "sub" B.subscript +pSmall :: PandocMonad m => TagParser m Inlines +pSmall = pInlinesInTags "small" (B.spanWith ("",["small"],[])) + pStrikeout :: PandocMonad m => TagParser m Inlines pStrikeout = pInlinesInTags "s" B.strikeout <|> -- cgit v1.2.3