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

Define local-nicknames template

This commit is contained in:
contrapunctus 2022-08-16 12:52:09 +05:30
parent 602f0cb5f3
commit a04e8cbeeb
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
templates
View File

@ -11,14 +11,15 @@ emacs-lisp-mode
(pM "(point-max)") (pM "(point-max)")
(up "(use-package " (p "package") ")") (up "(use-package " (p "package") ")")
lisp-mode emacs-lisp-mode inferior-emacs-lisp-mode lisp-mode emacs-lisp-mode inferior-emacs-lisp-mode slime-repl-mode
(la "(lambda (" p ")" n> r> ")") (la "(lambda (" p ")" n> r> ")")
;; (l "(lambda (" (s "arguments") ") " (s "forms") ")")
(dv "(defvar " (p "symbol" symbol) " " (p "value") (dv "(defvar " (p "symbol" symbol) " " (p "value")
n> "\"" (p "doc") "\"" ")") n> "\"" (p "doc") "\"" ")")
(dm "(defmethod " (p "name") " (" (p "arguments") ")" n> ")") (dm "(defmethod " (p "name") " (" (p "arguments") ")" n> ")")
(df "(defun " (p "name") " (" (s "arguments") ")" n> r> ")") (df "(defun " (p "name") " (" (s "arguments") ")" n> r> ")")
(l "(let (" p ")" n> r> ")") (l "(let (" p ")" n> r> q ")")
(ls "(let* (" p ")" n> r> ")") (ls "(let* (" p ")" n> r> q ")")
(ws "(with-slots (" (p "slots") ") " (p "object") n> ")") (ws "(with-slots (" (p "slots") ") " (p "object") n> ")")
slime-repl-mode lisp-mode slime-repl-mode lisp-mode
@ -33,7 +34,7 @@ slime-repl-mode lisp-mode
n> "(:use :cl)" q ")") n> "(:use :cl)" q ")")
(up "(use-package '(" (p "package") "))") (up "(use-package '(" (p "package") "))")
(ip "(in-package :" (p "package") ")") (ip "(in-package :" (p "package") ")")
(l "(lambda (" (s "arguments") ") " (s "forms") ")") (ln "(:local-nicknames (:" (p "nickname") " :" (p "package-name") ")" q ")")
(c "#+(or)") (c "#+(or)")
;; print debugging ;; print debugging
(pd "(format *debug-io* \"" (p "string") "\" " (p "args") ")") (pd "(format *debug-io* \"" (p "string") "\" " (p "args") ")")