ConTeXt: Escape # in link URLs.

Partially addresses #291.
2011-08-18 12:16:39 -07:00 · 2011-08-18 12:16:39 -07:00 · f9ae93d854
commit f9ae93d854
parent 15eb713e5d
1 changed files with 2 additions and 1 deletions
--- 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