Quality of life improvements with client login

src/cljs/auto_ap/views/pages/transactions/side_bar.cljs

@@ -27,8 +27,8 @@
    {:vendor-id (:id (:vendor filters))
     :date-range (:date-range filters)
     :bank-account-id (:id (:bank-account filters))
-    :amount-gte (:amount-gte (:amount-range filters))
-    :amount-lte (:amount-lte (:amount-range filters))
+    :amount-gte (:amount-gte (:settled (:amount-range filters)))
+    :amount-lte (:amount-lte (:settled (:amount-range filters)))
     :description (:settled (:description filters))
     :approval-status (condp = ap
                        :transactions nil
@@ -65,6 +65,23 @@
      :key ::description}
     :db (assoc db :raw description)}))
 
+(re-frame/reg-event-fx
+ ::amount-range-settled
+ [(re-frame/path [::filters :amount-range])]
+ (fn [{:keys [db]} [_ which value]]
+   {:db (assoc-in db [:settled which] value)
+    :dispatch [::filter-changed :amount-range [:settled] (assoc (:settled db) which value)]}))
+
+(re-frame/reg-event-fx
+ ::amount-range-changed
+ [(re-frame/path [::filters :amount-range])]
+ (fn [{:keys [db]} [_ [which] value]]
+   {:dispatch-debounce 
+    {:event [::amount-range-settled which value]
+     :time 500
+     :key ::amount-range}
+    :db (assoc-in db [:raw which] value)}))
+
 (defn side-bar []
   (let [ap @(re-frame/subscribe [::subs/active-page])
         user @(re-frame/subscribe [::subs/user])]
@@ -119,8 +136,8 @@
        [:p.menu-label "Amount"]
        [:div
         [number-filter
-         {:on-change-event [::filter-changed :amount-range]
-          :value @(re-frame/subscribe [::filter :amount-range])}]]
+         {:on-change-event [::amount-range-changed]
+          :value (:raw @(re-frame/subscribe [::filter :amount-range]))}]]
 
        [:p.menu-label "Vendor"]
        [:div