From 8742f3664286989204eacd8a3dd11beffdfd47fd Mon Sep 17 00:00:00 2001
From: contrapunctus <contrapunctus@disroot.org>
Date: Mon, 1 Aug 2022 09:19:19 +0530
Subject: [PATCH] Define documentation template

---
 templates | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/templates b/templates
index aa5ab44..f51087e 100644
--- a/templates
+++ b/templates
@@ -23,12 +23,11 @@ lisp-mode emacs-lisp-mode inferior-emacs-lisp-mode
 
 slime-repl-mode lisp-mode
 (dc "(defclass " (p "symbol") " (" (s "superclasses") ")" n>
-    "(" (p "s") "))")
-(s "(%" (p "slot" slot)
+    "(" p ")" q ")")
+(s "(%" (s slot)
    " :initarg :" (s slot) n>
    " :accessor " (s slot) > ")")
-(dg "(defgeneric " p " (" ")" n>
-    "(:documentation \"" (s "docstring") "\"))")
+(dg "(defgeneric " p " (" "))")
 (qq "(ql:quickload '(" (p "packages") "))")
 (up "(use-package '(" (p "package") "))")
 (ip "(in-package :" (p "package") ")")
@@ -39,7 +38,8 @@ slime-repl-mode lisp-mode
 (hpo "#+(or)")
 ;; print debugging
 (pd "(format *debug-io* \"" (p "string") "\" " (p "args") ")")
-(if "(:import-from :" (s "package") " #:" (s "symbol") ")")
+(im "(:import-from :" (s "package") " #:" (s "symbol") ")")
+(d "(:documentation \"" (s "docstring") "\")")
 
 sql-mode
 (ct "CREATE TABLE " (s "table") " ("