From 698fba0a307dda4b28f16f92a44f095c18b97820 Mon Sep 17 00:00:00 2001 From: colin Date: Wed, 25 Jan 2023 06:57:45 -0800 Subject: Fix: hall-of-heroes --- pages.lisp | 23 +++++++++++++---------- 1 file 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)))))) -- cgit v1.2.3