diff lib/ur/basis.urs @ 1876:fdafa3f92e40

Add <dl> <dt> <dd> tags
author Sergey Mironov <grrwlf@gmail.com>
date Mon, 07 Oct 2013 14:08:53 +0400
parents 11d8e220f36f
children b44138e6a3bf 1e360ea06a09
line wrap: on
line diff
--- a/lib/ur/basis.urs	Thu Oct 10 14:01:19 2013 -0400
+++ b/lib/ur/basis.urs	Mon Oct 07 14:08:53 2013 +0400
@@ -976,6 +976,19 @@
   -> tag ([Colspan = int, Rowspan = int] ++ tableAttrs)
          ([Tr] ++ other) ([Body] ++ other) [] []
 
+(** Definition lists *)
+
+val dl : other ::: {Unit} -> [other ~ [Body,Dl]]
+  => unit
+  -> tag [] ([Body] ++ other) ([Dl] ++ other) [] []
+
+val dt : other ::: {Unit} -> [other ~ [Body,Dl]]
+  => unit
+  -> tag [] ([Dl] ++ other) ([Body] ++ other) [] []
+
+val dd : other ::: {Unit} -> [other ~ [Body,Dl]]
+  => unit
+  -> tag [] ([Dl] ++ other) ([Body] ++ other) [] []
 
 (** Aborting *)