;;;; pages/tavern.lisp -- enter the tavern 

(in-package :dnd)

(defclass/std tavern ()
  ((player)))

(defrender t ((tavern tavern))
  (with-page (:title "A Bustling Tavern")
      (let ((player (player tavern)))
        (render :details player)
        (render :list (player-heroes player))
        (:br)
        (:a :href "/goddess-shrine" "Pray a new hero rises.")
        (:br)
        (:a :href "/spymaster" "Report a Roguish Rumour..."))))