;;; -*- mode: emacs-lisp; -*-

emacs-lisp-mode
(dc "(defcustom " (s "symbol") " " (s "standard")
    n> "\"" (s "docstring") "\""
    n> ":type '" (s "type") ")")
(dg "(defgroup " p " nil\n  \"" p "\"" n> ":group '" p n> ":prefix \"" p "-\")")
(cdg "(cl-defgeneric " p " (" ")" n> ")")
(cdm "(cl-defmethod " p " (" ")" n> ")")
(pm "(point-min)")
(pM "(point-max)")
(up "(use-package " (p "package") ")")

lisp-mode emacs-lisp-mode
(la "(lambda (" p ")" n> r> ")")
(dv "(defvar " p "\n  \"" p "\")")
(dm "(defmethod " (p "name") " (" (p "arguments") ")" n> ")")
(df "(defun " (p "name") " (" (s "arguments") ")" n> r> ")")
(l  "(let (" p ")" n> r> ")")
(ls "(let* (" p ")" n> r> ")")
(ws "(with-slots (" (p "slots") ") " (p "object") n> ")")

slime-repl-mode
(qq "(ql:quickload '(:" (p "packages") "))")
(ip "(in-package :" (p "package") ")")
(l "(lambda (" (p "arguments") ") " (p "forms") ")")