| 1 | ;; Shortcuts for usage in browser
|
| 2 | ;; Usage:
|
| 3 | ;; ($ "mydiv") same as (document.getElementById "mydiv")
|
| 4 | ;; ($listener domObject eventType (expression)...)
|
| 5 | ;; Event Object is available to the exoressions as "event"
|
| 6 |
|
| 7 | (macro $ (id)
|
| 8 | (document.getElementById ~id))
|
| 9 |
|
| 10 | (macro $listener (domObj eventName rest...)
|
| 11 | ((.addEventListener ~domObj) ~eventName
|
| 12 | (function (event)
|
| 13 | ~rest...)))
|
| 14 |
|