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

(in-package :dnd)


;;; PAGES & PAGE CLASSES 

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

(defrender t ((tavern tavern))
  (with-page (:title "A Bustling Tavern")
      (let ((player (player tavern)))
        (render :details player)
        (when (player-heroes player)
          (:h2 "Your Heroes:")
          (render :list (player-heroes player)))
        (:a :href "tavern/adventures"  "Adventures for which you are seer.")
        (:br)
        (:a :href "/goddess-shrine" "Pray a new hero rises.")
        (:br)
        (:a :href "/spymaster" "Report a Roguish Rumour...")
        (:br)
        (:a :href "/adventure-awaits" "Embark on a new Adventure!"))))


;;; ENDPONT HELPERS

;;; ENDPOINT DEFINTIONS

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