summaryrefslogtreecommitdiff
path: root/pages.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'pages.lisp')
-rw-r--r--pages.lisp14
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