;;; -*- 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 inferior-emacs-lisp-mode slime-repl-mode
(la "(lambda (" p ")" n> r> ")")
;; (l "(lambda (" (s "arguments") ") " (s "forms") ")")
(dv "(defvar " (p "symbol" symbol) " " (p "value")
    n> "\"" (p "doc") "\"" ")")
(dm "(defmethod " (p "name") " (" (p "arguments") ")" n> ")")
(df "(defun " (p "name") " (" (s "arguments") ")" n> r> ")")
(l  "(let (" p ")" n> r> q ")")
(ls "(let* (" p ")" n> r> q ")")
(ws "(with-slots (" (p "slots") ") " (p "object") n> ")")

slime-repl-mode lisp-mode
(dc "(defclass " (p "symbol") " (" (s "superclasses") ")" n>
    "(" p ")" q ")")
(s "(%" (s slot)
   " :initarg :" (s slot) n>
   " :accessor " (s slot) > ")")
(d ":documentation \"" (s "docstring") "\"")
(dg "(defgeneric " p " (" "))")
(qq "(ql:quickload '(" (p "packages") "))")
(dp "(defpackage :" (p "name")
    n> "(:use :cl)" q ")")
(up "(use-package '(" (p "package") "))")
(ip "(in-package :" (p "package") ")")
(ln "(:local-nicknames (:" (p "nickname") " :" (p "package-name") ")" q ")")
(c "#+(or)")
;; print debugging
(pd "(format *debug-io* \"" q "\")")
(im "(:import-from :" (s "package") " #:" (s "symbol") ")")
(di "(:default-initargs " (s "initarg") ")")
(qu "(ql:update-all-dists)" n> "(ql:update-client)")

sql-mode
(ct "CREATE TABLE " (s "table") " ("
    n "  " (s "column") ","
    n ");")

latex-mode
(be "\\begin{" (s env) "}" > n> r> "\\end{" (s env) "}")
(e "\\begin{enumerate}\n\\item " r> n> "\\end{enumerate}")
(i "\\begin{itemize}\n\\item " r> n> "\\end{itemize}")

texinfo-mode
(i "@include ")

org-mode
(x "[ ] ")