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

1 files changed, 10 insertions, 0 deletions

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))))