From a933ad30fb0ae7309f8ac14616337cfc95cdb7cd Mon Sep 17 00:00:00 2001
From: Florian B <yuuki@protonmail.com>
Date: Tue, 15 Oct 2019 22:42:51 +0200
Subject: 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.
---
 src/Text/Pandoc/Shared.hs |  2 +-
 test/command/5797.md      | 20 ++++++++++++++++++++
 2 files changed, 21 insertions(+), 1 deletion(-)
 create mode 100644 test/command/5797.md

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>
+```
-- 
cgit v1.2.3