(cloud) Made search work consistently

src/clj/auto_ap/routes/utils.clj

@@ -7,8 +7,15 @@
 
 (defn wrap-secure [handler]
   (fn [request]
-    (if (authenticated? request)
+    (cond (authenticated? request)
       (handler request)
+
+
+      (get (:headers request) "hx-request")
+      {:status 401
+       :headers {"hx-redirect" "/login"}}
+
+      :else
       {:status 302
        :headers {"Location" "/login" }})))
 
@@ -25,5 +32,6 @@
   (fn [request]
     (let [response (handler request)]
       (if (= 401 (get response :status))
-        (assoc-in response [:headers "hx-redirect"] "/login/")
+        (-> response 
+            (assoc-in [:headers "hx-redirect"] "/login/"))
         response))))