diff options
| -rw-r--r-- | src/Text/Pandoc/Writers/ConTeXt.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/ConTeXt.hs b/src/Text/Pandoc/Writers/ConTeXt.hs index 763f77d7c..a64b15b58 100644 --- a/src/Text/Pandoc/Writers/ConTeXt.hs +++ b/src/Text/Pandoc/Writers/ConTeXt.hs @@ -279,7 +279,8 @@ inlineToConTeXt (Link txt (src, _)) = do put $ st {stNextRef = next + 1} let ref = show next label <- inlineListToConTeXt txt - return $ "\\useURL" <> brackets (text ref) <> brackets (text src) <> + return $ "\\useURL" <> brackets (text ref) <> + brackets (text $ escapeStringUsing [('#',"\\#")] src) <> brackets empty <> brackets label <> "\\from" <> brackets (text ref) inlineToConTeXt (Image _ (src, _)) = do |