... | @@ -18,3 +18,21 @@ Probably one of the most useful so far that I've found. |
... | @@ -18,3 +18,21 @@ Probably one of the most useful so far that I've found. |
|
(defmacro+ps bind-event (name event &rest body)
|
|
(defmacro+ps bind-event (name event &rest body)
|
|
`((@ (@ (sel ,name)) bind) ,event ,@body))
|
|
`((@ (@ (sel ,name)) bind) ,event ,@body))
|
|
```
|
|
```
|
|
|
|
|
|
|
|
``` common-lisp
|
|
|
|
(defmacro+ps sel (name)
|
|
|
|
`($ ,name))
|
|
|
|
|
|
|
|
(defmacro+ps $. (name)
|
|
|
|
`(@ (sel ,name)))
|
|
|
|
|
|
|
|
(defmacro+ps on (what event &rest body)
|
|
|
|
`((@ ,what on) ,event ,@body))
|
|
|
|
|
|
|
|
(defmacro+ps bind-event (name event &rest body)
|
|
|
|
`((@ (@ (sel ,name)) bind) ,event ,@body))
|
|
|
|
|
|
|
|
(defmacro+ps selector-ready (selector &rest body)
|
|
|
|
`((@ (@ ($ ,selector)) ready) ,@body))
|
|
|
|
|
|
|
|
``` |
|
|
|
\ No newline at end of file |