From 04df19a88a381e6bdc60d7f566e02e99b40c0087 Mon Sep 17 00:00:00 2001
From: Grant Shangreaux <shoshin@cicadas.surf>
Date: Tue, 21 Feb 2023 22:39:29 -0600
Subject: Add: text browser tavern view

---
 endpoints.lisp | 10 ++++++++--
 pages.lisp     | 14 ++++++++++++++
 2 files changed, 22 insertions(+), 2 deletions(-)

diff --git a/endpoints.lisp b/endpoints.lisp
index af07f6e..4cd9aef 100644
--- a/endpoints.lisp
+++ b/endpoints.lisp
@@ -49,6 +49,10 @@ NIL if there is no session for the current request.
 I.e. It should be called within the scope of a request handler."
   (session-with-id (lzb:request-cookie +session-cookie-name+ )))
 
+(defun text-browser-p (user-agent)
+  "Returns T if user agent string matches on a list of known text browsers."
+  (some (lambda (s) (search s user-agent)) '("Emacs" "Lynx" "w3m")))
+
 (defmacro with-session ((player &key session (redirect "/tavern-door")) &body body)
   (let ((session (or session (gensym "SESSION"))))
     `(a:if-let (,session (current-session))
@@ -57,7 +61,6 @@ I.e. It should be called within the scope of a request handler."
        ,@body)
        (redirect-to ,redirect))))
 
-
 (defmacro with-checked-plist (typed-keys plist &rest body)
   "Like WITH-PLIST, but allows you to pass a checking function to
 automatically tansform plist values into something you actually
@@ -126,7 +129,9 @@ functions in url parameters in endpoint definitions."
 
 (defendpoint* :get "/tavern" () ()
   (with-session (me)
-    (tavern me)))
+    (if (text-browser-p (lzb:request-header :user-agent))
+	(tavern-text me)
+	(tavern me))))
 
 (defendpoint* :get "/godess-shrine" () ()
   (with-session (player)
@@ -144,3 +149,4 @@ functions in url parameters in endpoint definitions."
       (let ((campaign
               (create-campaign creator title)))
         (redirect-to (urlpath :details campaign))))))
+
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