From cc10599f1531e18998fd8a6d80f8b17846699d63 Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Sat, 1 Apr 2023 10:13:17 -0700
Subject: Add navbar and various unaccountable changes

---
 src/game/adventure.lisp | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)

(limited to 'src/game/adventure.lisp')

diff --git a/src/game/adventure.lisp b/src/game/adventure.lisp
index 801bc5e..6bbd2d3 100644
--- a/src/game/adventure.lisp
+++ b/src/game/adventure.lisp
@@ -2,7 +2,7 @@
 
 (in-package :dnd)
 
-;;; MODEL CLASSES 
+;;; MODEL CLASSES
 
 (defclass adventure (game-object)
   ((creator
@@ -43,7 +43,7 @@
     :type player
     :documentation "The player who hast reported the vile rumor.")
    (reported
-    :accessor reported 
+    :accessor reported
     :initform (error "A rumor must contain some reported matter")
     :initarg :reported
     :type string
@@ -110,8 +110,6 @@ only the active quest(s) are considered, otherwise all quests are considered."
   (render :inline adventure))
 
 
-
-
 ;;; PAGES & PAGE CLASSES
 
 (defclass adventure-awaits ()
@@ -189,6 +187,14 @@ only the active quest(s) are considered, otherwise all quests are considered."
            (:br)
            (:button :type "submit" "Report!"))))
 
+(defclass/std tavern-adventures ()
+  ((your-adventures)))
+
+(defrender t ((page tavern-adventures))
+  (with-page (:title "Your Adventures")
+    (:h1 "You are seer on the following adventures")
+    (render :list (your-adventures page))))
+
 
 ;;; ENDPOINT HELPERS
 (define-id-plucker adventure)
@@ -203,9 +209,6 @@ only the active quest(s) are considered, otherwise all quests are considered."
                            :your-adventures (adventures-visible-by me)))))
 
 
-
-
-
 (defendpoint* :get "/adventure-awaits" () ()
   (with-session (player)
     (render (page-render-mode)
-- 
cgit v1.2.3