Add: reporting rumors

1 files changed, 22 insertions, 0 deletions

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!"))))