Implement the new Table type

1 files changed, 165 insertions, 71 deletions

diff --git a/test/man-reader.native b/test/man-reader.native
index 99c7405f8..7b2f6f966 100644
--- a/test/man-reader.native
+++ b/test/man-reader.native
@@ -105,76 +105,170 @@ Pandoc (Meta {unMeta = fromList [("date",MetaInlines [Str "Oct",Space,Str "17,",
 ,Header 1 ("",[],[]) [Str "Macros"]
 ,Para [Strong [Str "Me",Space,Str "Myself"],Space,Str "and",Space,Str "I.",Space,Emph [Str "The",Space,Str "author",Space,Str "is",Space,Str "John",Space,Str "Jones."],Space,Str "It's",Space,Str "The",Space,Strong [Str "Author"],Str "."]
 ,Header 1 ("",[],[]) [Str "Tables"]
-,Table [] [AlignRight,AlignLeft,AlignCenter,AlignLeft] [0.0,0.0,0.0,0.0]
- [[Plain [Str "Right"]]
- ,[Plain [Str "Left"]]
- ,[Plain [Str "Center"]]
- ,[Plain [Str "Default"]]]
- [[[Plain [Str "12"]]
-  ,[Plain [Str "12"]]
-  ,[Plain [Str "12"]]
-  ,[Plain [Str "12"]]]
- ,[[Plain [Str "123"]]
-  ,[Plain [Str "123"]]
-  ,[Plain [Str "123"]]
-  ,[Plain [Str "123"]]]
- ,[[Plain [Str "1"]]
-  ,[Plain [Str "1"]]
-  ,[Plain [Str "1"]]
-  ,[Plain [Str "1"]]]]
-,Table [] [AlignRight,AlignLeft,AlignCenter,AlignLeft] [0.0,0.0,0.0,0.0]
- [[Plain [Str "Right"]]
- ,[Plain [Str "Left"]]
- ,[Plain [Str "Center"]]
- ,[Plain [Str "Left",Space,Emph [Str "more"]]]]
- [[[Plain [Str "12"]]
-  ,[Plain [Str "12"]]
-  ,[Plain [Str "12"]]
-  ,[Plain [Str "12"]]]
- ,[[Plain [Str "123"]]
-  ,[Plain [Str "123"]]
-  ,[Plain [Str "123"]]
-  ,[Plain [Str "123"]]]
- ,[[Plain [Str "1"]]
-  ,[Plain [Str "1"]]
-  ,[Plain [Str "1"]]
-  ,[Plain [Str "1"]]]]
-,Table [] [AlignCenter,AlignLeft,AlignRight,AlignLeft] [0.0,0.0,0.0,0.0]
- [[Plain [Str "Centered",Space,Str "Header"]]
- ,[Plain [Str "Left",Space,Str "Aligned"]]
- ,[Plain [Str "Right",Space,Str "Aligned"]]
- ,[Plain [Str "Default",Space,Str "aligned"]]]
- [[[Plain [Str "First"]]
-  ,[Plain [Str "row"]]
-  ,[Plain [Str "12.0"]]
-  ,[Plain [Str "Example",Space,Str "of",Space,Str "a",Space,Str "row",Space,Str "that",Space,Str "spans",Space,Str "multiple",Space,Str "lines."]]]
- ,[[Plain [Str "Second"]]
-  ,[Plain [Str "row"]]
-  ,[Plain [Str "5.0"]]
-  ,[Plain [Str "Here\8217s",Space,Str "another",Space,Str "one.",Space,Str "Note",Space,Str "the",Space,Str "blank",Space,Str "line",Space,Str "between",Space,Str "rows."]]]]
+,Table ("",[],[]) (Caption Nothing
+ []) [(AlignRight,Nothing),(AlignLeft,Nothing),(AlignCenter,Nothing),(AlignLeft,Nothing)] 0
+ [Row ("",[],[])
+  [Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "Right"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "Left"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "Center"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "Default"]]]]
+ [Row ("",[],[])
+  [Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "12"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "12"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "12"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "12"]]]
+ ,Row ("",[],[])
+  [Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "123"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "123"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "123"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "123"]]]
+ ,Row ("",[],[])
+  [Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "1"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "1"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "1"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "1"]]]]
+ []
+,Table ("",[],[]) (Caption Nothing
+ []) [(AlignRight,Nothing),(AlignLeft,Nothing),(AlignCenter,Nothing),(AlignLeft,Nothing)] 0
+ [Row ("",[],[])
+  [Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "Right"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "Left"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "Center"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "Left",Space,Emph [Str "more"]]]]]
+ [Row ("",[],[])
+  [Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "12"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "12"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "12"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "12"]]]
+ ,Row ("",[],[])
+  [Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "123"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "123"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "123"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "123"]]]
+ ,Row ("",[],[])
+  [Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "1"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "1"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "1"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "1"]]]]
+ []
+,Table ("",[],[]) (Caption Nothing
+ []) [(AlignCenter,Nothing),(AlignLeft,Nothing),(AlignRight,Nothing),(AlignLeft,Nothing)] 0
+ [Row ("",[],[])
+  [Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "Centered",Space,Str "Header"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "Left",Space,Str "Aligned"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "Right",Space,Str "Aligned"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "Default",Space,Str "aligned"]]]]
+ [Row ("",[],[])
+  [Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "First"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "row"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "12.0"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "Example",Space,Str "of",Space,Str "a",Space,Str "row",Space,Str "that",Space,Str "spans",Space,Str "multiple",Space,Str "lines."]]]
+ ,Row ("",[],[])
+  [Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "Second"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "row"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "5.0"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "Here\8217s",Space,Str "another",Space,Str "one.",Space,Str "Note",Space,Str "the",Space,Str "blank",Space,Str "line",Space,Str "between",Space,Str "rows."]]]]
+ []
 ,Para [Str "Table",Space,Str "without",Space,Str "column",Space,Str "headers:"]
-,Table [] [AlignRight,AlignLeft,AlignCenter,AlignRight] [0.0,0.0,0.0,0.0]
- [[]
- ,[]
- ,[]
- ,[]]
- [[[Plain [Str "12"]]
-  ,[Plain [Str "12"]]
-  ,[Plain [Str "12"]]
-  ,[Plain [Str "12"]]]
- ,[[Plain [Str "123"]]
-  ,[Plain [Str "123"]]
-  ,[Plain [Str "123"]]
-  ,[Plain [Str "123"]]]
- ,[[Plain [Str "1"]]
-  ,[Plain [Str "1"]]
-  ,[Plain [Str "1"]]
-  ,[Plain [Str "1"]]]]
-,Table [] [AlignRight,AlignLeft] [0.5,0.5]
- [[]
- ,[]]
- [[[Plain [Str "a"]]
-  ,[Plain [Str "b"]]]
- ,[[Para [Str "one"]
+,Table ("",[],[]) (Caption Nothing
+ []) [(AlignRight,Nothing),(AlignLeft,Nothing),(AlignCenter,Nothing),(AlignRight,Nothing)] 0
+ [Row ("",[],[])
+  [Cell ("",[],[]) Nothing 1 1
+   []
+  ,Cell ("",[],[]) Nothing 1 1
+   []
+  ,Cell ("",[],[]) Nothing 1 1
+   []
+  ,Cell ("",[],[]) Nothing 1 1
+   []]]
+ [Row ("",[],[])
+  [Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "12"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "12"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "12"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "12"]]]
+ ,Row ("",[],[])
+  [Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "123"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "123"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "123"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "123"]]]
+ ,Row ("",[],[])
+  [Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "1"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "1"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "1"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "1"]]]]
+ []
+,Table ("",[],[]) (Caption Nothing
+ []) [(AlignRight,Just 0.5),(AlignLeft,Just 0.5)] 0
+ [Row ("",[],[])
+  [Cell ("",[],[]) Nothing 1 1
+   []
+  ,Cell ("",[],[]) Nothing 1 1
+   []]]
+ [Row ("",[],[])
+  [Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "a"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "b"]]]
+ ,Row ("",[],[])
+  [Cell ("",[],[]) Nothing 1 1
+   [Para [Str "one"]
    ,Para [Str "two"]]
-  ,[CodeBlock ("",[],[]) "some\n   code"]]]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [CodeBlock ("",[],[]) "some\n   code"]]]
+ []]