cleaning up invoice pagination.

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

@@ -7,11 +7,75 @@
             [goog.string :as gstring]
             [bidi.bidi :as bidi]
             [auto-ap.routes :as routes]
+            [auto-ap.views.components.date-range-filter :refer [date-range-filter]]
+            [auto-ap.views.components.typeahead :refer [typeahead-entity]]
             [auto-ap.views.utils :refer [active-when dispatch-event bind-field horizontal-field date->str str->date pretty standard]]
             [auto-ap.subs :as subs]
             [auto-ap.events :as events]))
 
-(defn invoices-side-bar [params & rest]
+
+(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]
+ :<- [::subs/active-page]
+ (fn [[filters ap]]
+   (println (:invoice-number-like filters))
+   {:vendor-id (:id (:vendor filters))
+    :date-range (:date-range filters)
+    :invoice-number-like (:settled (:invoice-number-like filters))
+    :status (condp = ap
+                       :invoices nil
+                       :unpaid-invoices :unpaid
+                       :paid-invoices :paid
+                       :voided-invoices :voided)}))
+
+
+(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.unpaid-invoices/params-change]
+      :db (assoc-in db (into [::filters] which) val)})))
+
+(re-frame/reg-event-fx
+ ::invoice-number-like-settled
+ [(re-frame/path [::filters :invoice-number-like])]
+ (fn [{:keys [db]} [_ invoice-number-like]]
+   {:db (assoc db :settled invoice-number-like)
+    :dispatch [::filter-changed :invoice-number-like [:settled] invoice-number-like]}))
+
+
+(re-frame/reg-event-fx
+ ::invoice-number-like-changed
+ [(re-frame/path [::filters :invoice-number-like])]
+ (fn [{:keys [db]} [_ invoice-number-like]]
+   {:dispatch-debounce {:event [::invoice-number-like-settled invoice-number-like]
+                        :time 500
+                        :key ::invoice-number-like}
+    :db (assoc db :raw invoice-number-like)}))
+
+(defn invoice-number-filter []
+  [:div.field
+   [:div.control [:input.input {:placeholder "AP-123"
+                                :value (:raw @(re-frame/subscribe [::filter :invoice-number-like]))
+                                :on-change (fn [x]
+                                             (re-frame/dispatch [::invoice-number-like-changed (.. x -target -value) ]))} ]]])
+
+(defn invoices-side-bar [params]
   (let [ap @(re-frame/subscribe [::subs/active-page])
         user @(re-frame/subscribe [::subs/user])]
     [:div
@@ -49,5 +113,20 @@
           [:span {:class "icon icon-accounting-document" :style {:font-size "25px"}}]
           
           [:span {:class "name"} "Import Invoices"]]])]]
-    [:div
-     rest]]))
+     (when (not= ap :import-invoices)
+       [: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 "Invoice #"]
+        [:div 
+         [invoice-number-filter]]])]))