From 5cb0f0bbf1da61b7ce276a39055a51b6166500cc Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Fri, 28 Jun 2013 21:30:27 -0700
Subject: ConTeXt writer:  Properly handle tables without captions.

The old output only worked in MkII. This should work in MkIV
as well.

Closes #837.
---
 src/Text/Pandoc/Writers/ConTeXt.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/Text/Pandoc/Writers/ConTeXt.hs b/src/Text/Pandoc/Writers/ConTeXt.hs
index 85cb8e3d1..ac158b471 100644
--- a/src/Text/Pandoc/Writers/ConTeXt.hs
+++ b/src/Text/Pandoc/Writers/ConTeXt.hs
@@ -203,9 +203,11 @@ blockToConTeXt (Table caption aligns widths heads rows) = do
                   then return empty
                   else liftM ($$ "\\HL") $ tableRowToConTeXt heads
     captionText <- inlineListToConTeXt caption
-    let captionText' = if null caption then text "none" else captionText
     rows' <- mapM tableRowToConTeXt rows
-    return $ "\\placetable[here]" <> braces captionText' $$
+    return $ "\\placetable" <> brackets ("here" <> if null caption
+                                                      then ",none"
+                                                      else "")
+                            <> braces captionText $$
              "\\starttable" <> brackets (text colDescriptors) $$
              "\\HL" $$ headers $$
              vcat rows' $$ "\\HL" $$ "\\stoptable" <> blankline
-- 
cgit v1.2.3