src/views/adventure.lisp


1
2
3
4
5
6
7
8
9
10
11
12

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