Highlights environment at the top

This commit is contained in:
2024-03-25 21:24:10 -07:00
parent 506c075846
commit 3897b16aaf
4 changed files with 13 additions and 11 deletions

View File

@@ -1,10 +1,10 @@
(ns auto-ap.ssr.components.page
(:require
[auto-ap.ssr.components.aside :refer [left-aside-]]
[auto-ap.ssr.components.navbar :refer [navbar-]]
[hiccup2.core :as hiccup]
[auto-ap.ssr.svg :as svg]
[auto-ap.ssr.hx :as hx]))
(:require [auto-ap.ssr.components.aside :refer [left-aside-]]
[auto-ap.ssr.components.navbar :refer [navbar-]]
[auto-ap.ssr.hx :as hx]
[auto-ap.ssr.svg :as svg]
[config.core :refer [env]]
[hiccup2.core :as hiccup]))
(defn page- [{:keys [nav page-specific client clients client-selection identity app-params request] :or {app-params {}} } & children]
[:div#app {"_" (hiccup/raw "
@@ -15,7 +15,8 @@
(navbar- {:client-selection client-selection
:clients clients
:client client
:identity identity})
:identity identity
:dd-env (:dd-env env)})
[:div#app-contents.flex.pt-16.overflow-hidden (assoc app-params
:hx-disinherit "*"
:x-init "leftNavShow = true")