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 ++++ test/command/5080.md | 7 +++++++ 2 files changed, 11 insertions(+) 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 +^D +[.small]#SMALL# +``` -- cgit v1.2.3