Mercurial > urweb

comparison src/settings.sml @ 1755:e9587120831a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Run-time CSS style validation
author Adam Chlipala <adam@chlipala.net>
date Sun, 06 May 2012 16:08:48 -0400
parents 675ce534e3ec
children 59b07fdae1ff
comparison
equal deleted inserted replaced
1754:a1380fc15cb5 1755:e9587120831a
313 ("onMousedown", "uw_onMousedown"), 313 ("onMousedown", "uw_onMousedown"),
314 ("onMouseup", "uw_onMouseup"), 314 ("onMouseup", "uw_onMouseup"),
315 ("preventDefault", "uw_preventDefault"), 315 ("preventDefault", "uw_preventDefault"),
316 ("stopPropagation", "uw_stopPropagation"), 316 ("stopPropagation", "uw_stopPropagation"),
317 317
318 ("fresh", "fresh")] 318 ("fresh", "fresh"),
319
320 ("atom", "atom"),
321 ("css_url", "css_url"),
322 ("property", "property")]
319 val jsFuncs = ref jsFuncsBase 323 val jsFuncs = ref jsFuncsBase
320 fun setJsFuncs ls = jsFuncs := foldl (fn ((k, v), m) => M.insert (m, k, v)) jsFuncsBase ls 324 fun setJsFuncs ls = jsFuncs := foldl (fn ((k, v), m) => M.insert (m, k, v)) jsFuncsBase ls
321 fun jsFunc x = M.find (!jsFuncs, x) 325 fun jsFunc x = M.find (!jsFuncs, x)
322 fun allJsFuncs () = M.listItemsi (!jsFuncs) 326 fun allJsFuncs () = M.listItemsi (!jsFuncs)
323 327