1 files changed, 23 insertions, 1 deletions
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)))))