diff options
| author | Florian B <yuuki@protonmail.com> | 2019-10-15 22:42:51 +0200 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2019-10-16 09:08:12 -0700 |
| commit | a933ad30fb0ae7309f8ac14616337cfc95cdb7cd (patch) | |
| tree | 8fc4271f3e4e667dd7830e18b5b45359d982ba6f /src/Text/Pandoc/Shared.hs | |
| parent | f1fd120d4a08c8d9c04b8246ecc35ad968425b82 (diff) | |
| download | pandoc-a933ad30fb0ae7309f8ac14616337cfc95cdb7cd.tar.gz | |
Add support for reading & writing <mark> elements
Parse <mark> elements from HTML as HTML span like elements, with a
single class matching the tag name `mark`. Mark elements are rendered to
HTML using the native <mark> element.
Fixes https://github.com/jgm/pandoc/issues/5797.
Diffstat (limited to 'src/Text/Pandoc/Shared.hs')
| -rw-r--r-- | src/Text/Pandoc/Shared.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs index 765bc0826..c5183aacb 100644 --- a/src/Text/Pandoc/Shared.hs +++ b/src/Text/Pandoc/Shared.hs @@ -698,7 +698,7 @@ underlineSpan = B.spanWith ("", ["underline"], []) -- | Set of HTML elements that are represented as Span with a class equal as -- the element tag itself. htmlSpanLikeElements :: Set.Set T.Text -htmlSpanLikeElements = Set.fromList [T.pack "kbd"] +htmlSpanLikeElements = Set.fromList [T.pack "kbd", T.pack "mark"] -- | Returns the first sentence in a list of inlines, and the rest. breakSentence :: [Inline] -> ([Inline], [Inline]) |