blob: 01424a01d4eacc0a14dd89edc72aeda4e59a823b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
;;;; adventure-page.lisp -- shows a particular adventure
(in-package :dnd)
(defclass adventure-page ()
((adventure :reader adventure :initarg :adventure)
(player :reader player :initarg :player)))
(defrender t ((page adventure-page))
(let ((adventure (adventure page)))
(with-page (:title (title adventure))
(:h1 (title adventure))
(:p (description adventure))
(:h2 "Seers: " (render :list (cons (creator adventure)
(seers adventure)))))))
|
