From f9ae93d85464070eea5a7b0dc037be037b602acb Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Thu, 18 Aug 2011 12:16:39 -0700
Subject: ConTeXt: Escape # in link URLs.

Partially addresses #291.
---
 src/Text/Pandoc/Writers/ConTeXt.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/Text/Pandoc')

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
-- 
cgit v1.2.3