diff options
author | colin <colin@cicadas.surf> | 2023-04-01 15:53:13 -0700 |
---|---|---|
committer | colin <colin@cicadas.surf> | 2023-04-01 15:53:13 -0700 |
commit | a73b31c1ca88d0cba7365e648e3da70c4124f27e (patch) | |
tree | c66e46b115a2f3881922a5109d242f913dc23d99 /src/game/hero.lisp | |
parent | cc10599f1531e18998fd8a6d80f8b17846699d63 (diff) |
Reorganizing the adventure page
Diffstat (limited to 'src/game/hero.lisp')
-rw-r--r-- | src/game/hero.lisp | 10 |
1 files changed, 8 insertions, 2 deletions
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") |