@@ -205,6 +205,13 @@ prettyBlock (DefinitionList blockLists) = "DefinitionList\n" ++
205205 indentBy 2 0 ("[ " ++ (joinWithSep ", "
206206 (map (\(term, blocks) -> "(" ++ show term ++ ",\n" ++
207207 indentBy 1 2 (prettyBlockList 2 blocks) ++ ")") blockLists))) ++ " ]"
208+prettyBlock (Table caption aligns widths header rows) =
209+ "Table " ++ show caption ++ " " ++ show aligns ++ " " ++
210+ show widths ++ "\n" ++ prettyRow header ++ " [\n" ++
211+ (joinWithSep ",\n" (map prettyRow rows)) ++ " ]"
212+ where prettyRow cols = indentBy 2 0 ("[ " ++ (joinWithSep ", "
213+ (map (\blocks -> prettyBlockList 2 blocks)
214+ cols))) ++ " ]"
208215prettyBlock block = show block
209216
210217-- | Prettyprint Pandoc document.