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

Add :initform and define-presentation-method templates

production
contrapunctus 2022-11-07 11:55:25 +05:30
parent fb9da3127e
commit 331d8e9297
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
templates
View File

@ -29,6 +29,7 @@ slime-repl-mode lisp-mode
" :initarg :" (s slot) n>
" :accessor " (s slot) > ")")
(d ":documentation \"" (s "docstring") "\"")
(if ":initform " q)
(dg "(defgeneric " p " (" "))")
(qq "(ql:quickload '(" (p "packages") "))")
(dp "(defpackage :" (p "name")
@ -42,6 +43,10 @@ slime-repl-mode lisp-mode
(im "(:import-from :" (s "package") " #:" (s "symbol") ")")
(di "(:default-initargs " (s "initarg") ")")
(qu "(ql:update-all-dists)" n> "(ql:update-client)")
(dpmp
"(define-presentation-method present "
n> "(object (type " (p "t") ") (stream " (p "t") ") view &key acceptably for-context-type)"
n> q ")")
sql-mode
(ct "CREATE TABLE " (s "table") " ("