tailwind ready

src/clj/auto_ap/ssr/company_dropdown.clj

@@ -126,16 +126,17 @@ function initCompanyDropdown() {
 
 (defn active-client [{:keys [identity params] :as request}]
   (let [client-id (some-> (or (:search-client params) (get params "search-client")) not-empty Long/parseLong)]
+    (println (format "HERE CLIENT ID '%s'" client-id))
     (when client-id
       (assert-can-see-client identity client-id))
     (let [new-session (assoc (:session request) :client
                              (when client-id
                                (dc/pull (dc/db conn) [:db/id :client/name :client/code] client-id)))]
-      (assoc 
-        (html-response 
-          (dropdown {:client (:client new-session)
-                     :identity identity}))
-        :session
-        new-session
-        :headers
-        {"hx-trigger" "clientSelected"}))))
+      (assoc
+       (html-response
+        (dropdown {:client (:client new-session)
+                   :identity identity}))
+       :session
+       new-session
+       :headers
+       {"hx-trigger" "clientSelected"}))))