From 53c519320029c13abbe063277bf3856d1fa66152 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sat, 19 Nov 2022 12:26:42 -0800
Subject: RST writer: use special `mark` role for Span with class `mark`.

See #7743.
---
 src/Text/Pandoc/Writers/RST.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/Text/Pandoc/Writers/RST.hs b/src/Text/Pandoc/Writers/RST.hs
index 6c166f279..2ddf8a3e0 100644
--- a/src/Text/Pandoc/Writers/RST.hs
+++ b/src/Text/Pandoc/Writers/RST.hs
@@ -744,6 +744,9 @@ writeInlines lst =
 
 -- | Convert Pandoc inline element to RST.
 inlineToRST :: PandocMonad m => Inline -> RST m (Doc Text)
+inlineToRST (Span ("",["mark"],[]) ils) = do
+  contents <- writeInlines ils
+  return $ ":mark:`" <> contents <> "`"
 inlineToRST (Span (_,_,kvs) ils) = do
   contents <- writeInlines ils
   return $
-- 
cgit v1.2.3