diff options
Diffstat (limited to 'src/pages/tavern.lisp')
| -rw-r--r-- | src/pages/tavern.lisp | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/pages/tavern.lisp b/src/pages/tavern.lisp index 0ec3cd5..591d424 100644 --- a/src/pages/tavern.lisp +++ b/src/pages/tavern.lisp @@ -12,6 +12,7 @@ (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) @@ -19,3 +20,12 @@ (:br) (:a :href "/adventure-awaits" "Embark on a new Adventure!")))) + +(defclass/std tavern-adventures () + ((your-adventures))) + + +(defrender t ((page tavern-adventures)) + (with-page (:title "Your Adventures") + (:h1 "You are seer on teh following adventures") + (render :list (your-adventures page)))) |