From a73b31c1ca88d0cba7365e648e3da70c4124f27e Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Sat, 1 Apr 2023 15:53:13 -0700
Subject: Reorganizing the adventure page

---
 src/game/hero.lisp | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

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

diff --git a/src/game/hero.lisp b/src/game/hero.lisp
index 68606b2..56c5786 100644
--- a/src/game/hero.lisp
+++ b/src/game/hero.lisp
@@ -51,6 +51,9 @@
 
 ;;; HELPERS
 
+(defmethod unique-name ((hero hero))
+  (name hero))
+
 ;;; QUERIES
 (defun all-heroes ()
   (db:store-objects-with-class 'hero))
@@ -71,7 +74,6 @@
                    (:span  "who's quest is to")
                    (:span (render :link-to quest))))))
 
-
 (defrender :link-to ((hero hero))
   (with-html
     (:a :href (urlpath hero)
@@ -86,7 +88,11 @@
 (defrender t ((page hero-page))
   (with-page (:title (unique-name (hero page)))
     (:h1 (unique-name (hero page)))
-    (:p "uhhh.....")))
+    (:div
+     (if (quest (hero page))
+         (:p "This hero is questing on "
+             (render :link-to (quest (hero page))))
+         (:p "this hero is free to join a quest")))))
 
 (defrender t ((page (eql :goddess-shrine))) 
   (with-page (:title "A Sacred Shrine")
-- 
cgit v1.2.3