Highlights environment at the top

src/clj/auto_ap/ssr/components/navbar.clj

@@ -8,7 +8,7 @@
    [auto-ap.ssr.svg :as svg]
    [bidi.bidi :as bidi]))
 
-(defn navbar- [{:keys [client-selection client identity clients]}]
+(defn navbar- [{:keys [client-selection client identity clients dd-env]}]
   [:nav {:class "fixed z-30 w-full bg-white border-b border-gray-200 dark:bg-gray-800 dark:border-gray-700"}
    [:div {:class "px-3 py-3 lg:px-5 lg:pl-3"}
     [:div {:class "flex items-center justify-between"}
@@ -19,7 +19,8 @@
        [:svg {:class "w-6 h-6", :aria-hidden "true", :fill "currentColor", :viewbox "0 0 20 20", :xmlns "http://www.w3.org/2000/svg"}
         [:path {:clip-rule "evenodd", :fill-rule "evenodd", :d "M2 4.75A.75.75 0 012.75 4h14.5a.75.75 0 010 1.5H2.75A.75.75 0 012 4.75zm0 10.5a.75.75 0 01.75-.75h7.5a.75.75 0 010 1.5h-7.5a.75.75 0 01-.75-.75zM2 10a.75.75 0 01.75-.75h14.5a.75.75 0 010 1.5H2.75A.75.75 0 012 10z"}]]]
       [:a {:href "/" :class "flex ml-2 hidden md:mr-24 sm:inline"}
-       [:img {:src "/img/logo-big2.png", :class "h-10 mr-16", :alt "Integreat logo"}]]]
+       [:img {:src "/img/logo-big2.png", :class "h-10", :alt "Integreat logo"}]]
+      (when-not (= "prod" dd-env) [:div.rounded-full.bg-yellow-200.text-lg.text-yellow-800.px-4.hidden.md:block.mr-8 "environment: " dd-env])]
 
      [:div {:class "flex items-center gap-4"}
 

src/clj/auto_ap/ssr/components/page.clj

@@ -1,10 +1,10 @@
 (ns auto-ap.ssr.components.page
-  (:require
+  (:require [auto-ap.ssr.components.aside :refer [left-aside-]]
-   [auto-ap.ssr.components.aside :refer [left-aside-]]
+            [auto-ap.ssr.components.navbar :refer [navbar-]]
-   [auto-ap.ssr.components.navbar :refer [navbar-]]
+            [auto-ap.ssr.hx :as hx]
-   [hiccup2.core :as hiccup]
+            [auto-ap.ssr.svg :as svg]
-   [auto-ap.ssr.svg :as svg]
+            [config.core :refer [env]]
-   [auto-ap.ssr.hx :as hx]))
+            [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")

src/clj/auto_ap/ssr/components/tags.clj

@@ -21,4 +21,4 @@
    children))
 
 (defn badge- [params & children]
-  [:div {:class (hh/add-class "absolute inline-flex items-center justify-center w-6 h-6 text-xs font-bold text-white bg-red-300 border-3 border-white rounded-full -top-2 -right-2 dark:border-gray-900" (:class params))} children])
+  [:div {:class (hh/add-class "absolute inline-flex items-center justify-center w-6 h-6 text-xs font-black text-white bg-red-300 border-3 border-white rounded-full -top-2 -right-2 dark:border-gray-900" (:class params))} children])