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 | |
| 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.
| -rw-r--r-- | src/Text/Pandoc/Shared.hs | 2 | ||||
| -rw-r--r-- | test/command/5797.md | 20 |
2 files changed, 21 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]) diff --git a/test/command/5797.md b/test/command/5797.md new file mode 100644 index 000000000..0509a341c --- /dev/null +++ b/test/command/5797.md @@ -0,0 +1,20 @@ +``` +% pandoc -f html -t html +<mark>Ctrl-C</mark> +^D +<mark>Ctrl-C</mark> +``` + +``` +% pandoc -f html -t native +<mark>Ctrl-C</mark> +^D +[Plain [Span ("",["mark"],[]) [Str "Ctrl-C"]]] +``` + +``` +% pandoc -f native -t html +[Plain [Span ("",["mark"],[]) [Str "Ctrl-C"]]] +^D +<mark>Ctrl-C</mark> +``` |