diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2015-07-01 11:30:28 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2015-07-01 11:30:28 -0700 |
| commit | 8e747004e6b28ef2567963517451c9fb581256bd (patch) | |
| tree | b399affd616c4868270387ed9b0ae1fde21e5126 /src/Text/Pandoc/Writers | |
| parent | a04c15a422cac279e75b012db9614cdc85aa1188 (diff) | |
| download | pandoc-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.hs | 4 |
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 |