Compare commits
2 Commits
3e04ea14bc
...
76d472b0e0
Author | SHA1 | Date |
---|---|---|
contrapunctus | 76d472b0e0 | |
contrapunctus | ce435b0993 |
|
@ -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 "
|
||||
|
@ -62,4 +65,4 @@ texinfo-mode
|
|||
(i "@include ")
|
||||
|
||||
org-mode
|
||||
(x "[ ] ")
|
||||
(b "[ ] ")
|
||||
|
|
Loading…
Reference in New Issue