Quality of life improvements with client login

src/cljs/auto_ap/views/components/invoices/side_bar.cljs

@@ -37,7 +37,8 @@
          url-filters {:vendor (when-let [vendor-id (:vendor-id url-filters)]
                                 {:id (str vendor-id)
                                  :name (get-in vendors-by-id [(str vendor-id) :name] "Loading...")})
-                      :date-range (:date-range url-filters)
+                      :date-range {:raw (:date-range url-filters)
+                                   :settled (:date-range url-filters)}
                       :due-range (:due-range url-filters)
                       :amount-range {:raw {:amount-gte (:amount-gte url-filters)
                                            :amount-lte (:amount-lte url-filters)}
@@ -60,7 +61,7 @@
  
  (fn [[filters ap ]]
    {:vendor-id (:id (:vendor filters))
-    :date-range (:date-range filters)
+    :date-range (:settled (:date-range filters))
     :due-range (:due-range filters)
     :amount-gte (:amount-gte (:settled (:amount-range filters)))
     :amount-lte (:amount-lte (:settled (:amount-range filters)))
@@ -114,6 +115,25 @@
      :key ::amount-range}
     :db (assoc-in db [:raw which] value)}))
 
+(re-frame/reg-event-fx
+ ::date-range-settled
+ [(re-frame/path [::filters :date-range])]
+ (fn [{:keys [db]} [_ which value]]
+   {:db (assoc-in db [:settled which] value)
+    :dispatch [::filter-changed :date-range [:settled] (assoc (:settled db) which value)]}))
+
+;; TODO for some reason reloading is borken, and typing will unset stuff, has nothing to do with it being debounced
+(re-frame/reg-event-fx
+ ::date-range-changed
+ [(re-frame/path [::filters :date-range])]
+ (fn [{:keys [db]} [_ [which] value]]
+   (println which value)
+   {:dispatch-debounce 
+    {:event [::date-range-settled which value]
+     :time 1000
+     :key ::date-range}
+    :db (assoc-in db [:raw which] value)}))
+
 (defn invoice-number-filter []
   [:div.field
    [:div.control [:input.input {:placeholder "AP-123"
@@ -171,8 +191,8 @@
         [:p.menu-label "Date Range"]
         [:div
          [date-range-filter
-          {:on-change-event [::filter-changed :date-range]
-           :value @(re-frame/subscribe [::filter :date-range])}]]
+          {:on-change-event [::date-range-changed]
+           :value (:raw @(re-frame/subscribe [::filter :date-range]))}]]
 
         [:p.menu-label "Due Range"]
         [:div