diff options
| author | John MacFarlane <[email protected]> | 2022-11-19 12:26:42 -0800 |
|---|---|---|
| committer | John MacFarlane <[email protected]> | 2022-11-19 12:26:42 -0800 |
| commit | 53c519320029c13abbe063277bf3856d1fa66152 (patch) | |
| tree | b682f511eee29d7ff6673e3eb07bf9bf0d6e1851 | |
| parent | ad5947ff53b0b80cb43411caac6b71e17d8117c4 (diff) | |
RST writer: use special `mark` role for Span with class `mark`.mark
See #7743.
| -rw-r--r-- | src/Text/Pandoc/Writers/RST.hs | 3 |
1 files changed, 3 insertions, 0 deletions
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 $ |