summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--pages.lisp23
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))))))