diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2012-05-06 14:01:29 -0400 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2012-05-06 14:01:29 -0400 |
| commit | 9e25c1ce13add31807463c913129c24643944e38 (patch) | |
| tree | ccabcef63f0d66632cc4c8c486c6d3663eef3ced /lib/ur/basis.urs | |
| parent | 4387731e477e2af050841f916a03f5d8a975a164 (diff) | |
'style' attributes
Diffstat (limited to 'lib/ur/basis.urs')
| -rw-r--r-- | lib/ur/basis.urs | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/lib/ur/basis.urs b/lib/ur/basis.urs index ef2b9156..1c9de4b9 100644 --- a/lib/ur/basis.urs +++ b/lib/ur/basis.urs @@ -636,6 +636,17 @@ val classes : css_class -> css_class -> css_class (* The equivalent of writing one class after the other, separated by a space, in * an HTML 'class' attribute *) +type css_value +val atom : string -> css_value +type url +val css_url : url -> css_value +type css_property +val property : string -> css_property +val value : css_property -> css_value -> css_property +type css_style +val noStyle : css_style +val oneProperty : css_style -> css_property -> css_style + con tag :: {Type} -> {Unit} -> {Unit} -> {Type} -> {Type} -> Type con xml :: {Unit} -> {Type} -> {Type} -> Type @@ -650,6 +661,7 @@ val tag : attrsGiven ::: {Type} -> attrsAbsent ::: {Type} [bindOuter ~ bindInner] => css_class -> option (signal css_class) + -> css_style -> $attrsGiven -> tag (attrsGiven ++ attrsAbsent) ctxOuter ctxInner useOuter bindOuter @@ -695,7 +707,6 @@ con xform = xml form [] [] type queryString val show_queryString : show queryString -type url val show_url : show url val bless : string -> url val checkUrl : string -> option url |