@@ -95,7 +95,7 @@ escapeCharForConTeXt ch =
9595 '$' -> "\\$"
9696 '|' -> "\\letterbar{}"
9797 '^' -> "\\letterhat{}"
98− '%' -> "\\%"
98+ '%' -> "\\letterpercent "
9999 '~' -> "\\lettertilde{}"
100100 '&' -> "\\&"
101101 '#' -> "\\#"
@@ -298,7 +298,7 @@ inlineToConTeXt (Link txt (src, _)) = do
298298 label <- inlineListToConTeXt txt
299299 return $ "\\useURL"
300300 <> brackets (text ref)
301− <> brackets (text $ escapeStringUsing [('#',"\\#")] src)
301+ <> brackets (text $ escapeStringUsing [('#',"\\#"),('%',"\\%")] src)
302302 <> brackets empty
303303 <> brackets label
304304 <> "\\from"