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
commit13d8a75060b8528ee2a2e2d6cace9ff0590bcff2
authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
dateFri 16 Nov 2007, 04:04 (19 years ago)
parent87d6d0d
src/Text/Pandoc/Writers/ConTeXt.hs+1−1
@@ -121,7 +121,7 @@ blockToConTeXt opts (Para lst) =
121121 wrapTeXIfNeeded opts (inlineListToConTeXt opts) lst >>= return . (<> char '\n')
122122blockToConTeXt opts (BlockQuote lst) = do
123123 contents <- blockListToConTeXt opts lst
124− return $ text "\\startblockquote" $$ contents $$ text "\\stopblockquote"
124+ return $ text "\\startblockquote\n" $$ contents $$ text "\\stopblockquote"
125125blockToConTeXt opts (CodeBlock str) =
126126 return $ text $ "\\starttyping\n" ++ str ++ "\n\\stoptyping\n" -- \n needed
127127 -- because \stoptyping can't have anything after it
src/headers/ConTeXtHeader+18−4
@@ -54,8 +54,22 @@
5454\setupthinrules[width=15em] % width of horizontal rules
5555
5656% for block quotations
57−\definestartstop [blockquote]
58− [before={\startnarrower\switchtobodyfont[11pt]
59− \whitespace\setupindenting[no]},
60− after={\stopnarrower\whitespace}]
57+\unprotect
58+
59+\startvariables all
60+blockquote: blockquote
61+\stopvariables
62+
63+\definedelimitedtext
64+[\v!blockquote][\v!quotation]
6165
66+\setupdelimitedtext
67+[\v!blockquote]
68+[\c!left=,
69+\c!right=,
70+before={\blank[medium]},
71+after={\blank[medium]},
72+]
73+
74+\protect
75+