summaryrefslogtreecommitdiff
path: root/src/pages
diff options
context:
space:
mode:
authorGrant Shoshin Shangreaux <shoshin@cicadas.surf>2023-04-01 09:59:16 -0500
committerGrant Shoshin Shangreaux <shoshin@cicadas.surf>2023-04-01 09:59:16 -0500
commit56a584ab1b13ff9510dd5145a778000169901a76 (patch)
tree87bc66e865da64f641152b64539bf6bbfc900218 /src/pages
parent20e0bb168032e2e2aa95b08e2dbc9bedced62df3 (diff)
Add: aventure seers form
Diffstat (limited to 'src/pages')
-rw-r--r--src/pages/adventure-page.lisp17
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")))))