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 +- src/headers/ConTeXtHeader | 13 ++++++++++--- 2 files changed, 11 insertions(+), 4 deletions(-) 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 "" diff --git a/src/headers/ConTeXtHeader b/src/headers/ConTeXtHeader index 7a27b38d8..c04daed65 100644 --- a/src/headers/ConTeXtHeader +++ b/src/headers/ConTeXtHeader @@ -4,9 +4,10 @@ \setupinteraction[state=start, color=middlered] % needed for hyperlinks \setuppapersize[letter][letter] % use letter paper -\setuplayout[width=6in, height=9.5in] % page layout -\setuppagenumbering[location={footer,center}, style=bold] % number pages -\setupbodyfont[11pt] % 11pt font +\setuplayout[width=middle, backspace=1.5in, cutspace=1.5in, + height=middle, header=0.75in, footer=0.75in] % page layout +\setuppagenumbering[location={footer,center}] % number pages +\setupbodyfont[12pt] % 12pt font \setupwhitespace[medium] % inter-paragraph spacing \setuphead[section][style=\tfc] @@ -52,3 +53,9 @@ \setupthinrules[width=15em] % width of horizontal rules +% for block quotations +\definestartstop [blockquote] + [before={\startnarrower\switchtobodyfont[11pt] + \whitespace\setupindenting[no]}, + after={\stopnarrower\whitespace}] + -- cgit v1.2.3