summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorcolin <colin@cicadas.surf>2023-03-07 19:29:39 -0800
committercolin <colin@cicadas.surf>2023-03-07 19:29:39 -0800
commit58afc03ae572eb56cb5a3b7b685689433edc13c7 (patch)
tree62547adeeb3bd140637ddae65524e84f81e9dadc /src
parentefa771e3cc363dae68b57dfcc5c67c511a1d3331 (diff)
Add: path to adventure pages; stuff to asd file; some endpointscolins-hacking
Diffstat (limited to 'src')
-rw-r--r--src/endpoints.lisp6
-rw-r--r--src/pages/tavern.lisp10
-rw-r--r--src/views/adventure.lisp4
3 files changed, 19 insertions, 1 deletions
diff --git a/src/endpoints.lisp b/src/endpoints.lisp
index 51d2de3..096603a 100644
--- a/src/endpoints.lisp
+++ b/src/endpoints.lisp
@@ -138,6 +138,12 @@ functions in url parameters in endpoint definitions."
(render (page-render-mode)
(make-instance 'tavern :player me))))
+(defendpoint* :get "/tavern/adventures" () ()
+ (with-session (me)
+ (render (page-render-mode)
+ (make-instance 'tavern-adventures
+ :your-adventures (adventures-visible-by me)))))
+
(defendpoint* :get "/goddess-shrine" () ()
(with-session (player)
(render (page-render-mode) :goddess-shrine)))
diff --git a/src/pages/tavern.lisp b/src/pages/tavern.lisp
index 0ec3cd5..591d424 100644
--- a/src/pages/tavern.lisp
+++ b/src/pages/tavern.lisp
@@ -12,6 +12,7 @@
(when (player-heroes player)
(:h2 "Your Heroes'")
(render :list (player-heroes player)))
+ (:a :href "tavern/adventures" "Adventures for which you are seer.")
(:br)
(:a :href "/goddess-shrine" "Pray a new hero rises.")
(:br)
@@ -19,3 +20,12 @@
(:br)
(:a :href "/adventure-awaits" "Embark on a new Adventure!"))))
+
+(defclass/std tavern-adventures ()
+ ((your-adventures)))
+
+
+(defrender t ((page tavern-adventures))
+ (with-page (:title "Your Adventures")
+ (:h1 "You are seer on teh following adventures")
+ (render :list (your-adventures page))))
diff --git a/src/views/adventure.lisp b/src/views/adventure.lisp
index 8d4cebc..85d8e3d 100644
--- a/src/views/adventure.lisp
+++ b/src/views/adventure.lisp
@@ -2,7 +2,6 @@
(in-package :dnd)
-
(defrender :inline ((adventure adventure))
(with-html
(:a :href (urlpath adventure) (title adventure))))
@@ -10,3 +9,6 @@
(defrender :option ((adventure adventure))
(with-html
(:option :value (uid adventure) (title adventure))))
+
+(defrender :list-item ((adventure adventure))
+ (render :inline adventure))