diff options
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r-- | src/Text/Pandoc/Writers/ConTeXt.hs | 6 |
1 files changed, 4 insertions, 2 deletions
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 |