From 8e747004e6b28ef2567963517451c9fb581256bd Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Wed, 1 Jul 2015 11:30:28 -0700
Subject: ConTeXt writer: Added a % at end for `\reference` to avoid spurious
 space.

---
 src/Text/Pandoc/Writers/ConTeXt.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/Text/Pandoc/Writers/ConTeXt.hs b/src/Text/Pandoc/Writers/ConTeXt.hs
index 6f45617bb..275fd26e2 100644
--- a/src/Text/Pandoc/Writers/ConTeXt.hs
+++ b/src/Text/Pandoc/Writers/ConTeXt.hs
@@ -156,8 +156,8 @@ blockToConTeXt (Div (ident,_,_) bs) = do
   if null ident
      then return contents
      else return $
-          ("\\reference" <> brackets (text $ toLabel ident) <> braces empty)
-          $$ contents
+          ("\\reference" <> brackets (text $ toLabel ident) <> braces empty <>
+            "%") $$ contents
 blockToConTeXt (BulletList lst) = do
   contents <- mapM listItemToConTeXt lst
   return $ ("\\startitemize" <> if isTightList lst
-- 
cgit v1.2.3