diff options
| -rw-r--r-- | src/Text/Pandoc/Writers/ConTeXt.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/ConTeXt.hs b/src/Text/Pandoc/Writers/ConTeXt.hs index b612b9904..9cca76ada 100644 --- a/src/Text/Pandoc/Writers/ConTeXt.hs +++ b/src/Text/Pandoc/Writers/ConTeXt.hs @@ -95,7 +95,7 @@ escapeCharForConTeXt ch = '$' -> "\\$" '|' -> "\\letterbar{}" '^' -> "\\letterhat{}" - '%' -> "\\%" + '%' -> "\\letterpercent " '~' -> "\\lettertilde{}" '&' -> "\\&" '#' -> "\\#" @@ -298,7 +298,7 @@ inlineToConTeXt (Link txt (src, _)) = do label <- inlineListToConTeXt txt return $ "\\useURL" <> brackets (text ref) - <> brackets (text $ escapeStringUsing [('#',"\\#")] src) + <> brackets (text $ escapeStringUsing [('#',"\\#"),('%',"\\%")] src) <> brackets empty <> brackets label <> "\\from" |