summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adam@chlipala.net>2014-04-30 13:05:54 -0400
committerGravatar Adam Chlipala <adam@chlipala.net>2014-04-30 13:05:54 -0400
commit48f4fa7d2482829d6195e91e1cd4c5a940aacab4 (patch)
tree159ee8bab67c30caf6c7ccd03fdd72a45d81eeb2
parent57034827380cc25f19e1ea81af4087f9a2d7a406 (diff)
<thead>, <tbody>, <tfoot>
-rw-r--r--lib/ur/basis.urs10
-rw-r--r--tests/thead.ur16
2 files changed, 26 insertions, 0 deletions
diff --git a/lib/ur/basis.urs b/lib/ur/basis.urs
index 7fdac1f6..2525d676 100644
--- a/lib/ur/basis.urs
+++ b/lib/ur/basis.urs
@@ -992,6 +992,16 @@ val td : other ::: {Unit} -> [other ~ [Body, Tr]] => unit
-> tag ([Colspan = int, Rowspan = int] ++ tableAttrs)
([Tr] ++ other) ([Body] ++ other) [] []
+val thead : other ::: {Unit} -> [other ~ [Table]] => unit
+ -> tag tableAttrs
+ ([Table] ++ other) ([Table] ++ other) [] []
+val tbody : other ::: {Unit} -> [other ~ [Table]] => unit
+ -> tag tableAttrs
+ ([Table] ++ other) ([Table] ++ other) [] []
+val tfoot : other ::: {Unit} -> [other ~ [Table]] => unit
+ -> tag tableAttrs
+ ([Table] ++ other) ([Table] ++ other) [] []
+
(** Definition lists *)
val dl : other ::: {Unit} -> [other ~ [Body,Dl]]
diff --git a/tests/thead.ur b/tests/thead.ur
new file mode 100644
index 00000000..a9774348
--- /dev/null
+++ b/tests/thead.ur
@@ -0,0 +1,16 @@
+fun main () : transaction page = return <xml><body>
+ <table>
+ <thead>
+ <tr> <th>A</th> <th>B</th> </tr>
+ </thead>
+
+ <tbody>
+ <tr> <td>1</td> <td>2</td> </tr>
+ <tr> <td>3</td> <td>4</td> </tr>
+ </tbody>
+
+ <tfoot>
+ <tr> <th>C</th> <th>D</th> </tr>
+ </tfoot>
+ </table>
+</body></xml>