view: Make navigation sticky and hide title on narrow screens.

2 files changed, 14 insertions, 7 deletions

diff --git a/assets/css/screen.css b/assets/css/screen.css
index e0c7382..1d7b764 100644
--- a/assets/css/screen.css
+++ b/assets/css/screen.css
@@ -1,13 +1,12 @@
 html, body {
     background-color: #fff;
     width: 100%;
-    height: 100%;
     padding: 0px;
     margin: 0px;
 }
 
 body {
-    padding-top: 3em;
+    height: auto;
 }
 
 h1 {
@@ -83,7 +82,7 @@ tr.important svg {
     vertical-align: text-bottom;
 }
 
-#header {
+nav {
     background: #333333;
     border-color: #1A1A1A1A;
     border-style: none none solid none;
@@ -94,8 +93,16 @@ tr.important svg {
     color: #fff;
     border-radius: 0;
 }
-#header .navbar-brand {
-    padding: 0;
+
+nav span.navbar-text {
+    display: flex;
+    flex-grow: 1;
+}
+
+@media (max-width: 576px) {
+    nav span.navbar-text {
+        display: none;
+    }
 }
 
 @media (min-width: 576px) {
diff --git a/mumi/web/view/html.scm b/mumi/web/view/html.scm
index df28d10..dfccc1a 100644
--- a/mumi/web/view/html.scm
+++ b/mumi/web/view/html.scm
@@ -175,11 +175,11 @@ simple query language.  Here is a list of supported query terms:")
 
 (define* (header #:key (search-bar? #t) title)
   `(nav
-    (@ (class "fixed-top navbar navbar-expand navbar-light bg-light"))
+    (@ (class "sticky-top navbar navbar-expand navbar-light bg-light"))
     (a (@ (href "/") (class "navbar-brand pt-0 logo navbar-collapse"))
        (img (@ (src "/img/logo.png") (alt "logo") (height "25"))))
     ,@(if title
-          `((span (@ (class "navbar-text navbar-collapse")) ,title))
+          `((span (@ (class "navbar-text")) ,title))
           '())
     ,@(if search-bar?
           `(,(search-form))