Mercurial > urweb

comparison src/settings.sml @ 1555:d5c961c709f9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
New client-side, document-level event handlers
author Adam Chlipala <adam@chlipala.net>
date Sat, 03 Sep 2011 11:48:12 -0400
parents 883347f5c3c2
children e1f5d9c4cc20
comparison
equal deleted inserted replaced
1554:396e8d881205 1555:d5c961c709f9
145 "debug", 145 "debug",
146 "naughtyDebug", 146 "naughtyDebug",
147 "rand", 147 "rand",
148 "now", 148 "now",
149 "getHeader", 149 "getHeader",
150 "setHeader"] 150 "setHeader",
151 "spawn",
152 "onClick",
153 "onDblclick",
154 "onKeydown",
155 "onKeypress",
156 "onKeyup",
157 "onMousedown",
158 "onMouseup"]
151 159
152 val benign = ref benignBase 160 val benign = ref benignBase
153 fun setBenignEffectful ls = benign := S.addList (benignBase, ls) 161 fun setBenignEffectful ls = benign := S.addList (benignBase, ls)
154 fun isBenignEffectful x = S.member (!benign, x) 162 fun isBenignEffectful x = S.member (!benign, x)
155 163
164 "onError", 172 "onError",
165 "onFail", 173 "onFail",
166 "onConnectFail", 174 "onConnectFail",
167 "onDisconnect", 175 "onDisconnect",
168 "onServerError", 176 "onServerError",
169 "kc"] 177 "kc",
178 "onClick",
179 "onDblclick",
180 "onKeydown",
181 "onKeypress",
182 "onKeyup",
183 "onMousedown",
184 "onMouseup"]
170 val client = ref clientBase 185 val client = ref clientBase
171 fun setClientOnly ls = client := S.addList (clientBase, ls) 186 fun setClientOnly ls = client := S.addList (clientBase, ls)
172 fun isClientOnly x = S.member (!client, x) 187 fun isClientOnly x = S.member (!client, x)
173 188
174 val serverBase = basis ["requestHeader", 189 val serverBase = basis ["requestHeader",
253 ("now", "now"), 268 ("now", "now"),
254 ("timeToString", "showTime"), 269 ("timeToString", "showTime"),
255 ("htmlifyTime", "showTime"), 270 ("htmlifyTime", "showTime"),
256 ("toSeconds", "toSeconds"), 271 ("toSeconds", "toSeconds"),
257 ("addSeconds", "addSeconds"), 272 ("addSeconds", "addSeconds"),
258 ("diffInSeconds", "diffInSeconds")] 273 ("diffInSeconds", "diffInSeconds"),
274
275 ("onClick", "uw_onClick"),
276 ("onDblclick", "uw_onDblclick"),
277 ("onKeydown", "uw_onKeydown"),
278 ("onKeypress", "uw_onKeypress"),
279 ("onKeyup", "uw_onKeyup"),
280 ("onMousedown", "uw_onMousedown"),
281 ("onMouseup", "uw_onMouseup")]
259 val jsFuncs = ref jsFuncsBase 282 val jsFuncs = ref jsFuncsBase
260 fun setJsFuncs ls = jsFuncs := foldl (fn ((k, v), m) => M.insert (m, k, v)) jsFuncsBase ls 283 fun setJsFuncs ls = jsFuncs := foldl (fn ((k, v), m) => M.insert (m, k, v)) jsFuncsBase ls
261 fun jsFunc x = M.find (!jsFuncs, x) 284 fun jsFunc x = M.find (!jsFuncs, x)
262 fun allJsFuncs () = M.listItemsi (!jsFuncs) 285 fun allJsFuncs () = M.listItemsi (!jsFuncs)
263 286