From 1a8cbab32ac2ab742ff2aabe7a149e33ff103ab2 Mon Sep 17 00:00:00 2001 From: Jess Robinson Date: Wed, 29 Feb 2012 22:51:59 +0000 Subject: Don't show header rows of tables if not available --- src/Text/Pandoc/Writers/PseudoPod.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/Text/Pandoc/Writers/PseudoPod.hs b/src/Text/Pandoc/Writers/PseudoPod.hs index 291e69da6..cfc80d605 100644 --- a/src/Text/Pandoc/Writers/PseudoPod.hs +++ b/src/Text/Pandoc/Writers/PseudoPod.hs @@ -233,9 +233,11 @@ blockToPseudoPod opts (Table caption _ _ headers rows) = do let rows''' = "=row" <> blankline <> "=cell " <> rows'' let head' = makeRow headers' - let head'' = "=row" <> blankline <> "=cell " <> head' + let head'' = if all null headers + then empty + else "=headrow" <> blankline <> "=row" <> blankline <> "=cell " <> head' - return $ "=begin table " <> caption' <> blankline <> "=headrow" <> blankline <> head'' <> blankline <> "=bodyrows" <> blankline <> rows''' <> blankline <> "=end table" <> blankline + return $ "=begin table " <> caption' <> blankline <> head'' <> blankline <> "=bodyrows" <> blankline <> rows''' <> blankline <> "=end table" <> blankline -- | =over / =item * / =back blockToPseudoPod opts (BulletList items) = do -- cgit v1.2.3