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