104 lines
4.4 KiB
Clojure
104 lines
4.4 KiB
Clojure
(ns auto-ap.views.pages.admin.rules
|
|
(:require
|
|
[auto-ap.effects.forward :as forward]
|
|
[auto-ap.events :as events]
|
|
[auto-ap.forms :as forms]
|
|
[auto-ap.subs :as subs]
|
|
[auto-ap.views.components.admin.side-bar :refer [admin-side-bar]]
|
|
[auto-ap.views.components.buttons :as buttons]
|
|
[auto-ap.views.components.layouts
|
|
:refer [appearing-side-bar side-bar-layout]]
|
|
[auto-ap.views.pages.admin.rules.common :refer [default-read]]
|
|
[auto-ap.views.pages.admin.rules.form :as form]
|
|
[auto-ap.views.pages.admin.rules.side-bar :as side-bar]
|
|
[auto-ap.views.pages.admin.rules.table :as table]
|
|
[auto-ap.views.pages.data-page :as data-page]
|
|
[auto-ap.views.utils :refer [dispatch-event with-user]]
|
|
[clojure.set :as set]
|
|
[re-frame.core :as re-frame]
|
|
[vimsical.re-frame.fx.track :as track]))
|
|
|
|
;; EVENTS
|
|
|
|
|
|
|
|
(re-frame/reg-event-fx
|
|
::params-change
|
|
[with-user ]
|
|
(fn [{:keys [user]} [_ params]]
|
|
{:graphql {:token user
|
|
:owns-state {:single [::data-page/page ::page]}
|
|
:query-obj {:venia/queries [{:query/data [:transaction_rule_page
|
|
{:sort (:sort params)
|
|
:start (:start params 0)
|
|
:per-page (:per-page params)
|
|
:vendor-id (:id (:vendor params))
|
|
:client-id (:id @(re-frame/subscribe [::subs/client]))
|
|
:note (:note params)
|
|
:description (:description params)}
|
|
[[:transaction-rules default-read]
|
|
:total
|
|
:start
|
|
:end]]
|
|
:query/alias :result}]}
|
|
:on-success (fn [result]
|
|
[::data-page/received ::page
|
|
(set/rename-keys (:result result)
|
|
{:transaction-rules :data})])}}))
|
|
|
|
(re-frame/reg-event-fx
|
|
::new-rule-clicked
|
|
(fn [_ _]
|
|
{:dispatch [::form/adding {:client @(re-frame/subscribe [::subs/client])}]}))
|
|
|
|
|
|
(re-frame/reg-event-fx
|
|
::mounted
|
|
(fn [_]
|
|
{:dispatch-n [[::events/yodlee-merchants-needed]]
|
|
::forward/register [{:id ::page
|
|
:events #{::form/updated}
|
|
:event-fn (fn [[_ result]]
|
|
[::data-page/updated-entity ::page result])}
|
|
{:id ::deleted-transaction-rule
|
|
:events #{::table/deleted-transaction-rule }
|
|
:event-fn (fn [[_ result]]
|
|
[::data-page/deleted-entity ::page result])}]
|
|
::track/register {:id ::params
|
|
:subscription [::data-page/params ::page]
|
|
:event-fn (fn [params]
|
|
[::params-change params])}}))
|
|
|
|
(re-frame/reg-event-fx
|
|
::unmounted
|
|
(fn [_]
|
|
{:dispatch [::data-page/dispose ::page]
|
|
::forward/dispose [{:id ::page}
|
|
{:id ::deleted-transaction-rule}]
|
|
::track/dispose {:id ::params}}))
|
|
|
|
;; VIEWS
|
|
(def rules-content
|
|
(with-meta
|
|
(fn []
|
|
(let [user @(re-frame/subscribe [::subs/user])]
|
|
[:div
|
|
[:h1.title "Transaction Rules"]
|
|
(when (= "admin" (:user/role user))
|
|
[:div.is-pulled-right
|
|
[buttons/new-button {:event [::new-rule-clicked]
|
|
:class "is-primary"
|
|
:name "Transaction Rule"}]])
|
|
[table/table {:id :transaction-rules
|
|
:data-page ::page}]]))
|
|
{:component-did-mount (dispatch-event [::mounted ])
|
|
:component-will-unmount #(re-frame/dispatch-sync [::unmounted])}))
|
|
|
|
(defn admin-rules-page []
|
|
(let [{:keys [active?]} @(re-frame/subscribe [::forms/form ::form/form])]
|
|
[side-bar-layout {:side-bar [admin-side-bar {}
|
|
[side-bar/rule-side-bar {:data-page ::page}]]
|
|
:main [rules-content]
|
|
:right-side-bar [appearing-side-bar {:visible? active?}
|
|
[form/form {:data-page ::page}]]}]))
|