Mercurial > urweb

diff src/settings.sml @ 895:ae9e22822ec5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Key events get key code input
author Adam Chlipala <adamc@hcoop.net>
date Sat, 18 Jul 2009 12:53:26 -0400
parents 8f2159040bbb
children 5fe49effbc83
line wrap: on
line diff
--- a/src/settings.sml	Sat Jul 18 12:37:19 2009 -0400
+++ b/src/settings.sml	Sat Jul 18 12:53:26 2009 -0400
@@ -91,7 +91,8 @@
                            "onFail",
                            "onConnectFail",
                            "onDisconnect",
-                           "onServerError"]
+                           "onServerError",
+                           "kc"]
 
 val effectful = ref effectfulBase
 fun setEffectful ls = effectful := S.addList (effectfulBase, ls)
@@ -108,7 +109,8 @@
                         "onFail",
                         "onConnectFail",
                         "onDisconnect",
-                        "onServerError"]
+                        "onServerError",
+                        "kc"]
 val client = ref clientBase
 fun setClientOnly ls = client := S.addList (clientBase, ls)
 fun isClientOnly x = S.member (!client, x)
@@ -162,7 +164,8 @@
                           ("strindex", "sidx"),
                           ("strchr", "schr"),
                           ("substring", "ssub"),
-                          ("strcspn", "sspn")]
+                          ("strcspn", "sspn"),
+                          ("kc", "kc")]
 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)