;;;; views/adventure.lisp -- views of for adventure instances

(in-package :dnd)

(defrender :inline ((adventure adventure))
  (with-html
      (:a :href (urlpath adventure) (title adventure))))

(defrender :option ((adventure adventure))
  (with-html
    (:option :value (uid adventure) (title adventure))))

(defrender :list-item ((adventure adventure))
  (render :inline adventure))