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/join.lisp | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 src/pages/join.lisp

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

diff --git a/src/pages/join.lisp b/src/pages/join.lisp
new file mode 100644
index 0000000..b48d102
--- /dev/null
+++ b/src/pages/join.lisp
@@ -0,0 +1,13 @@
+;;;; pages/join-gaming-group.lisp
+
+(in-package :dnd)
+
+(defrender t ((page (eql :join)))
+  (with-page (:title "Register Player")
+    (:header
+     (:h1 "Choose a Nickname Player"))
+    (:form :method "POST" :action "/join"
+           (:label  :for "NICKNAME" "Choose a nickname. No spaces. Letters, Numbers, and -._")
+           (:input :name "NICKNAME" :placeholder "superbob")
+           (:button :type "submit" "Register"))))
+
-- 
cgit v1.2.3