From 13d8a75060b8528ee2a2e2d6cace9ff0590bcff2 Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
Date: Fri, 16 Nov 2007 04:04:53 +0000
Subject: 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 |  2 +-
 src/headers/ConTeXtHeader          | 22 ++++++++++++++++++----
 2 files changed, 19 insertions(+), 5 deletions(-)

(limited to 'src')

diff --git a/src/Text/Pandoc/Writers/ConTeXt.hs b/src/Text/Pandoc/Writers/ConTeXt.hs
index fbe677323..b8173e6af 100644
--- a/src/Text/Pandoc/Writers/ConTeXt.hs
+++ b/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
diff --git a/src/headers/ConTeXtHeader b/src/headers/ConTeXtHeader
index 41648081c..a0b3a0a56 100644
--- a/src/headers/ConTeXtHeader
+++ b/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
+	
-- 
cgit v1.2.3