From 12662d6a0fceb0c2adfdc4d0947800994bc85718 Mon Sep 17 00:00:00 2001
From: shoshin <shoshin@cicadas.surf>
Date: Mon, 13 Mar 2023 21:52:18 -0500
Subject: Add: minor tweaks, player list item view in adventure

---
 src/pages/adventure-page.lisp | 9 ++++++---
 src/pages/doorkeeper.lisp     | 4 ++--
 src/pages/join.lisp           | 4 ++--
 src/pages/tavern.lisp         | 5 ++---
 4 files changed, 12 insertions(+), 10 deletions(-)

(limited to 'src/pages')

diff --git a/src/pages/adventure-page.lisp b/src/pages/adventure-page.lisp
index 80361a0..01424a0 100644
--- a/src/pages/adventure-page.lisp
+++ b/src/pages/adventure-page.lisp
@@ -7,6 +7,9 @@
    (player :reader player :initarg :player)))
 
 (defrender t ((page adventure-page))
-  (with-page (:title (title (adventure page)))
-    (:h1 (title (adventure page)))
-    (:p "uhh......")))
+  (let ((adventure (adventure page)))
+    (with-page (:title (title adventure))
+      (:h1 (title adventure))
+      (:p (description adventure))
+      (:h2 "Seers: " (render :list (cons (creator adventure)
+					 (seers adventure)))))))
diff --git a/src/pages/doorkeeper.lisp b/src/pages/doorkeeper.lisp
index 560637d..15774fb 100644
--- a/src/pages/doorkeeper.lisp
+++ b/src/pages/doorkeeper.lisp
@@ -12,8 +12,8 @@
     (:h1 (message page))
     (:form :method "POST" :action "/tavern-door"
 	   (:label :for "NICKNAME" "Wut's yer handle?:")
-	   (:input :name "NICKNAME")
+	   (:input :name "NICKNAME") (:br)
 	   (:button :type "submit" "Announce Thyself"))
-    (:h2 "Eh? Ye need to announce thyeself?")
+    (:h2 "Eh? Ye need to register for admission?")
     (:a :href "/join" "Follow me...")))
 
diff --git a/src/pages/join.lisp b/src/pages/join.lisp
index b48d102..f1ebeff 100644
--- a/src/pages/join.lisp
+++ b/src/pages/join.lisp
@@ -5,9 +5,9 @@
 (defrender t ((page (eql :join)))
   (with-page (:title "Register Player")
     (:header
-     (:h1 "Choose a Nickname Player"))
+     (:h1 "Choose a Player Nickname"))
     (:form :method "POST" :action "/join"
-           (:label  :for "NICKNAME" "Choose a nickname. No spaces. Letters, Numbers, and -._")
+           (:label  :for "NICKNAME" "Choose a nickname using only letters, numbers, and -._ (no spaces)") (:br)
            (:input :name "NICKNAME" :placeholder "superbob")
            (:button :type "submit" "Register"))))
 
diff --git a/src/pages/tavern.lisp b/src/pages/tavern.lisp
index 591d424..2fb7498 100644
--- a/src/pages/tavern.lisp
+++ b/src/pages/tavern.lisp
@@ -10,7 +10,7 @@
       (let ((player (player tavern)))
         (render :details player)
         (when (player-heroes player)
-          (:h2 "Your Heroes'")
+          (:h2 "Your Heroes:")
           (render :list (player-heroes player)))
         (:a :href "tavern/adventures"  "Adventures for which you are seer.")
         (:br)
@@ -24,8 +24,7 @@
 (defclass/std tavern-adventures ()
   ((your-adventures)))
 
-
 (defrender t ((page tavern-adventures))
   (with-page (:title "Your Adventures")
-    (:h1 "You are seer on teh following adventures")
+    (:h1 "You are seer on the following adventures")
     (render :list (your-adventures page))))
-- 
cgit v1.2.3