Fix: hall-of-heroes

1 files changed, 13 insertions, 10 deletions

diff --git a/pages.lisp b/pages.lisp
index c6041fe..fb4026b 100644
--- a/pages.lisp
+++ b/pages.lisp
@@ -40,16 +40,19 @@
 
 (defun navbar ()
   (with-html
-    (:nav :class "navbar" :aria-label "Navigation"
-	  (:div :class "logo" :aria-label "DND logo" "DND")
-	  (:ul :class "nav-links" :aria-label "Nav links"
-	       (:li (:a :href "/hero" :aria-label "Hero profile" "🧝"))
-	       (:li (:a :href "/inventory" :aria-label "Inventory" "🎒"))
-	       (:li (:a :href "/quests" :aria-label "Quests" "📜"))
-	       (:li (:a :href "/tavern" :aria-label "Tavern" "🍺"))))))
+      (:nav :class "navbar" :aria-label "Navigation"
+	    (:div :class "logo" :aria-label "DND logo" "DND")
+	    (:ul :class "nav-links" :aria-label "Nav links"
+	         (:li (:a :href "/hero" :aria-label "Hero profile" "🧝"))
+	         (:li (:a :href "/inventory" :aria-label "Inventory" "🎒"))
+	         (:li (:a :href "/quests" :aria-label "Quests" "📜"))
+	         (:li (:a :href "/tavern" :aria-label "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)))))
+      (:ul :class "hall-of-heroes"
+           (dolist (hero (all-heroes))
+	     (:li (hero-name hero)
+                  "the"
+                  (hero-class hero)
+                  (hero-title hero))))))