diff options
| -rw-r--r-- | src/Text/Pandoc/Writers/ConTeXt.hs | 2 | ||||
| -rw-r--r-- | src/headers/ConTeXtHeader | 22 |
2 files changed, 19 insertions, 5 deletions
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 + |