Mercurial > urweb
diff src/settings.sml @ 2189:43393a4a66ce
JavaScript versions of a few more functions
author | Adam Chlipala <adam@chlipala.net> |
---|---|
date | Sun, 01 Nov 2015 14:17:09 -0500 |
parents | 14c45a0b6362 |
children | fb113569519e 985c8016b592 |
line wrap: on
line diff
--- a/src/settings.sml Sun Nov 01 12:23:44 2015 -0500 +++ b/src/settings.sml Sun Nov 01 14:17:09 2015 -0500 @@ -376,7 +376,10 @@ ("atom", "atom"), ("css_url", "css_url"), ("property", "property"), - ("giveFocus", "giveFocus")] + ("giveFocus", "giveFocus"), + + ("htmlifySpecialChar", "htmlifySpecialChar"), + ("chr", "chr")] 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)