Home.md

@@ -18,3 +18,21 @@ Probably one of the most useful so far that I've found.
 (defmacro+ps bind-event (name event &rest 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