summaryrefslogtreecommitdiff
path: root/src/pages
diff options
context:
space:
mode:
Diffstat (limited to 'src/pages')
-rw-r--r--src/pages/adventure-page.lisp8
1 files changed, 6 insertions, 2 deletions
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))))))))