Implement the new Table type

1 files changed, 165 insertions, 68 deletions

diff --git a/test/vimwiki-reader.native b/test/vimwiki-reader.native
index 3b8c37c3a..5be4a8d5c 100644
--- a/test/vimwiki-reader.native
+++ b/test/vimwiki-reader.native
@@ -88,13 +88,24 @@ Pandoc (Meta {unMeta = fromList [("date",MetaInlines [Str "2017-05-01"]),("title
   ,Para [Math DisplayMath "a^2 + b^2 = c^2"]
   ,Plain [Str "and",Space,Str "some",Space,Str "preformatted",Space,Str "and",Space,Str "tables",Space,Str "belonging",Space,Str "to",Space,Str "item",Space,Str "1",Space,Str "as",Space,Str "well"]
   ,CodeBlock ("",[],[]) "I'm part of item 1."
-  ,Table [] [AlignDefault,AlignDefault] [0.0,0.0]
-   [[]
-   ,[]]
-   [[[Plain [Str "this",Space,Str "table"]]
-    ,[Plain [Str "is"]]]
-   ,[[Plain [Str "also",Space,Str "a",Space,Str "part"]]
-    ,[Plain [Str "of",Space,Str "item",Space,Str "1"]]]]
+  ,Table ("",[],[]) (Caption Nothing
+   []) [(AlignDefault,Nothing),(AlignDefault,Nothing)] 0
+   [Row ("",[],[])
+    [Cell ("",[],[]) Nothing 1 1
+     []
+    ,Cell ("",[],[]) Nothing 1 1
+     []]]
+   [Row ("",[],[])
+    [Cell ("",[],[]) Nothing 1 1
+     [Plain [Str "this",Space,Str "table"]]
+    ,Cell ("",[],[]) Nothing 1 1
+     [Plain [Str "is"]]]
+   ,Row ("",[],[])
+    [Cell ("",[],[]) Nothing 1 1
+     [Plain [Str "also",Space,Str "a",Space,Str "part"]]
+    ,Cell ("",[],[]) Nothing 1 1
+     [Plain [Str "of",Space,Str "item",Space,Str "1"]]]]
+   []
   ,Plain [Str "and",Space,Str "some",Space,Str "more",Space,Str "text",Space,Str "belonging",Space,Str "to",Space,Str "item",Space,Str "1."]]
  ,[Plain [Str "ordered",Space,Str "list",Space,Str "item",Space,Str "2"]]]
 ,BulletList
@@ -181,11 +192,19 @@ Pandoc (Meta {unMeta = fromList [("date",MetaInlines [Str "2017-05-01"]),("title
   ,OrderedList (1,DefaultStyle,DefaultDelim)
    [[Plain [Span ("",["done3"],[]) [],Str "4",SoftBreak,Str "5"]]
    ,[Plain [Span ("",["done4"],[]) []]
-    ,Table [] [AlignDefault,AlignDefault] [0.0,0.0]
-     [[]
-     ,[]]
-     [[[Plain [Str "a"]]
-      ,[Plain [Str "b"]]]]]]]
+    ,Table ("",[],[]) (Caption Nothing
+     []) [(AlignDefault,Nothing),(AlignDefault,Nothing)] 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"]]]]
+     []]]]
  ,[Plain [Span ("",["done4"],[]) [],Str "task",Space,Str "2"]]]
 ,Header 2 ("math",[],[]) [Str "math"]
 ,Para [Math InlineMath " \\sum_i a_i^2 = 1 "]
@@ -200,34 +219,71 @@ Pandoc (Meta {unMeta = fromList [("date",MetaInlines [Str "2017-05-01"]),("title
 ,Header 2 ("tags",[],[]) [Str "tags"]
 ,Para [Span ("-tag-one",[],[]) [Str ""],Span ("tag-one",["tag"],[]) [Str "tag-one"],Space,Span ("-tag-two",[],[]) [Str ""],Span ("tag-two",["tag"],[]) [Str "tag-two"]]
 ,Header 2 ("tables",[],[]) [Str "tables"]
-,Table [] [AlignDefault,AlignDefault,AlignDefault] [0.0,0.0,0.0]
- [[Plain [Str "Year"]]
- ,[Plain [Str "Temperature",Space,Str "(low)"]]
- ,[Plain [Str "Temperature",Space,Str "(high)"]]]
- [[[Plain [Str "1900"]]
-  ,[Plain [Str "-10"]]
-  ,[Plain [Str "25"]]]
- ,[[Plain [Str "1910"]]
-  ,[Plain [Str "-15"]]
-  ,[Plain [Str "30"]]]
- ,[[Plain [Str "1920"]]
-  ,[Plain [Str "-10"]]
-  ,[Plain [Str "32"]]]
- ,[[Plain [Str "1930"]]
-  ,[Plain [Emph [Str "N/A"]]]
-  ,[Plain [Emph [Str "N/A"]]]]
- ,[[Plain [Str "1940"]]
-  ,[Plain [Str "-2"]]
-  ,[Plain [Str "40"]]]]
+,Table ("",[],[]) (Caption Nothing
+ []) [(AlignDefault,Nothing),(AlignDefault,Nothing),(AlignDefault,Nothing)] 0
+ [Row ("",[],[])
+  [Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "Year"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "Temperature",Space,Str "(low)"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "Temperature",Space,Str "(high)"]]]]
+ [Row ("",[],[])
+  [Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "1900"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "-10"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "25"]]]
+ ,Row ("",[],[])
+  [Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "1910"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "-15"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "30"]]]
+ ,Row ("",[],[])
+  [Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "1920"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "-10"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "32"]]]
+ ,Row ("",[],[])
+  [Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "1930"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Emph [Str "N/A"]]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Emph [Str "N/A"]]]]
+ ,Row ("",[],[])
+  [Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "1940"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "-2"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "40"]]]]
+ []
 ,Header 3 ("centered headerless tables",[],[]) [Str "centered",Space,Str "headerless",Space,Str "tables"]
 ,Div ("",["center"],[])
- [Table [] [AlignDefault,AlignDefault] [0.0,0.0]
-  [[]
-  ,[]]
-  [[[Plain [Str "a"]]
-   ,[Plain [Str "b"]]]
-  ,[[Plain [Str "c"]]
-   ,[Plain [Str "d"]]]]]
+ [Table ("",[],[]) (Caption Nothing
+  []) [(AlignDefault,Nothing),(AlignDefault,Nothing)] 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
+    [Plain [Str "c"]]
+   ,Cell ("",[],[]) Nothing 1 1
+    [Plain [Str "d"]]]]
+  []]
 ,Header 2 ("paragraphs",[],[]) [Str "paragraphs"]
 ,Para [Str "This",Space,Str "is",Space,Str "first",Space,Str "paragraph",SoftBreak,Str "with",Space,Str "two",Space,Str "lines."]
 ,Para [Str "This",Space,Str "is",Space,Str "a",Space,Str "second",Space,Str "paragraph",Space,Str "with",SoftBreak,Str "two",Space,Str "lines",Space,Str "after",Space,Str "many",Space,Str "blank",Space,Str "lines."]
@@ -277,37 +333,78 @@ Pandoc (Meta {unMeta = fromList [("date",MetaInlines [Str "2017-05-01"]),("title
 ,Para [Span ("",["todo"],[]) [Str "TODO:"]]
 ,Header 1 ("not implemented yet",[],[]) [Emph [Span ("not implemented yet",[],[]) [],Strong [Str "not",Space,Str "implemented",Space,Str "yet"]]]
 ,Header 2 ("tables with spans",[],[]) [Str "tables",Space,Str "with",Space,Str "spans"]
-,Table [] [AlignDefault,AlignDefault,AlignDefault,AlignDefault] [0.0,0.0,0.0,0.0]
- [[]
- ,[]
- ,[]
- ,[]]
- [[[Plain [Str "a"]]
-  ,[Plain [Str "b"]]
-  ,[Plain [Str "c"]]
-  ,[Plain [Str "d"]]]
- ,[[Plain [Str "\\/"]]
-  ,[Plain [Str "e"]]
-  ,[Plain [Str ">"]]
-  ,[Plain [Str "f"]]]
- ,[[Plain [Str "\\/"]]
-  ,[Plain [Str "\\/"]]
-  ,[Plain [Str ">"]]
-  ,[Plain [Str "g"]]]
- ,[[Plain [Str "h"]]
-  ,[Plain [Str ">"]]
-  ,[Plain [Str ">"]]
-  ,[Plain [Str ">"]]]]
+,Table ("",[],[]) (Caption Nothing
+ []) [(AlignDefault,Nothing),(AlignDefault,Nothing),(AlignDefault,Nothing),(AlignDefault,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 "a"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "b"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "c"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "d"]]]
+ ,Row ("",[],[])
+  [Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "\\/"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "e"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str ">"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "f"]]]
+ ,Row ("",[],[])
+  [Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "\\/"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "\\/"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str ">"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "g"]]]
+ ,Row ("",[],[])
+  [Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "h"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str ">"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str ">"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str ">"]]]]
+ []
 ,Header 2 ("tables with multiple lines of headers",[],[]) [Str "tables",Space,Str "with",Space,Str "multiple",Space,Str "lines",Space,Str "of",Space,Str "headers"]
-,Table [] [AlignDefault,AlignDefault] [0.0,0.0]
- [[]
- ,[]]
- [[[Plain [Str "a"]]
-  ,[Plain [Str "b"]]]
- ,[[Plain [Str "c"]]
-  ,[Plain [Str "d"]]]
- ,[[Plain [Str "---"]]
-  ,[Plain [Str "---"]]]]
+,Table ("",[],[]) (Caption Nothing
+ []) [(AlignDefault,Nothing),(AlignDefault,Nothing)] 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
+   [Plain [Str "c"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "d"]]]
+ ,Row ("",[],[])
+  [Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "---"]]
+  ,Cell ("",[],[]) Nothing 1 1
+   [Plain [Str "---"]]]]
+ []
 ,Header 2 ("some other placeholders",[],[]) [Str "some",Space,Str "other",Space,Str "placeholders"]
 ,Para [Code ("",[],[]) "template",Space,Str "placeholder",Space,Str "is",Space,Str "ignored."]
 ,Para [Code ("",[],[]) "nohtml",Space,Str "placeholder",Space,Str "is",Space,Str "ignored."]]