check filter refactor.

2020-04-28 13:05:45 -07:00
parent 716b97f701
commit e69de57611
8 changed files with 393 additions and 226 deletions
--- a/src/cljs/auto_ap/views/pages/payments/side_bar.cljs
+++ b/src/cljs/auto_ap/views/pages/payments/side_bar.cljs
@@ -0,0 +1,87 @@
+(ns auto-ap.views.pages.payments.side-bar
+  (:require [auto-ap.routes :as routes]
+            [auto-ap.subs :as subs]
+            [auto-ap.views.utils :refer [active-when]]
+            [auto-ap.views.components.vendor-filter :refer [vendor-filter]]
+            [auto-ap.views.components.date-range-filter :refer [date-range-filter]]
+            [auto-ap.views.components.bank-account-filter :refer [bank-account-filter]]
+            [auto-ap.views.components.typeahead :refer [typeahead-entity]]
+            [bidi.bidi :as bidi]
+            [re-frame.core :as re-frame]))
+
+(re-frame/reg-sub
+ ::filters
+ (fn [db ]
+   (::filters db {})))
+
+(re-frame/reg-sub
+ ::filter
+ :<- [::filters]
+ (fn [filters [_ which]]
+   (filters which)))
+
+(re-frame/reg-sub
+ ::filter-params
+ :<- [::filters]
+ (fn [filters]
+   {:vendor-id (:id (:vendor filters))
+    :date-range (:date-range filters)
+    :check-number-like (:settled (:check-number-like filters))}))
+
+
+(re-frame/reg-event-fx
+ ::filter-changed
+ (fn [{:keys [db]} [_ & params]]
+   (let [[a b c] params
+         [which val] (if (= 3 (count params))
+                       [(into [a] b) c]
+                       [[a] b])]
+     {:dispatch [:auto-ap.views.pages.payments/params-change]
+      :db (assoc-in db (into [::filters] which) val)})))
+
+(re-frame/reg-event-fx
+ ::check-number-like-settled
+ [(re-frame/path [::filters :check-number-like])]
+ (fn [{:keys [db]} [_ description]]
+   {:db (assoc db :settled description)
+    :dispatch [::filter-changed :check-number-like [:settled] description]}))
+
+
+(re-frame/reg-event-fx
+ ::check-number-like-changed
+ [(re-frame/path [::filters :check-number-like])]
+ (fn [{:keys [db]} [_ description]]
+   {:dispatch-debounce 
+    {:event [::check-number-like-settled description]
+     :time 500
+     :key ::check-number-like}
+    :db (assoc db :raw description)}))
+
+(defn check-number-filter []
+  [:div.field
+   [:div.control [:input.input {:placeholder "10001"
+                                :value (:raw @(re-frame/subscribe [::filter :check-number-like]))
+                                :on-change (fn [x]
+                                             (re-frame/dispatch [::check-number-like-changed (.. x -target -value) ]))} ]]])
+
+(defn side-bar []
+  (let [ap @(re-frame/subscribe [::subs/active-page])
+        user @(re-frame/subscribe [::subs/user])]
+    [:div
+     [:div 
+      [:p.menu-label "Vendor"]
+      [:div
+       [typeahead-entity {:matches @(re-frame/subscribe [::subs/vendors])
+                          :on-change #(re-frame/dispatch [::filter-changed :vendor %])
+                          :match->text :name
+                          :type "typeahead-entity"
+                          :value @(re-frame/subscribe [::filter :vendor])}]]
+
+      [:p.menu-label "Date Range"]
+      [:div
+       [date-range-filter
+        {:on-change-event [::filter-changed :date-range]
+         :value @(re-frame/subscribe [::filter :date-range])}]]
+
+      [:p.menu-label "Check #"]
+      [:div [check-number-filter]]]]))