From 56a584ab1b13ff9510dd5145a778000169901a76 Mon Sep 17 00:00:00 2001 From: Grant Shoshin Shangreaux Date: Sat, 1 Apr 2023 09:59:16 -0500 Subject: Add: aventure seers form --- src/pages/adventure-page.lisp | 17 +++++++++++------ 1 file changed, 11 insertions(+), 6 deletions(-) (limited to 'src/pages/adventure-page.lisp') 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"))))) -- cgit v1.2.3