Skip to content
Snippets Groups Projects
Unverified Commit a7f18396 authored by Mathieu Othacehe's avatar Mathieu Othacehe
Browse files

accessibility: Add "header" and "main" sections.

* src/cuirass/templates.scm (html-page): Add "header" and "main" sections.
parent 79b85ab9
No related branches found
No related tags found
No related merge requests found
......@@ -167,46 +167,47 @@ columnDefs: [
});")
(title ,title))
(body
(nav (@ (class "navbar navbar-expand-lg navbar-light bg-light"))
(a (@ (class "navbar-brand pt-0")
(href "/"))
(img (@ (src "/static/images/guix.png")
(alt "logo")
(height "25")
(style "margin-top: -12px"))))
(div (@ (class "collapse navbar-collapse"))
(ul (@ (class "navbar-nav mr-auto"))
(li (@ (class "nav-item dropdown"))
(a (@ (class "nav-link dropdown-toggle")
(data-toggle "dropdown")
(href "#")
(role "button")
(aria-haspopup "true")
(aria-expanded "false"))
"Status")
(div (@ (class "dropdown-menu")
(aria-labelledby "navbarDropdow"))
(a (@ (class "dropdown-item")
(href "/metrics"))
"Global metrics")
(a (@ (class "dropdown-item")
(href "/workers"))
"Workers status")
(a (@ (class "dropdown-item")
(href "/status"))
"Running builds")))
(li (@ (class "nav-item"))
(a (@ (class "nav-link" ,(if (null? navigation)
" active" ""))
(href "/"))
Home))
,@(navigation-items navigation)))
,(search-form query))
(div (@ (id "content")
(class ,(if margin?
"container content"
"content-fixed-margin")))
,body)
(header
(nav (@ (class "navbar navbar-expand-lg navbar-light bg-light"))
(a (@ (class "navbar-brand pt-0")
(href "/"))
(img (@ (src "/static/images/guix.png")
(alt "logo")
(height "25")
(style "margin-top: -12px"))))
(div (@ (class "collapse navbar-collapse"))
(ul (@ (class "navbar-nav mr-auto"))
(li (@ (class "nav-item dropdown"))
(a (@ (class "nav-link dropdown-toggle")
(data-toggle "dropdown")
(href "#")
(role "button")
(aria-haspopup "true")
(aria-expanded "false"))
"Status")
(div (@ (class "dropdown-menu")
(aria-labelledby "navbarDropdow"))
(a (@ (class "dropdown-item")
(href "/metrics"))
"Global metrics")
(a (@ (class "dropdown-item")
(href "/workers"))
"Workers status")
(a (@ (class "dropdown-item")
(href "/status"))
"Running builds")))
(li (@ (class "nav-item"))
(a (@ (class "nav-link" ,(if (null? navigation)
" active" ""))
(href "/"))
Home))
,@(navigation-items navigation)))
,(search-form query)))
(main (@ (id "content")
(class ,(if margin?
"container content"
"content-fixed-margin")))
,body)
(footer
(@ (class "footer text-center"))
(p (@ (class "mt-3"))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment