From 2f928d4c9ddd897bd5780fdc613bb81310b4538f Mon Sep 17 00:00:00 2001 From: fiddlosopher Date: Sun, 15 Jul 2007 15:08:27 +0000 Subject: ConTeXt writer changes: + Use defined blockquote environment for block quotes (smaller font, no indent, narrower text) + Changed default font to 12pt + Changed default page layout git-svn-id: https://pandoc.googlecode.com/svn/trunk@725 788f1e2b-df1e-0410-8736-df70ead52e1b --- src/Text/Pandoc/Writers/ConTeXt.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Text/Pandoc') diff --git a/src/Text/Pandoc/Writers/ConTeXt.hs b/src/Text/Pandoc/Writers/ConTeXt.hs index dec33c9e0..8e35ea9d5 100644 --- a/src/Text/Pandoc/Writers/ConTeXt.hs +++ b/src/Text/Pandoc/Writers/ConTeXt.hs @@ -115,7 +115,7 @@ blockToConTeXt (Plain lst) = inlineListToConTeXt lst >>= (return . (++ "\n")) blockToConTeXt (Para lst) = inlineListToConTeXt lst >>= (return . (++ "\n\n")) blockToConTeXt (BlockQuote lst) = do contents <- blockListToConTeXt lst - return $ "\\startnarrower\n" ++ contents ++ "\\stopnarrower\n\n" + return $ "\\startblockquote\n" ++ contents ++ "\\stopblockquote\n\n" blockToConTeXt (CodeBlock str) = return $ "\\starttyping\n" ++ str ++ "\n\\stoptyping\n" blockToConTeXt (RawHtml str) = return "" -- cgit v1.2.3