;;;; views/hero.lisp 

(in-package :dnd)

(defrender :list-item ((hero hero))
  (with-html
    (with-slots ((name campaign) hero)
	(:p name "the" (hero-class hero) (hero-title hero)
            (when campaign
              (:span  "who is off in the campaign")
              (:span (render :inline campaign)))))))