From f7abccc38ceda7024ca375d34ed88f4fb561ef02 Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Sun, 5 Mar 2023 16:36:44 -0800
Subject: Reorganized codebase

---
 src/pages/doorkeeper.lisp | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 src/pages/doorkeeper.lisp

(limited to 'src/pages/doorkeeper.lisp')

diff --git a/src/pages/doorkeeper.lisp b/src/pages/doorkeeper.lisp
new file mode 100644
index 0000000..560637d
--- /dev/null
+++ b/src/pages/doorkeeper.lisp
@@ -0,0 +1,19 @@
+;;;; pages/doorkeeper.lisp -- announce yourself and enter the hero's tavern
+
+(in-package :dnd)
+
+;;; DOORKEEPER CLASS
+(defclass/std doorkeeper ()
+  ((message)))
+
+;; the t specialization works for all render targets 
+(defrender t ((page doorkeeper))
+  (with-page (:title "Tavern Door")
+    (:h1 (message page))
+    (:form :method "POST" :action "/tavern-door"
+	   (:label :for "NICKNAME" "Wut's yer handle?:")
+	   (:input :name "NICKNAME")
+	   (:button :type "submit" "Announce Thyself"))
+    (:h2 "Eh? Ye need to announce thyeself?")
+    (:a :href "/join" "Follow me...")))
+
-- 
cgit v1.2.3