diff options
| -rw-r--r-- | lib/ur/basis.urs | 10 | ||||
| -rw-r--r-- | tests/thead.ur | 16 |
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> |