Upgrade navbar.

1 files changed, 55 insertions, 26 deletions

diff --git a/views.rkt b/views.rkt
index 9205459..358a680 100644
--- a/views.rkt
+++ b/views.rkt
@@ -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