From e2a60e8d2b8e41bcd2c9a39d8e2210f701b92353 Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Tue, 7 Mar 2023 18:36:45 -0800
Subject: Add: growing an app skeleton

---
 src/pages/adventure-page.lisp | 10 +++++++---
 src/pages/hero-page.lisp      | 12 ++++++++++++
 src/pages/quest-page.lisp     | 11 +++++++++++
 src/pages/tavern.lisp         |  4 +++-
 4 files changed, 33 insertions(+), 4 deletions(-)
 create mode 100644 src/pages/hero-page.lisp
 create mode 100644 src/pages/quest-page.lisp

(limited to 'src/pages')

diff --git a/src/pages/adventure-page.lisp b/src/pages/adventure-page.lisp
index fd9cb09..80361a0 100644
--- a/src/pages/adventure-page.lisp
+++ b/src/pages/adventure-page.lisp
@@ -2,7 +2,11 @@
 
 (in-package :dnd)
 
-(defrender :page ((adventure adventure))
-  (with-page (:title (title adventure))
-    (:h1 (title adventure))
+(defclass adventure-page ()
+  ((adventure :reader adventure :initarg :adventure)
+   (player :reader player :initarg :player)))
+
+(defrender t ((page adventure-page))
+  (with-page (:title (title (adventure page)))
+    (:h1 (title (adventure page)))
     (:p "uhh......")))
diff --git a/src/pages/hero-page.lisp b/src/pages/hero-page.lisp
new file mode 100644
index 0000000..f413d9f
--- /dev/null
+++ b/src/pages/hero-page.lisp
@@ -0,0 +1,12 @@
+;;;; hero-apge.lisp -- shows a particular hero
+
+(in-package :dnd)
+
+(defclass hero-page ()
+  ((hero :reader hero :initarg :hero)
+   (player :reader player :initarg :player)))
+
+(defrender t ((page hero-page))
+  (with-page (:title (unique-name (hero page)))
+    (:h1 (unique-name (hero page)))
+    (:p "uhhh.....")))
diff --git a/src/pages/quest-page.lisp b/src/pages/quest-page.lisp
new file mode 100644
index 0000000..9c02d51
--- /dev/null
+++ b/src/pages/quest-page.lisp
@@ -0,0 +1,11 @@
+;;;; quest-page.lisp
+
+(in-package :dnd)
+
+(defclass quest-page ()
+  ((quest :reader quest :initarg :quest)
+   (player :reader player :initarg :player)))
+
+(defrender t ((page quest))
+  (with-page (:title (unique-name (quest page )))
+    (:h1 (unique-name (quest page)))))
diff --git a/src/pages/tavern.lisp b/src/pages/tavern.lisp
index 1f6c441..0ec3cd5 100644
--- a/src/pages/tavern.lisp
+++ b/src/pages/tavern.lisp
@@ -9,7 +9,9 @@
   (with-page (:title "A Bustling Tavern")
       (let ((player (player tavern)))
         (render :details player)
-        (render :list (player-heroes player))
+        (when (player-heroes player)
+          (:h2 "Your Heroes'")
+          (render :list (player-heroes player)))
         (:br)
         (:a :href "/goddess-shrine" "Pray a new hero rises.")
         (:br)
-- 
cgit v1.2.3