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

(in-package :dnd)


;;; PAGES & PAGE CLASSES 

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

(defrender t ((tavern tavern))
  (with-page (:title "A Bustling Tavern")
    (let ((player (player tavern)))
      (render :details player)
      (when (player-heroes player)
        (:h4 "Your Heroes:")
        (render :list (player-heroes player)))
      (when (adventures tavern)
        (:h4 "All Adventures:")
        (render :list (adventures tavern))))))


;;; ENDPONT HELPERS

;;; ENDPOINT DEFINTIONS

(defendpoint* :get "/tavern" () ()
  (with-session (me)
    (render (page-render-mode)
            (make-instance 'tavern
                           :player me
                           :adventures (all-adventures)))))