From 04df19a88a381e6bdc60d7f566e02e99b40c0087 Mon Sep 17 00:00:00 2001 From: Grant Shangreaux Date: Tue, 21 Feb 2023 22:39:29 -0600 Subject: Add: text browser tavern view --- pages.lisp | 14 ++++++++++++++ 1 file changed, 14 insertions(+) (limited to 'pages.lisp') diff --git a/pages.lisp b/pages.lisp index f9d057d..9701334 100644 --- a/pages.lisp +++ b/pages.lisp @@ -95,6 +95,20 @@ must specialize :left :milsddle :right on your desired data type." (with-page (:title "A Bustling Tavern") (render :three-column-layout tavern))) +(defun tavern-text (player) + (with-page (:title "A Bustling Tavern") + (render :page-text (make-instance 'tavern :player player)))) + +(defrender :page-text ((tavern tavern)) + (let ((player (player tavern))) + (with-html + (render :details player) + (:table + (:tr (:td (:h4 "Your Heroes")) + (:td (:h4 "Your Campaigns"))) + (:tr (:td (:h4 "Gossip & Gab")) + (:td (:h4 "Comrades in Arms"))))))) + (defrender :left ((tavern tavern)) (let ((player (player tavern))) (with-html -- cgit v1.2.3