From a4faaf7646585fa93419206d754ceba0912c614d Mon Sep 17 00:00:00 2001
From: Richard Feldman <oss@rtfeldman.com>
Date: Tue, 31 Oct 2023 22:36:03 -0400
Subject: [PATCH] Add aria-label="primary" to main <nav>

---
 examples/static-site-gen/platform/Html/Attributes.roc | 2 ++
 www/wip_new_website/main.roc                          | 4 ++--
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/examples/static-site-gen/platform/Html/Attributes.roc b/examples/static-site-gen/platform/Html/Attributes.roc
index b1059cbbf9..0e5751e4ab 100644
--- a/examples/static-site-gen/platform/Html/Attributes.roc
+++ b/examples/static-site-gen/platform/Html/Attributes.roc
@@ -150,6 +150,8 @@ action = attribute "action"
 align = attribute "align"
 allow = attribute "allow"
 alt = attribute "alt"
+ariaLabel = attribute "aria-label"
+ariaLabelledBy = attribute "aria-labelledby"
 async = attribute "async"
 autocapitalize = attribute "autocapitalize"
 autocomplete = attribute "autocomplete"
diff --git a/www/wip_new_website/main.roc b/www/wip_new_website/main.roc
index f432c20cc6..5bd9ff8607 100644
--- a/www/wip_new_website/main.roc
+++ b/www/wip_new_website/main.roc
@@ -2,7 +2,7 @@ app "roc-website"
     packages { pf: "../../examples/static-site-gen/platform/main.roc" }
     imports [
         pf.Html.{ html, head, body, footer, div, main, text, nav, a, link, meta, script },
-        pf.Html.Attributes.{ content, name, id, href, rel, lang, class, title, charset, color },
+        pf.Html.Attributes.{ content, name, id, href, rel, lang, class, title, charset, color, ariaLabel },
         InteractiveExample,
     ]
     provides [transformFileContent] to pf
@@ -78,7 +78,7 @@ viewNavbar = \page ->
     logo = if page == "index.html" then [] else [rocLogo]
 
     div [id "top-bar"] [
-        nav [] [
+        nav [ariaLabel "primary"] [
             a [id "nav-home-link", href "/wip/index.html", title "The Roc Programming Language"] logo,
             div [id "top-bar-links"] [
                 a [href "/wip/tutorial.html"] [text "tutorial"],