aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Writers
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2015-07-01 11:30:28 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2015-07-01 11:30:28 -0700
commit8e747004e6b28ef2567963517451c9fb581256bd (patch)
treeb399affd616c4868270387ed9b0ae1fde21e5126 /src/Text/Pandoc/Writers
parenta04c15a422cac279e75b012db9614cdc85aa1188 (diff)
downloadpandoc-8e747004e6b28ef2567963517451c9fb581256bd.tar.gz
ConTeXt writer: Added a % at end for `\reference` to avoid spurious space.
Diffstat (limited to 'src/Text/Pandoc/Writers')
-rw-r--r--src/Text/Pandoc/Writers/ConTeXt.hs4
1 files changed, 2 insertions, 2 deletions
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