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

Add with-slots template, move elisp templates to lisp-mode

This commit is contained in:
contrapunctus 2022-02-23 08:06:47 +05:30
parent 5a0afc2c8f
commit f7f91a2275
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
templates
View File

@ -1,22 +1,24 @@
;;; -*- mode: emacs-lisp; -*-
emacs-lisp-mode
(la "(lambda (" p ")" n> r> ")")
(dv "(defvar " p "\n \"" p "\")")
(dc "(defcustom " p "\n \"" p "\"" n> ":type '" p ")")
(dg "(defgroup " p " nil\n \"" p "\"" n> ":group '" p n> ":prefix \"" p "-\")")
(dm "(defmacro " p " (" p ")\n \"" p "\"" n> r> ")")
(df "(defun " p " (" p ")\n \"" p "\"" n> r> ")")
(l "(let (" p ")" n> r> ")")
(ls "(let* (" p ")" n> r> ")")
(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") " (" (p "args") ")" 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") "))")
(qq "(ql:quickload '(:" (p "packages") "))")
(ip "(in-package :" (p "package") ")")