2022-02-14 16:16:50 +00:00
|
|
|
;;; -*- mode: emacs-lisp; -*-
|
|
|
|
|
|
|
|
emacs-lisp-mode
|
2022-02-24 15:57:19 +00:00
|
|
|
(dc "(defcustom " (s "symbol") " " (s "standard")
|
|
|
|
n> "\"" (s "docstring") "\""
|
|
|
|
n> ":type '" (s "type") ")")
|
2022-02-14 16:16:50 +00:00
|
|
|
(dg "(defgroup " p " nil\n \"" p "\"" n> ":group '" p n> ":prefix \"" p "-\")")
|
|
|
|
(cdg "(cl-defgeneric " p " (" ")" n> ")")
|
|
|
|
(cdm "(cl-defmethod " p " (" ")" n> ")")
|
2022-02-14 16:18:56 +00:00
|
|
|
(pm "(point-min)")
|
|
|
|
(pM "(point-max)")
|
2022-02-16 13:27:02 +00:00
|
|
|
(up "(use-package " (p "package") ")")
|
2022-02-18 21:35:32 +00:00
|
|
|
|
2022-07-05 07:59:23 +00:00
|
|
|
lisp-mode emacs-lisp-mode inferior-emacs-lisp-mode
|
2022-02-23 02:36:47 +00:00
|
|
|
(la "(lambda (" p ")" n> r> ")")
|
2022-03-08 11:31:58 +00:00
|
|
|
(dv "(defvar " (p "symbol" symbol) " " (p "value")
|
|
|
|
n> "\"" (p "doc") "\"" ")")
|
2022-02-23 02:36:47 +00:00
|
|
|
(dm "(defmethod " (p "name") " (" (p "arguments") ")" n> ")")
|
2022-02-24 15:57:05 +00:00
|
|
|
(df "(defun " (p "name") " (" (s "arguments") ")" n> r> ")")
|
2022-02-23 02:36:47 +00:00
|
|
|
(l "(let (" p ")" n> r> ")")
|
|
|
|
(ls "(let* (" p ")" n> r> ")")
|
|
|
|
(ws "(with-slots (" (p "slots") ") " (p "object") n> ")")
|
|
|
|
|
2022-07-05 07:59:23 +00:00
|
|
|
slime-repl-mode lisp-mode
|
|
|
|
(dc "(defclass " (p "symbol") " (" (s "superclasses") ")" n>
|
|
|
|
"(" "(" (p "slot" slot)
|
|
|
|
" :initarg :" (s slot) n>
|
|
|
|
" :accessor " (s slot) > ")" "))")
|
|
|
|
(dg "(defgeneric " p " (" ")" n>
|
|
|
|
"(:documentation \"" (s "docstring") "\"))")
|
|
|
|
(qq "(ql:quickload '(" (p "packages") "))")
|
|
|
|
(up "(use-package (" (p "package") "))")
|
2022-02-18 21:35:32 +00:00
|
|
|
(ip "(in-package :" (p "package") ")")
|
2022-03-08 11:31:39 +00:00
|
|
|
(l "(lambda (" (s "arguments") ") " (s "forms") ")")
|
2022-07-18 14:42:46 +00:00
|
|
|
(hha "#-(and)")
|
|
|
|
(hpo "#+(or)")
|
2022-02-24 19:18:27 +00:00
|
|
|
|
|
|
|
sql-mode
|
|
|
|
(ct "CREATE TABLE " (s "table") " ("
|
|
|
|
n " " (s "column") ","
|
|
|
|
n ");")
|