Update Lisp templates

This commit is contained in:
contrapunctus 2022-07-05 13:29:23 +05:30
parent 6da9e69eb0
commit d3416185e2
1 changed files with 10 additions and 9 deletions

View File

@ -11,7 +11,7 @@ emacs-lisp-mode
(pM "(point-max)")
(up "(use-package " (p "package") ")")
lisp-mode emacs-lisp-mode
lisp-mode emacs-lisp-mode inferior-emacs-lisp-mode
(la "(lambda (" p ")" n> r> ")")
(dv "(defvar " (p "symbol" symbol) " " (p "value")
n> "\"" (p "doc") "\"" ")")
@ -21,14 +21,15 @@ lisp-mode emacs-lisp-mode
(ls "(let* (" p ")" n> r> ")")
(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
(qq "(ql:quickload '(:" (p "packages") "))")
slime-repl-mode lisp-mode
(dc "(defclass " (p "symbol") " (" (s "superclasses") ")" n>
"(" "(" (p "slot" slot)
" :initarg :" (s slot) n>
" :accessor " (s slot) > ")" "))")
(dg "(defgeneric " p " (" ")" n>
"(:documentation \"" (s "docstring") "\"))")
(qq "(ql:quickload '(" (p "packages") "))")
(up "(use-package (" (p "package") "))")
(ip "(in-package :" (p "package") ")")
(l "(lambda (" (s "arguments") ") " (s "forms") ")")