From 8644811ecbf248cc7ac899d5cf9c589c54ed180f Mon Sep 17 00:00:00 2001 From: contrapunctus Date: Tue, 8 Mar 2022 17:01:58 +0530 Subject: [PATCH] Create defclass template; update defvar template --- templates | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/templates b/templates index 0f99863..34f8e44 100644 --- a/templates +++ b/templates @@ -13,13 +13,20 @@ emacs-lisp-mode lisp-mode emacs-lisp-mode (la "(lambda (" p ")" n> r> ")") -(dv "(defvar " p "\n \"" p "\")") +(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> ")") (ls "(let* (" p ")" n> r> ")") (ws "(with-slots (" (p "slots") ") " (p "object") n> ")") +lisp-mode +(dc "(defclass " (s "name") " (" (s "superclasses") ")" + n> "((" (p "slot" slot) + " :initarg :" (s slot) + n> " :accessor " (s slot) ")))") + slime-repl-mode (qq "(ql:quickload '(:" (p "packages") "))") (ip "(in-package :" (p "package") ")")