From 331d8e9297aec59b5093b279dc6e97e618095033 Mon Sep 17 00:00:00 2001
From: contrapunctus <contrapunctus@disroot.org>
Date: Mon, 7 Nov 2022 11:55:25 +0530
Subject: [PATCH] Add :initform and define-presentation-method templates

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

diff --git a/templates b/templates
index 9d0d7f9..321938f 100644
--- a/templates
+++ b/templates
@@ -29,6 +29,7 @@ slime-repl-mode lisp-mode
    " :initarg :" (s slot) n>
    " :accessor " (s slot) > ")")
 (d ":documentation \"" (s "docstring") "\"")
+(if ":initform " q)
 (dg "(defgeneric " p " (" "))")
 (qq "(ql:quickload '(" (p "packages") "))")
 (dp "(defpackage :" (p "name")
@@ -42,6 +43,10 @@ slime-repl-mode lisp-mode
 (im "(:import-from :" (s "package") " #:" (s "symbol") ")")
 (di "(:default-initargs " (s "initarg") ")")
 (qu "(ql:update-all-dists)" n> "(ql:update-client)")
+(dpmp
+ "(define-presentation-method present "
+ n> "(object (type " (p "t") ") (stream " (p "t") ") view &key acceptably for-context-type)"
+ n> q ")")
 
 sql-mode
 (ct "CREATE TABLE " (s "table") " ("