Sidebars link correctly

src/clj/auto_ap/ssr/utils.clj

@@ -298,11 +298,17 @@
                                                          [data]))))}}}))
 
 (defn wrap-merge-prior-hx [handler]
-  ;; TODO this should just be automatic
-  (fn [request]
-    (handler (update request :query-params (fn [qp]
-                                             (->> (concat (:hx-query-params request) qp)
-                                                  (into {})))))))
+  (fn [{:keys [headers] :as request}]
+    (let [is-htmx-that-should-inherit-url-parameters? (and (not (get headers "hx-boosted"))
+                                                           (get headers "hx-request"))]
+      (alog/peek ::check {:enabled? is-htmx-that-should-inherit-url-parameters?
+                          :params (:query-params request)})
+      
+      (if is-htmx-that-should-inherit-url-parameters?
+        (handler (update request :query-params (fn [qp]
+                                                 (->> (concat (:hx-query-params request) qp)
+                                                      (into {})))))
+        (handler request)))))
 
 
 (def dissoc-nil-transformer