diff options
author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-11-16 04:04:53 +0000 |
---|---|---|
committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-11-16 04:04:53 +0000 |
commit | 13d8a75060b8528ee2a2e2d6cace9ff0590bcff2 (patch) | |
tree | 5545145b53360001605d7099c1559837400edec4 /src/Text/Pandoc | |
parent | 87d6d0d069fc24724ee55cf54711c8abe2f2d072 (diff) | |
download | pandoc-13d8a75060b8528ee2a2e2d6cace9ff0590bcff2.tar.gz |
New, "official" definition of blockquote environment in ConTeXt header.
Also, use blank line after \startblockquote to balance blank line at the end.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1078 788f1e2b-df1e-0410-8736-df70ead52e1b
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 fbe677323..b8173e6af 100644 --- a/src/Text/Pandoc/Writers/ConTeXt.hs +++ b/src/Text/Pandoc/Writers/ConTeXt.hs @@ -121,7 +121,7 @@ blockToConTeXt opts (Para lst) = wrapTeXIfNeeded opts (inlineListToConTeXt opts) lst >>= return . (<> char '\n') blockToConTeXt opts (BlockQuote lst) = do contents <- blockListToConTeXt opts lst - return $ text "\\startblockquote" $$ contents $$ text "\\stopblockquote" + return $ text "\\startblockquote\n" $$ contents $$ text "\\stopblockquote" blockToConTeXt opts (CodeBlock str) = return $ text $ "\\starttyping\n" ++ str ++ "\n\\stoptyping\n" -- \n needed -- because \stoptyping can't have anything after it |