contrapunctus
/
dotemacs
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add template for initialize-instance

This commit is contained in:
contrapunctus 2022-11-18 23:30:28 +05:30
parent 3e04ea14bc
commit ce435b0993
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
templates
View File

@ -16,7 +16,7 @@ lisp-mode emacs-lisp-mode inferior-emacs-lisp-mode slime-repl-mode
;; (l "(lambda (" (s "arguments") ") " (s "forms") ")")
(dv "(defvar " (p "symbol" symbol) " " (p "value")
n> "\"" (p "doc") "\"" ")")
(dm "(defmethod " (p "name") " (" (p "arguments") ")" n> ")")
(dm "(defmethod " (p "name") " (" (p "arguments") ")" n> q ")")
(df "(defun " (p "name") " (" (s "arguments") ")" n> r> ")")
(l "(let (" p ")" n> r> q ")")
(ls "(let* (" p ")" n> r> q ")")
@ -42,6 +42,9 @@ slime-repl-mode lisp-mode
(pd "(format *debug-io* \"" q "~%\")")
(im "(:import-from :" (s "package") " #:" (s "symbol") ")")
(di "(:default-initargs " (s "initarg") ")")
(ii "(defmethod initialize-instance :after" n>
" ((" p ") &rest initargs &key &allow-other-keys)"
n> q ")")
(qu "(ql:update-all-dists)" n> "(ql:update-client)")
(dpmp
"(define-presentation-method present "