From e1546328c72b6e406a77bacbbd62ee5d7579a65b Mon Sep 17 00:00:00 2001
From: Grant Shangreaux <shoshin@cicadas.surf>
Date: Tue, 24 Jan 2023 22:28:37 -0600
Subject: Add: navbar and hall-of-heroes list to tavern [frontend]

---
 pages.lisp | 24 +++++++++++++++++++++++-
 1 file changed, 23 insertions(+), 1 deletion(-)

(limited to 'pages.lisp')

diff --git a/pages.lisp b/pages.lisp
index 7f705cd..9900980 100644
--- a/pages.lisp
+++ b/pages.lisp
@@ -31,4 +31,26 @@
 
 (defun tavern (hero)
   (with-page (:title "A Bustling Tavern")
-    (:h1 "Aye! Welcome " (hero-name hero))))
+    (navbar)
+    (:h1 "Aye! Welcome " (hero-name hero))
+    (:div
+     :class "heroes-container"
+     (:h2 "Heroes of rampant renown:")
+     (hall-of-heroes))))
+
+(defun navbar ()
+  (with-html
+    (:div
+     :class "navbar"
+     (:div :class "logo" "DND")
+     (:ul :class "nav-links"
+	  (:li (:a :href "/hero" "Hero"))
+	  (:li (:a :href "/inventory" "Loot"))
+	  (:li (:a :href "/quests" "Quests"))
+	  (:li (:a :href "/tavern" "Tavern"))))))
+
+(defun hall-of-heroes ()
+  (with-html
+    (:ul :class "hall-of-heroes")
+    (loop for hero in (all-heroes)
+	  collect (:li (hero-name hero) "the" (hero-class hero) (hero-title hero)))))
-- 
cgit v1.2.3