Create defclass template; update defvar template
This commit is contained in:
parent
d404225e88
commit
8644811ecb
|
@ -13,13 +13,20 @@ emacs-lisp-mode
|
||||||
|
|
||||||
lisp-mode emacs-lisp-mode
|
lisp-mode emacs-lisp-mode
|
||||||
(la "(lambda (" p ")" n> r> ")")
|
(la "(lambda (" p ")" n> r> ")")
|
||||||
(dv "(defvar " p "\n \"" p "\")")
|
(dv "(defvar " (p "symbol" symbol) " " (p "value")
|
||||||
|
n> "\"" (p "doc") "\"" ")")
|
||||||
(dm "(defmethod " (p "name") " (" (p "arguments") ")" n> ")")
|
(dm "(defmethod " (p "name") " (" (p "arguments") ")" n> ")")
|
||||||
(df "(defun " (p "name") " (" (s "arguments") ")" n> r> ")")
|
(df "(defun " (p "name") " (" (s "arguments") ")" n> r> ")")
|
||||||
(l "(let (" p ")" n> r> ")")
|
(l "(let (" p ")" n> r> ")")
|
||||||
(ls "(let* (" p ")" n> r> ")")
|
(ls "(let* (" p ")" n> r> ")")
|
||||||
(ws "(with-slots (" (p "slots") ") " (p "object") n> ")")
|
(ws "(with-slots (" (p "slots") ") " (p "object") n> ")")
|
||||||
|
|
||||||
|
lisp-mode
|
||||||
|
(dc "(defclass " (s "name") " (" (s "superclasses") ")"
|
||||||
|
n> "((" (p "slot" slot)
|
||||||
|
" :initarg :" (s slot)
|
||||||
|
n> " :accessor " (s slot) ")))")
|
||||||
|
|
||||||
slime-repl-mode
|
slime-repl-mode
|
||||||
(qq "(ql:quickload '(:" (p "packages") "))")
|
(qq "(ql:quickload '(:" (p "packages") "))")
|
||||||
(ip "(in-package :" (p "package") ")")
|
(ip "(in-package :" (p "package") ")")
|
||||||
|
|
Loading…
Reference in New Issue