diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Writers/RST.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/RST.hs b/src/Text/Pandoc/Writers/RST.hs index e2b55daa0..2e02ee662 100644 --- a/src/Text/Pandoc/Writers/RST.hs +++ b/src/Text/Pandoc/Writers/RST.hs @@ -76,7 +76,10 @@ keyToRST :: WriterOptions -> State WriterState Doc keyToRST opts (label, (src, tit)) = do label' <- inlineListToRST opts label - return $ text ".. _" <> label' <> text ": " <> text src + let label'' = if ':' `elem` (render label') + then char '`' <> label' <> char '`' + else label' + return $ text ".. _" <> label'' <> text ": " <> text src -- | Return RST representation of notes. notesToRST :: WriterOptions -> [[Block]] -> State WriterState Doc |