diff options
| -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 0001cbe0b..cf8c3cc91 100644 --- a/src/Text/Pandoc/Writers/ConTeXt.hs +++ b/src/Text/Pandoc/Writers/ConTeXt.hs @@ -185,13 +185,15 @@ blockToConTeXt (Table caption aligns widths heads rows) = do else ("p(" ++ printf "%.2f" colWidth ++ "\\textwidth)|") let colDescriptors = "|" ++ (concat $ zipWith colDescriptor widths aligns) - headers <- tableRowToConTeXt heads + headers <- if all null heads + then return empty + else liftM ($$ text "\\HL") $ tableRowToConTeXt heads captionText <- inlineListToConTeXt caption let captionText' = if null caption then text "none" else captionText rows' <- mapM tableRowToConTeXt rows return $ Pad $ text "\\placetable[here]{" <> captionText' <> char '}' $$ text "\\starttable[" <> text colDescriptors <> char ']' $$ - text "\\HL" $$ headers $$ text "\\HL" $$ + text "\\HL" $$ headers $$ vcat rows' $$ text "\\HL\n\\stoptable" tableRowToConTeXt :: [[Block]] -> State WriterState Doc |