Mercurial > urweb
diff src/settings.sml @ 1755:e9587120831a
Run-time CSS style validation
author | Adam Chlipala <adam@chlipala.net> |
---|---|
date | Sun, 06 May 2012 16:08:48 -0400 |
parents | 675ce534e3ec |
children | 59b07fdae1ff |
line wrap: on
line diff
--- a/src/settings.sml Sun May 06 15:46:25 2012 -0400 +++ b/src/settings.sml Sun May 06 16:08:48 2012 -0400 @@ -315,7 +315,11 @@ ("preventDefault", "uw_preventDefault"), ("stopPropagation", "uw_stopPropagation"), - ("fresh", "fresh")] + ("fresh", "fresh"), + + ("atom", "atom"), + ("css_url", "css_url"), + ("property", "property")] val jsFuncs = ref jsFuncsBase fun setJsFuncs ls = jsFuncs := foldl (fn ((k, v), m) => M.insert (m, k, v)) jsFuncsBase ls fun jsFunc x = M.find (!jsFuncs, x)