;;;; 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......")))