diff options
Diffstat (limited to 'pages.lisp')
| -rw-r--r-- | pages.lisp | 14 |
1 files changed, 14 insertions, 0 deletions
@@ -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 |