diff options
Diffstat (limited to 'src/pages/adventure-page.lisp')
| -rw-r--r-- | src/pages/adventure-page.lisp | 8 |
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)))))))) |