From 58afc03ae572eb56cb5a3b7b685689433edc13c7 Mon Sep 17 00:00:00 2001 From: colin Date: Tue, 7 Mar 2023 19:29:39 -0800 Subject: Add: path to adventure pages; stuff to asd file; some endpoints --- src/pages/tavern.lisp | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'src/pages/tavern.lisp') 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)))) -- cgit v1.2.3