aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorFlorian B <yuuki@protonmail.com>2019-10-15 22:42:51 +0200
committerJohn MacFarlane <jgm@berkeley.edu>2019-10-16 09:08:12 -0700
commita933ad30fb0ae7309f8ac14616337cfc95cdb7cd (patch)
tree8fc4271f3e4e667dd7830e18b5b45359d982ba6f
parentf1fd120d4a08c8d9c04b8246ecc35ad968425b82 (diff)
downloadpandoc-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.hs2
-rw-r--r--test/command/5797.md20
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>
+```