From efa771e3cc363dae68b57dfcc5c67c511a1d3331 Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Tue, 7 Mar 2023 19:15:12 -0800
Subject: Add: reporting rumors

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

(limited to 'src/pages')

diff --git a/src/pages/spymaster.lisp b/src/pages/spymaster.lisp
new file mode 100644
index 0000000..01deef2
--- /dev/null
+++ b/src/pages/spymaster.lisp
@@ -0,0 +1,22 @@
+;;;; spymaster.lisp
+
+(in-package :dnd)
+
+(defclass spymaster ()
+  ((player :reader player :initarg :player)
+   (adventures :reader adventures :initarg :adventures)))
+
+
+(defrender t ((page spymaster))
+  (with-page (:title "spymaster - report a rumor")
+    (:h1 "Of what hazards have ye heard rumor?")
+    (:form :method "POST" :action "/spymaster"
+           (:label :for "ADVENTURE" "What adventure did ye hear a rumor about?")
+           (:br)
+           (render :select (adventures page) :name "ADVENTURE")
+           (:br)
+           (:label :for "REPORTED" "And what did ye have to report?")
+           (:br)
+           (:textarea :name "REPORTED" :rows "5" :cols "60")
+           (:br)
+           (:button :type "submit" "Report!"))))
-- 
cgit v1.2.3