all kinds of linkability.

src/cljs/auto_ap/views/pages/data_page.cljs

@@ -57,10 +57,13 @@
  (fn [db [_ which]]
    (get-in db [::additional-params which])))
 
+
+
 (re-frame/reg-sub
  ::params
  (fn [[_ id]]
-   [(re-frame/subscribe [::subs/client])
+   [  #_(re-frame/subscribe [::subs/active-page])
+    (re-frame/subscribe [::subs/client])
     (re-frame/subscribe [::settled-filters id])
     (re-frame/subscribe [::table-params id])
     (re-frame/subscribe [::additional-params id])])
@@ -76,9 +79,11 @@
 (re-frame/reg-event-fx
  ::received
  (fn [{:keys [db]} [_ id data]]
-   (println @(re-frame/subscribe [::params id]))
-   {:db (assoc-in db [::data id] data)
-    :set-uri-params (dissoc @(re-frame/subscribe [::params id]) :client-id)}))
+   (let [uri-params (dissoc @(re-frame/subscribe [::params id]) :client-id)
+         current-uri-params (auto-ap.views.utils/query-params)]
+     (cond-> {:db (-> db (assoc-in [::data id] data)
+                      (assoc :query-params uri-params))}
+       (not= uri-params current-uri-params) (assoc :set-uri-params uri-params)))))
 
 (re-frame/reg-event-db
  ::dispose
@@ -90,6 +95,11 @@
        (update ::filters dissoc id)
        (update ::settled-filters dissoc id))))
 
+(defn dispose-all [db]
+  (-> db
+      (dissoc ::data ::checked ::table-params ::filters ::settled-filters)))
+
+
 (re-frame/reg-sub
  ::data
  (fn [db [_ id]]