blob: 90c2803b2f7d22c808f6263f0dad9f6a73a44ec6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
;;;; views/hero.lisp
(in-package :dnd)
(defrender :list-item ((hero hero))
(with-html
(:p
(render :link-to hero)
(a:when-let (quest (quest hero))
(:span "who's quest is to")
(:span (render :link-to quest))))))
(defrender :link-to ((hero hero))
(with-html
(:a :href (urlpath hero)
(unique-name hero) "the" (hero-class hero) (hero-title hero))))
|