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

@@ -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

src/headers/ConTeXtHeader

@@ -54,8 +54,22 @@
 \setupthinrules[width=15em]  % width of horizontal rules
 
 % for block quotations
-\definestartstop [blockquote]
-                 [before={\startnarrower\switchtobodyfont[11pt]
-                          \whitespace\setupindenting[no]},
-                  after={\stopnarrower\whitespace}]
+\unprotect
 
+\startvariables all
+blockquote: blockquote
+\stopvariables
+
+\definedelimitedtext
+[\v!blockquote][\v!quotation]
+
+\setupdelimitedtext
+[\v!blockquote]
+[\c!left=,
+\c!right=,
+before={\blank[medium]},
+after={\blank[medium]},
+]
+
+\protect
+