path: root/src/views/hero.lisp

;;;; views/hero.lisp 

(in-package :dnd)

(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)))))))