Merge pull request #225 from Julow/whitespace_in_tr

Whitespace in table

Author: Drup

lib/html_sigs.mli

@@ -908,6 +908,7 @@ module type T = sig
     ?thead: [< | thead] elt wrap ->
     ?tfoot: [< | tfoot] elt wrap ->
     ([< | table_attrib], [< | table_content_fun], [> | table]) star
+  [@@reflect.filter_whitespace]
   [@@reflect.element "table"]
 
   val tablex :
@@ -916,27 +917,33 @@ module type T = sig
     ?thead: [< | thead] elt wrap ->
     ?tfoot: [< | tfoot] elt wrap ->
     ([< | tablex_attrib], [< | tablex_content_fun], [> | tablex]) star
+  [@@reflect.filter_whitespace]
   [@@reflect.element "table" "table"]
 
   val colgroup :
     ([< | colgroup_attrib], [< | colgroup_content_fun], [> | colgroup]) star
+  [@@reflect.filter_whitespace]
 
   val col : ([< | col_attrib], [> | col]) nullary
 
   val thead :
     ([< | thead_attrib], [< | thead_content_fun], [> | thead]) star
+  [@@reflect.filter_whitespace]
 
   val tbody :
     ([< | tbody_attrib], [< | tbody_content_fun], [> | tbody]) star
+  [@@reflect.filter_whitespace]
 
   val tfoot :
     ([< | tfoot_attrib], [< | tfoot_content_fun], [> | tfoot]) star
+  [@@reflect.filter_whitespace]
 
   val td : ([< | td_attrib], [< | td_content_fun], [> | td]) star
 
   val th : ([< | th_attrib], [< | th_content_fun], [> | th]) star
 
   val tr : ([< | tr_attrib], [< | tr_content_fun], [> | tr]) star
+  [@@reflect.filter_whitespace]
 
   (** {3 Forms} *)
 

test/test_ppx.ml

@@ -137,6 +137,45 @@ let basics = "ppx basics", HtmlTests.make Html.[
   [[%html "<ol>   <li>foo</li>  <li>bar</li>   </ol>"]],
   [ol [li [txt "foo"] ; li [txt "bar"]]] ;
 
+  "whitespace in tr",
+  [[%html "<tr>   <td>foo</td>    <td>bar</td>   </tr>"]],
+  [tr [td [txt "foo"] ; td [txt "bar"]]] ;
+
+  "whitespace in table",
+  [[%html "<table>    <tr><td>foo</td></tr>   <tr><td>bar</td></tr>   </table>"]],
+  [tablex [tbody [tr [td [txt "foo"]] ; tr [td [txt "bar"]]]]] ;
+
+  "whitespace in table, full example",
+  [[%html "<table>
+  <caption>txt</caption>
+  <colgroup>
+    <col span=\"2\">
+  </colgroup>
+  <thead>
+    <tr>
+      <th>h1</th>
+      <th>h2</th>
+    </tr>
+  </thead>
+  <tbody>
+    <tr>
+      <td>b1</td>
+      <td>b2</td>
+    </tr>
+  </tbody>
+  <tfoot>
+    <tr>
+      <td>f1</td>
+      <td>f2</td>
+    </tr>
+  </tfoot>
+</table>"]],
+  [tablex ~caption:(caption [txt "txt"])
+    ~columns:[colgroup [col ~a:[a_span 2] ()]]
+    ~thead:(thead [tr [th [txt "h1"] ; th [txt "h2"]]])
+    ~tfoot:(tfoot [tr [td [txt "f1"] ; td [txt "f2"]]])
+    [tbody [tr [td [txt "b1"] ; td [txt "b2"]]]]] ;
+
   "whitespace in select",
   [[%html {|<select>  <option value="bar">bar</option>  </select>|}]],
   [select [option ~a:[a_value "bar"] @@ txt "bar"]] ;