diff options
-rw-r--r-- | src/Text/Pandoc/Readers/HTML.hs | 4 | ||||
-rw-r--r-- | test/command/5080.md | 7 |
2 files changed, 11 insertions, 0 deletions
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 <|> diff --git a/test/command/5080.md b/test/command/5080.md index cd191eb98..c9e9a2971 100644 --- 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# +``` |