diff options
| -rw-r--r-- | pages.lisp | 23 |
1 files changed, 13 insertions, 10 deletions
@@ -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)))))) |