Add: text browser tavern view

1 files changed, 14 insertions, 0 deletions

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