;;;; views/hero.lisp 

(in-package :dnd)

(defrender :list-item ((hero hero))
  (with-html
    (: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))))