diff options
Diffstat (limited to 'src/game/tavern.lisp')
-rw-r--r-- | src/game/tavern.lisp | 26 |
1 files changed, 12 insertions, 14 deletions
diff --git a/src/game/tavern.lisp b/src/game/tavern.lisp index 5997218..5ddb8b9 100644 --- a/src/game/tavern.lisp +++ b/src/game/tavern.lisp @@ -6,22 +6,18 @@ ;;; PAGES & PAGE CLASSES (defclass/std tavern () - ((player))) + ((player adventures))) (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!")))) + (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 @@ -31,7 +27,9 @@ (defendpoint* :get "/tavern" () () (with-session (me) (render (page-render-mode) - (make-instance 'tavern :player me)))) + (make-instance 'tavern + :player me + :adventures (all-adventures))))) |