Add aria-label="primary" to main <nav>

This commit is contained in:
Richard Feldman 2023-10-31 22:36:03 -04:00
parent 925a682a2d
commit a4faaf7646
No known key found for this signature in database
GPG key ID: F1F21AA5B1D9E43B
2 changed files with 4 additions and 2 deletions

View file

@ -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"

View file

@ -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"],