HTML reader: parse <small> as a Span with class "small".

Closes #5080.
jgm · Nov 16, 2018 · e61f632 · e61f632
1 parent e61d1d0
commit e61f632
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 0 deletions.
diff --git 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 <|>

diff --git a/test/command/5080.md b/test/command/5080.md
@@ -4,3 +4,10 @@ pandoc -t asciidoc
 ^D
 [.small .red]#foo _bar_#
 ```
+
+```
+pandoc -f html -t asciidoc
+<small>SMALL</small>
+^D
+[.small]#SMALL#
+```