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 /src/Text/Pandoc | |
| parent | e61d1d0da9692b4695c03b7e9f67028d25181ccc (diff) | |
| download | pandoc-e61f63253130480c43d8bb4f4531e83d0384daf5.tar.gz | |
HTML reader: parse `<small>` as a Span with class "small".
Closes #5080.
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Readers/HTML.hs | 4 |
1 files changed, 4 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 <|> |