86 lines
3.7 KiB
Clojure
86 lines
3.7 KiB
Clojure
(ns auto-ap.views.pages.admin.accounts
|
|
(:require
|
|
[auto-ap.effects.forward :as forward]
|
|
[auto-ap.forms :as forms]
|
|
[auto-ap.shared-views.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.accounts.form :as account-form]
|
|
[auto-ap.views.pages.admin.accounts.side-bar :as side-bar]
|
|
[auto-ap.views.pages.admin.accounts.table :as table]
|
|
[auto-ap.views.pages.data-page :as data-page]
|
|
[auto-ap.views.utils :refer [with-user]]
|
|
[clojure.set :as set]
|
|
[re-frame.core :as re-frame]
|
|
[reagent.core :as reagent]
|
|
[vimsical.re-frame.fx.track :as track]))
|
|
|
|
(def default-read [:numeric-code :name :location :type :account_set :applicability :invoice-allowance :vendor-allowance :id [:client-overrides [:name [:client [:name :id]]]]])
|
|
|
|
|
|
|
|
(re-frame/reg-event-fx
|
|
::params-change
|
|
[with-user]
|
|
(fn [{:keys [user]} [_ params]]
|
|
{:set-uri-params params
|
|
:graphql {:token user
|
|
:owns-state {:single [::data-page/page ::page]}
|
|
:query-obj {:venia/queries [{:query/data [:account_page
|
|
{:sort (:sort params)
|
|
:start (:start params 0)
|
|
:per-page (:per-page params)
|
|
:name-like (:name-like params)
|
|
:numeric-code (some-> params :numeric-code not-empty js/parseInt)}
|
|
[[:accounts default-read]
|
|
:total
|
|
:start
|
|
:end]]
|
|
:query/alias :result}]}
|
|
:on-success (fn [result]
|
|
[::data-page/received ::page
|
|
(set/rename-keys (:result result)
|
|
{:accounts :data})])}}))
|
|
|
|
|
|
(re-frame/reg-event-fx
|
|
::unmounted
|
|
(fn [_ _]
|
|
{::track/dispose {:id ::params}
|
|
::forward/dispose [{:id ::updated}]}))
|
|
|
|
(re-frame/reg-event-fx
|
|
::mounted
|
|
(fn [_ _]
|
|
{::track/register {:id ::params
|
|
:subscription [::data-page/params ::page]
|
|
:event-fn (fn [params] [::params-change params])}
|
|
::forward/register [{:id ::updated
|
|
:events #{::account-form/edited}
|
|
:event-fn (fn [[_ edited-account]]
|
|
[::data-page/updated-entity ::page (:upsert-account edited-account)])}]}))
|
|
|
|
(defn admin-accounts-content []
|
|
[:div
|
|
[:h1.title "Accounts"]
|
|
[:div.is-pulled-right
|
|
[buttons/new-button {:name "Account"
|
|
:class "is-primary"
|
|
:event [::account-form/editing
|
|
{:account-set "default"}]}]]
|
|
[table/accounts-table {:data-page ::page}]])
|
|
|
|
(defn admin-accounts-page []
|
|
(reagent/create-class
|
|
{:display-name "accounts-page"
|
|
:component-will-unmount #(re-frame/dispatch [::unmounted])
|
|
:component-did-mount #(re-frame/dispatch [::mounted])
|
|
:reagent-render
|
|
(fn []
|
|
(let [{:keys [active?]} @(re-frame/subscribe [::forms/form ::account-form/form])]
|
|
[side-bar-layout {:side-bar [admin-side-bar {}
|
|
[side-bar/accounts-side-bar {:data-page ::page}]]
|
|
:main [admin-accounts-content]
|
|
:right-side-bar [appearing-side-bar {:visible? active?} [account-form/form ]]}]))}))
|