diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2018-11-15 22:36:01 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2018-11-15 22:36:01 -0800 |
| commit | e61f63253130480c43d8bb4f4531e83d0384daf5 (patch) | |
| tree | 85d75979a755fe69043e73e29e4ffdb3abe84a6c | |
| parent | e61d1d0da9692b4695c03b7e9f67028d25181ccc (diff) | |
| download | pandoc-e61f63253130480c43d8bb4f4531e83d0384daf5.tar.gz | |
HTML reader: parse `<small>` as a Span with class "small".
Closes #5080.
| -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# +``` |