From e2a60e8d2b8e41bcd2c9a39d8e2210f701b92353 Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Tue, 7 Mar 2023 18:36:45 -0800
Subject: Add: growing an app skeleton

---
 src/views/hero.lisp | 16 +++++++++++-----
 1 file changed, 11 insertions(+), 5 deletions(-)

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

diff --git a/src/views/hero.lisp b/src/views/hero.lisp
index 31fa169..90c2803 100644
--- a/src/views/hero.lisp
+++ b/src/views/hero.lisp
@@ -4,8 +4,14 @@
 
 (defrender :list-item ((hero hero))
   (with-html
-    (with-slots (name quest) hero
-	(:p name "the" (hero-class hero) (hero-title hero)
-            (when quest
-              (:span  "who is off in on a quest:  ")
-              (:span (render :inline quest)))))))
+    (:p
+     (render :link-to hero)
+     (a:when-let (quest (quest hero))
+       (:span  "who's quest is to")
+       (:span (render :link-to quest))))))
+
+
+(defrender :link-to ((hero hero))
+  (with-html
+    (:a :href (urlpath hero)
+        (unique-name hero) "the" (hero-class hero) (hero-title hero))))
-- 
cgit v1.2.3