@@ -95,7 +95,7 @@ escapeCharForConTeXt ch =
95 '$' -> "\\$"
95 '$' -> "\\$"
96 '|' -> "\\letterbar{}"
96 '|' -> "\\letterbar{}"
97 '^' -> "\\letterhat{}"
97 '^' -> "\\letterhat{}"
98− '%' -> "\\%"
98+ '%' -> "\\letterpercent "
99 '~' -> "\\lettertilde{}"
99 '~' -> "\\lettertilde{}"
100 '&' -> "\\&"
100 '&' -> "\\&"
101 '#' -> "\\#"
101 '#' -> "\\#"
@@ -298,7 +298,7 @@ inlineToConTeXt (Link txt (src, _)) = do
298 label <- inlineListToConTeXt txt
298 label <- inlineListToConTeXt txt
299 return $ "\\useURL"
299 return $ "\\useURL"
300 <> brackets (text ref)
300 <> brackets (text ref)
301− <> brackets (text $ escapeStringUsing [('#',"\\#")] src)
301+ <> brackets (text $ escapeStringUsing [('#',"\\#"),('%',"\\%")] src)
302 <> brackets empty
302 <> brackets empty
303 <> brackets label
303 <> brackets label
304 <> "\\from"
304 <> "\\from"