diff options
author | colin <colin@cicadas.surf> | 2023-04-01 10:13:17 -0700 |
---|---|---|
committer | colin <colin@cicadas.surf> | 2023-04-01 10:13:17 -0700 |
commit | cc10599f1531e18998fd8a6d80f8b17846699d63 (patch) | |
tree | 13b9e25456957f4db988e82b577338ebb861f03a /src/game/tavern.lisp | |
parent | 08a8e51de33a77b458b87dbd25bdfdceefb6584e (diff) |
Add navbar and various unaccountable changes
Diffstat (limited to 'src/game/tavern.lisp')
-rw-r--r-- | src/game/tavern.lisp | 18 |
1 files changed, 5 insertions, 13 deletions
diff --git a/src/game/tavern.lisp b/src/game/tavern.lisp index 25d6ef0..5997218 100644 --- a/src/game/tavern.lisp +++ b/src/game/tavern.lisp @@ -2,6 +2,9 @@ (in-package :dnd) + +;;; PAGES & PAGE CLASSES + (defclass/std tavern () ((player))) @@ -21,13 +24,9 @@ (:a :href "/adventure-awaits" "Embark on a new Adventure!")))) -(defclass/std tavern-adventures () - ((your-adventures))) +;;; ENDPONT HELPERS -(defrender t ((page tavern-adventures)) - (with-page (:title "Your Adventures") - (:h1 "You are seer on the following adventures") - (render :list (your-adventures page)))) +;;; ENDPOINT DEFINTIONS (defendpoint* :get "/tavern" () () (with-session (me) @@ -37,12 +36,5 @@ -(defendpoint* :get "/quest/:quest a-quest-with-id:/:name:" () () - (with-session (player) - (render (page-render-mode) - (make-instance 'quest-page - :player player - :hero quest)))) - |