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

Define documentation template

This commit is contained in:
contrapunctus 2022-08-01 09:19:19 +05:30
parent a6aa231074
commit 8742f36642
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
templates
View File

@ -23,12 +23,11 @@ lisp-mode emacs-lisp-mode inferior-emacs-lisp-mode
slime-repl-mode lisp-mode slime-repl-mode lisp-mode
(dc "(defclass " (p "symbol") " (" (s "superclasses") ")" n> (dc "(defclass " (p "symbol") " (" (s "superclasses") ")" n>
"(" (p "s") "))") "(" p ")" q ")")
(s "(%" (p "slot" slot) (s "(%" (s slot)
" :initarg :" (s slot) n> " :initarg :" (s slot) n>
" :accessor " (s slot) > ")") " :accessor " (s slot) > ")")
(dg "(defgeneric " p " (" ")" n> (dg "(defgeneric " p " (" "))")
"(:documentation \"" (s "docstring") "\"))")
(qq "(ql:quickload '(" (p "packages") "))") (qq "(ql:quickload '(" (p "packages") "))")
(up "(use-package '(" (p "package") "))") (up "(use-package '(" (p "package") "))")
(ip "(in-package :" (p "package") ")") (ip "(in-package :" (p "package") ")")
@ -39,7 +38,8 @@ slime-repl-mode lisp-mode
(hpo "#+(or)") (hpo "#+(or)")
;; print debugging ;; print debugging
(pd "(format *debug-io* \"" (p "string") "\" " (p "args") ")") (pd "(format *debug-io* \"" (p "string") "\" " (p "args") ")")
(if "(:import-from :" (s "package") " #:" (s "symbol") ")") (im "(:import-from :" (s "package") " #:" (s "symbol") ")")
(d "(:documentation \"" (s "docstring") "\")")
sql-mode sql-mode
(ct "CREATE TABLE " (s "table") " (" (ct "CREATE TABLE " (s "table") " ("