blob: 85d8e3dc632351be85914e9b76113073ab99df06 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
;;;; 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))
|