Makes company 1099 page work better and faster

src/clj/auto_ap/handler.clj

@@ -30,7 +30,8 @@
    [ring.util.response :as response]
    [unilog.context :as lc]
    [clj-time.coerce :as coerce]
-   [clj-time.core :as time]))
+   [clj-time.core :as time]
+   [cemerick.url :as url]))
 
 (when (:aws-access-key-id env)
   (defcredential (:aws-access-key-id env) (:aws-secret-access-key env) (:aws-region env)))
@@ -161,9 +162,17 @@
               (let [end-time (time/plus (time/now) (time/days 14))]
                 (assoc response :session (assoc session ::idle-timeout (coerce/to-date end-time)))))))))))
 
+(defn wrap-hx-current-url-params
+  [handler ]
+  (fn [request]
+    (let [query-params (some-> (get-in request [:headers "hx-current-url"]) (url/url ) :query)
+          request (assoc request :hx-query-params query-params)]
+      (handler request))))
+
 #_{:clj-kondo/ignore [:clojure-lsp/unused-public-var]}
 (def app
   (->  route-handler
+       (wrap-hx-current-url-params)
        (wrap-guess-route)
        (wrap-authorization auth-backend
                            )