notid/integreat
1
0
Fork 0
Code Issues Pull Requests 2 Actions Packages Projects Releases Wiki Activity

able to find by vendor.

Browse Source
This commit is contained in:
Bryce Covert
2020-07-27 21:49:21 -07:00
parent fdc1d3e9e4
commit a1946f0d6e
4 changed files with 97 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

44
src/cljs/auto_ap/views/pages/admin/rules.cljs
View File

@@ -2,12 +2,14 @@
(:require [auto-ap.forms :as forms]
[auto-ap.subs :as subs]
[auto-ap.views.components.admin.side-bar :refer [admin-side-bar]]
[auto-ap.views.pages.admin.rules.side-bar :as side-bar]
[auto-ap.views.components.layouts :refer [appearing-side-bar side-bar-layout]]
[auto-ap.views.pages.admin.rules.table :as table]
[auto-ap.views.pages.admin.rules.results-modal :as results-modal]
[auto-ap.views.pages.admin.rules.form :as form]
[auto-ap.views.pages.admin.rules.common :refer [default-read]]
[auto-ap.views.utils :refer [dispatch-event with-user]]
[vimsical.re-frame.cofx.inject :as inject]
[auto-ap.events :as events]
[auto-ap.utils :refer [replace-by]]
[re-frame.core :as re-frame]))
@@ -24,10 +26,6 @@
(fn [db]
(-> db ::page)))
(re-frame/reg-sub
::params
(fn [db]
(-> db (::params {}))))
;; EVENTS
@@ -59,21 +57,41 @@
(mapv ungraphql-transaction-rule rules)))))
(assoc-in [:status :loading] false))))
(re-frame/reg-sub
::last-params
(fn [db]
(-> db ::last-params)))
(re-frame/reg-sub
::params
:<- [::last-params]
:<- [::subs/client]
:<- [::side-bar/filter-params]
(fn [[last-params client filter-params table-params]]
(let [params (cond-> {}
client (assoc :client-id (:id client))
(seq filter-params) (merge filter-params))]
(when (not= params last-params)
(re-frame/dispatch [::params-change]))
params)))
(re-frame/reg-event-fx
::params-change
[with-user]
(fn [{:keys [db user]} [_ params]]
[with-user (re-frame/inject-cofx ::inject/sub [::params])]
(fn [{:keys [db user] ::keys [params] :as cofx} _]
{:db (-> db
(assoc-in [:status :loading] true)
(assoc-in [::params] params))
(assoc-in [::last-params] params))
:graphql {:token user
:query-obj {:venia/queries [[:transaction_rule_page
(assoc params :client-id (:id @(re-frame/subscribe [::subs/client])))
(or params {})
[[:transaction-rules default-read]
:total
:start
:end]]]}
:on-success [::received]}}))
:on-success [::received]}
:set-uri-params (dissoc params
:client-id)}))
(re-frame/reg-event-fx
@@ -105,8 +123,12 @@
(re-frame/dispatch [::events/yodlee-merchants-needed])) }))
(defn admin-rules-page []
(let [{:keys [active?]} @(re-frame/subscribe [::forms/form ::form/form])]
[side-bar-layout {:side-bar [admin-side-bar {}]
(let [{:keys [active?]} @(re-frame/subscribe [::forms/form ::form/form])
params @(re-frame/subscribe [::params])]
[side-bar-layout {:side-bar [admin-side-bar {}
[:<>
[side-bar/rule-side-bar]
]]
:main [rules-content]
:right-side-bar [appearing-side-bar {:visible? active?}
[form/form {:rule-saved [::edit-completed]}]]