blob: 01deef231b9d6ab891e253449c73785408cd2ee9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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!"))))
|