(cloud) Made search work consistently

src/clj/auto_ap/handler.clj

@@ -147,14 +147,18 @@
     (let [session  (:session request {})
           end-time (coerce/to-date-time (::idle-timeout session))]
       (if (and end-time (time/before? end-time (time/now)))
-        {:session nil
-         :status  302
-         :headers {"Location" "/login"}}
+        (if (get (:headers request) "hx-request")
+          {:session nil
+           :status  200
+           :headers {"hx-redirect" "/login"}}
+          {:session nil
+           :status  302
+           :headers {"Location" "/login"}})
         (when-let [response (handler request)]
           (let [session (:session response session)]
             (if (nil? session)
               response
-              (let [end-time (time/plus (time/now) (time/days 2))]
+              (let [end-time (time/plus (time/now) (time/days 14))]
                 (assoc response :session (assoc session ::idle-timeout (coerce/to-date end-time)))))))))))
 
 #_{:clj-kondo/ignore [:clojure-lsp/unused-public-var]}