summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGrant Shangreaux <shoshin@cicadas.surf>2023-01-24 22:50:07 -0600
committerGrant Shangreaux <shoshin@cicadas.surf>2023-01-24 22:52:49 -0600
commita7feb312d9b86c68ff93a191359756eff1645d87 (patch)
treeed180c2f68703d36ed370d0fc5f1c4bd1b810d41
parente1546328c72b6e406a77bacbbd62ee5d7579a65b (diff)
Add: emoji icon links and aria-labels to navbar [frontend]
-rw-r--r--pages.lisp15
1 files changed, 7 insertions, 8 deletions
diff --git a/pages.lisp b/pages.lisp
index 9900980..c6041fe 100644
--- a/pages.lisp
+++ b/pages.lisp
@@ -40,14 +40,13 @@
(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"))))))
+ (: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