Add: path to adventure pages; stuff to asd file; some endpointscolins-hacking

1 files changed, 6 insertions, 0 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)))