Conditionally set navbar bg

R/navbar.R

@@ -2,13 +2,18 @@ data_navbar <- function(pkg = ".", depth = 0L) {
   pkg <- as_pkgdown(pkg)
 
   navbar <- config_pluck(pkg, "navbar")
-
-  style <- navbar_style(
-    navbar = navbar,
-    theme = get_bslib_theme(pkg),
-    bs_version = pkg$bs_version
-  )
-
+
+  uses_lightswitch <- !is.null(config_pluck_string(pkg, "template.theme-dark"))
+  if (uses_lightswitch) {
+    style <- NULL
+  } else {
+    style <- navbar_style(
+      navbar = navbar,
+      theme = get_bslib_theme(pkg),
+      bs_version = pkg$bs_version
+    )
+  }
+
   links <- navbar_links(pkg, depth = depth)
 
   c(style, links)

inst/BS5/assets/pkgdown.scss

@@ -20,6 +20,12 @@
 
 /* navbar =================================================================== */
 
+.navbar {
+  background: mix(mix($body-bg, $body-color, 95%), $primary, 98%);
+}
+[data-bs-theme="dark"] .navbar {
+  background: mix(mix($body-bg-dark, $body-color-dark, 95%), $primary, 98%);
+}
 // make both the active nav and the hovered nav more clear by mixing the
 // background colour with the body and primary colours respectively 
 .nav-item .nav-link {