blob: 80361a0e78e726e2f80339d656c0d987ddf265aa (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
;;;; 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))
(with-page (:title (title (adventure page)))
(:h1 (title (adventure page)))
(:p "uhh......")))
|