blob: f413d9f2f267fe3190706e92513703808c9a8380 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
;;;; hero-apge.lisp -- shows a particular hero
(in-package :dnd)
(defclass hero-page ()
((hero :reader hero :initarg :hero)
(player :reader player :initarg :player)))
(defrender t ((page hero-page))
(with-page (:title (unique-name (hero page)))
(:h1 (unique-name (hero page)))
(:p "uhhh.....")))
|