diff options
| -rw-r--r-- | views.rkt | 81 |
1 files changed, 55 insertions, 26 deletions
@@ -37,32 +37,61 @@ ;; Page components (define navbar - '(nav ([class "navbar"]) - (div ([class "container-fluid"]) - (a ([class "navbar-brand"] [href "/"]) "FAPG") - (button ([class "navbar-toggler"] - [type "button"] - [data-bs-toggle "collapse"] - [data-bs-target "#navbarNav"] - [aria-controls "navbarNav"] - [aria-expanded "false"] - [aria-label "Toggle navigation"]) - (span ([class "navbar-toggler-icon"]))) - (div ([class "collapse navbar-collapse"] [id "navbarNav"]) - (ul ([class "navbar-nav"]) - (li ([class "nav-item"]) - (a ([class "nav-link active"] - [aria-current "page"] - [href "/"]) - "Home")) - (li ([class "nav-item"]) - (a ([class "nav-link"] - [href "/about"]) - "About")) - (li ([class "nav-item"]) - (a ([class "nav-link"] - [href "/contact"]) - "Contact"))))))) + '(nav + ([class "navbar navbar-expand-lg navbar-light bg-light"]) + (div + ([class "container-fluid"]) + (a ([class "navbar-brand"] [href "/"]) "FAPG") + (button ([class "navbar-toggler"] + [type "button"] + [data-bs-toggle "collapse"] + [data-bs-target "#navbarSupportedContent"] + [aria-controls "navbarSupportedContent"] + [aria-expanded "false"] + [aria-label "Toggle navigation"]) + (span ([class "navbar-toggler-icon"]))) + (div ([class "collapse navbar-collapse"] [id "navbarSupportedContent"]) + (ul ([class "navbar-nav me-auto mb-2 mb-lg-0"]) + #; (li ([class "nav-item dropdown"]) + (a ([class "nav-link dropdown-toggle"] + [href "#"] + [id "navbarDropdown"] + [role "button"] + [data-bs-toggle "dropdown"] + [aria-expanded "false"]) + "Dropdown") + (ul ([class "dropdown-menu"] [aria-labelledby "navbarDropdown"]) + (li (a ([class "dropdown-item"] [href "#"]) "Action")) + (li (a ([class "dropdown-item"] [href "#"]) "Another action")) + (li (hr ([class "dropdown-divider"]))) + (li (a ([class "dropdown-item"] [href "#"]) "Something else here")))) + (li ([class "nav-item"]) + (a ([class "nav-link disabled"] + [href "#"] + [tabindex "-1"] + [aria-disabled "true"]) + "Clients")) + (li ([class "nav-item"]) + (a ([class "nav-link active"] + [aria-current "page"] + [href "/ferti"]) + "Ferti")) + (li ([class "nav-item"]) + (a ([class "nav-link disabled"] + [href "#"] + [tabindex "-1"] + [aria-disabled "true"]) + "Cultures")) + (li ([class "nav-item"]) + (a ([class "nav-link"] + [href "/contact"]) + "Contact"))) + #; (form ([class "d-flex"]) + (input ([class "form-control me-2"] + [type "search"] + [placeholder "Search"] + [aria-label "Search"])) + (button ([class "btn btn-outline-success"] [type "submit"]) "Search")))))) ;; Page helpers |