diff options
author | John MacFarlane <jgm@berkeley.edu> | 2011-07-19 16:29:33 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2011-07-19 16:29:33 -0700 |
commit | 71736869bb6a3ff50505883fe3d98af07f7b114d (patch) | |
tree | 6a5aa8573ab4f0253bff7883a4406725f1e3ec57 /src/Text/Pandoc | |
parent | 8fd3d0bdbbd8ba8c681c72a401c517797c2ecd0e (diff) | |
download | pandoc-71736869bb6a3ff50505883fe3d98af07f7b114d.tar.gz |
ConTeXt writer: Made \start/stoptyping flush with margin.
This prevents extra blank lines.
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r-- | src/Text/Pandoc/Writers/ConTeXt.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/ConTeXt.hs b/src/Text/Pandoc/Writers/ConTeXt.hs index 378c4ce96..763f77d7c 100644 --- a/src/Text/Pandoc/Writers/ConTeXt.hs +++ b/src/Text/Pandoc/Writers/ConTeXt.hs @@ -123,7 +123,7 @@ blockToConTeXt (BlockQuote lst) = do contents <- blockListToConTeXt lst return $ "\\startblockquote" $$ nest 0 contents $$ "\\stopblockquote" <> blankline blockToConTeXt (CodeBlock _ str) = - return $ "\\starttyping" <> cr <> flush (text str) <> cr <> "\\stoptyping" $$ blankline + return $ flush ("\\starttyping" <> cr <> text str <> cr <> "\\stoptyping") $$ blankline -- blankline because \stoptyping can't have anything after it, inc. '}' blockToConTeXt (RawBlock "context" str) = return $ text str <> blankline blockToConTeXt (RawBlock _ _ ) = return empty |