Add :initform and define-presentation-method templates
This commit is contained in:
parent
fb9da3127e
commit
331d8e9297
|
@ -29,6 +29,7 @@ slime-repl-mode lisp-mode
|
||||||
" :initarg :" (s slot) n>
|
" :initarg :" (s slot) n>
|
||||||
" :accessor " (s slot) > ")")
|
" :accessor " (s slot) > ")")
|
||||||
(d ":documentation \"" (s "docstring") "\"")
|
(d ":documentation \"" (s "docstring") "\"")
|
||||||
|
(if ":initform " q)
|
||||||
(dg "(defgeneric " p " (" "))")
|
(dg "(defgeneric " p " (" "))")
|
||||||
(qq "(ql:quickload '(" (p "packages") "))")
|
(qq "(ql:quickload '(" (p "packages") "))")
|
||||||
(dp "(defpackage :" (p "name")
|
(dp "(defpackage :" (p "name")
|
||||||
|
@ -42,6 +43,10 @@ slime-repl-mode lisp-mode
|
||||||
(im "(:import-from :" (s "package") " #:" (s "symbol") ")")
|
(im "(:import-from :" (s "package") " #:" (s "symbol") ")")
|
||||||
(di "(:default-initargs " (s "initarg") ")")
|
(di "(:default-initargs " (s "initarg") ")")
|
||||||
(qu "(ql:update-all-dists)" n> "(ql:update-client)")
|
(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
|
sql-mode
|
||||||
(ct "CREATE TABLE " (s "table") " ("
|
(ct "CREATE TABLE " (s "table") " ("
|
||||||
|
|
Loading…
Reference in New Issue