Mercurial > gui

comparison style.ur @ 29:93140c5cc972

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Clean up dependencies and examples; add Style module
author Adam Chlipala <adam@chlipala.net>
date Sat, 12 May 2012 10:03:44 -0400
parents
children d32fb0f7b137
comparison
equal deleted inserted replaced
28:7d0014542199 29:93140c5cc972
1 class attr t = t -> css_value
2 val attr_string = atom
3 fun attr_int n = atom (show n)
4 val attr_url = css_url
5 fun valu [t] (f : attr t) (x : t) = f x
6
7 fun prop1 [t] (f : attr t) (s : string) (x : t) =
8 oneProperty noStyle (value (property s) (f x))
9
10 fun prop (s : string) (xs : list css_value) =
11 oneProperty noStyle (List.foldl (fn x p => value p x) (property s) xs)
12
13 fun props (ls : list (string * list css_value)) =
14 List.foldl (fn (s, xs) acc =>
15 oneProperty acc (List.foldl (fn x p => value p x) (property s) xs))
16 noStyle ls