From 71bbadb7936e68673a46f7391caf446e35c81205 Mon Sep 17 00:00:00 2001 From: Henri Menke Date: Tue, 23 Jan 2018 09:15:59 +1300 Subject: ConTeXt writer: xtables: correct wrong usage of caption --- src/Text/Pandoc/Writers/ConTeXt.hs | 2 +- test/Tests/Writers/ConTeXt.hs | 2 +- test/tables.context | 6 +++--- 3 files changed, 5 insertions(+), 5 deletions(-) diff --git a/src/Text/Pandoc/Writers/ConTeXt.hs b/src/Text/Pandoc/Writers/ConTeXt.hs index 64b7d2c53..bca00b55a 100644 --- a/src/Text/Pandoc/Writers/ConTeXt.hs +++ b/src/Text/Pandoc/Writers/ConTeXt.hs @@ -267,7 +267,7 @@ blockToConTeXt (Table caption aligns widths heads rows) = do return $ "\\startplacetable" <> brackets ( if null caption then "location=none" - else "caption=" <> braces captionText + else "title=" <> braces captionText ) $$ body $$ "\\stopplacetable" <> blankline tableToConTeXt :: PandocMonad m => Tabl -> Doc -> [Doc] -> WM m Doc diff --git a/test/Tests/Writers/ConTeXt.hs b/test/Tests/Writers/ConTeXt.hs index 5ce629674..678321519 100644 --- a/test/Tests/Writers/ConTeXt.hs +++ b/test/Tests/Writers/ConTeXt.hs @@ -92,7 +92,7 @@ tests = [ testGroup "inline code" plain $ text "3.3", plain $ text "3.4"]] in table caption aligns headers rows - =?> unlines [ "\\startplacetable[caption={Table 1}]" + =?> unlines [ "\\startplacetable[title={Table 1}]" , "\\startTABLE" , "\\startTABLEhead" , "\\NC[align=left] Right" diff --git a/test/tables.context b/test/tables.context index 89ff4a025..11dffc065 100644 --- a/test/tables.context +++ b/test/tables.context @@ -1,6 +1,6 @@ Simple table with caption: -\startplacetable[caption={Demonstration of simple table syntax.}] +\startplacetable[title={Demonstration of simple table syntax.}] \startxtable \startxtablehead[head] \startxrow @@ -74,7 +74,7 @@ Simple table without caption: Simple table indented two spaces: -\startplacetable[caption={Demonstration of simple table syntax.}] +\startplacetable[title={Demonstration of simple table syntax.}] \startxtable \startxtablehead[head] \startxrow @@ -111,7 +111,7 @@ Simple table indented two spaces: Multiline table with caption: -\startplacetable[caption={Here's the caption. It may span multiple lines.}] +\startplacetable[title={Here's the caption. It may span multiple lines.}] \startxtable \startxtablehead[head] \startxrow -- cgit v1.2.3