Add: aventure seers form

1 files changed, 11 insertions, 6 deletions

diff --git a/src/pages/adventure-page.lisp b/src/pages/adventure-page.lisp
index 795f3db..96264e3 100644
--- a/src/pages/adventure-page.lisp
+++ b/src/pages/adventure-page.lisp
@@ -11,9 +11,14 @@
     (with-page (:title (title adventure))
       (:h1 (title adventure))
       (:p (description 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))))))))
+      (:h2 "Rumors: ")
+					; (render :list (rumors adventure))
+      (:h2 "Architect of this Adventure: " (nickname (creator adventure)))
+      (:h2 "Seers: ")
+      (render :list (seers adventure))
+      (:form :method "POST" :action (urlpath adventure)
+             (:label :for "SEER" "Add a seer to this adventure:") (:br)
+             (:select :name "SEER"
+                      (loop :for p :in (all-other-players (player page))
+                            :collect (:option :value (nickname p) (nickname p))))
+             (:button :type "submit" "Add Seer")))))