From 13d8a75060b8528ee2a2e2d6cace9ff0590bcff2 Mon Sep 17 00:00:00 2001 From: fiddlosopher Date: Fri, 16 Nov 2007 04:04:53 +0000 Subject: 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 --- src/Text/Pandoc/Writers/ConTeXt.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Text') 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 -- cgit v1.2.3