Mercurial > urweb
comparison lib/ur/basis.urs @ 1292:a671c986f517
Support multiple CSS classes for a single tag
author | Adam Chlipala <adam@chlipala.net> |
---|---|
date | Sun, 05 Sep 2010 12:50:06 -0400 |
parents | be6e2cd8d9a9 |
children | acabf3935060 |
comparison
equal
deleted
inserted
replaced
1291:be6e2cd8d9a9 | 1292:a671c986f517 |
---|---|
561 | 561 |
562 | 562 |
563 (** XML *) | 563 (** XML *) |
564 | 564 |
565 type css_class | 565 type css_class |
566 val classes : css_class -> css_class -> css_class | |
567 (* The equivalent of writing one class after the other, separated by a space, in | |
568 * an HTML 'class' attribute *) | |
566 | 569 |
567 con tag :: {Type} -> {Unit} -> {Unit} -> {Type} -> {Type} -> Type | 570 con tag :: {Type} -> {Unit} -> {Unit} -> {Type} -> {Type} -> Type |
568 | 571 |
569 con xml :: {Unit} -> {Type} -> {Type} -> Type | 572 con xml :: {Unit} -> {Type} -> {Type} -> Type |
570 val cdata : ctx ::: {Unit} -> use ::: {Type} -> string -> xml ctx use [] | 573 val cdata : ctx ::: {Unit} -> use ::: {Type} -> string -> xml ctx use [] |