diff options
author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-07-15 15:08:27 +0000 |
---|---|---|
committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-07-15 15:08:27 +0000 |
commit | 2f928d4c9ddd897bd5780fdc613bb81310b4538f (patch) | |
tree | 3a51bf7c8ae2cb0d4db2a404bd6755081fa9669f | |
parent | 676b1ab149115cb989f46ea988d9d637d3fd6847 (diff) | |
download | pandoc-2f928d4c9ddd897bd5780fdc613bb81310b4538f.tar.gz |
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
-rw-r--r-- | src/Text/Pandoc/Writers/ConTeXt.hs | 2 | ||||
-rw-r--r-- | 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}] + |