summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/model.lisp3
-rw-r--r--src/pages/adventure-page.lisp8
2 files changed, 9 insertions, 2 deletions
diff --git a/src/model.lisp b/src/model.lisp
index e44d3b9..f8d19bc 100644
--- a/src/model.lisp
+++ b/src/model.lisp
@@ -157,6 +157,9 @@
(:metaclass db:persistent-class)
(:documentation "A adventure is a container of quests. Adventures are expected to be engaged with on a particular schedule, and are run by particular people."))
+(defun adventure-seers (adventure)
+ (cons (creator adventure) (seers adventure)))
+
(defclass rumor (game-object)
((reporter
:reader reporter
diff --git a/src/pages/adventure-page.lisp b/src/pages/adventure-page.lisp
index 01424a0..795f3db 100644
--- a/src/pages/adventure-page.lisp
+++ b/src/pages/adventure-page.lisp
@@ -11,5 +11,9 @@
(with-page (:title (title adventure))
(:h1 (title adventure))
(:p (description adventure))
- (:h2 "Seers: " (render :list (cons (creator adventure)
- (seers adventure)))))))
+ (:h2 "Seers: " (render :list (adventure-seers adventure)))
+ (:form :method "POST" :action ""
+ (:label :for "SEER" "Add a seer to this adventure:") (:br)
+ (:select :name "SEER"
+ (loop :for p :in (db:store-objects-with-class 'player)
+ :collect (:option :value (nickname p) (nickname p))))))))