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

more reorg

Browse Source
This commit is contained in:
Bryce Covert
2019-01-24 19:10:07 -08:00
parent 5b10541c44
commit c2eb0c61e7
13 changed files with 258 additions and 237 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/cljs/auto_ap/views/pages/admin/clients.cljs
View File

@@ -6,6 +6,8 @@
[auto-ap.events :as events]
[auto-ap.entities.clients :as entity]
[auto-ap.views.components.address :refer [address-field]]
[auto-ap.views.components.layouts :refer [side-bar-layout]]
[auto-ap.views.components.admin.side-bar :refer [admin-side-bar]]
[auto-ap.views.utils :refer [login-url dispatch-event dispatch-value-change bind-field horizontal-field]]
[auto-ap.views.components.modal :refer [action-modal]]
[cljs.reader :as edn]
@@ -109,7 +111,7 @@
[:td name]
[:td email]])]]))
(defn admin-clients-page []
(defn admin-clients-content []
[:div
(let [clients (re-frame/subscribe [::subs/clients])
editing-client (:client @(re-frame/subscribe [::subs/admin]))]
@@ -239,3 +241,7 @@
^{:key index} [:li [:strong "* " name] [:button.button {:on-click (dispatch-event [::remove-new-bank-account index])} [:span.icon [:i.fa.fa-times]]]])]]]
(when (:saving? editing-client) [:div.is-overlay {:style {"backgroundColor" "rgba(150,150,150, 0.5)"}}])]])])
(defn admin-clients-page []
[side-bar-layout {:side-bar [admin-side-bar {}]
:main [admin-clients-content]}])

8
src/cljs/auto_ap/views/pages/admin/users.cljs
View File

@@ -7,6 +7,8 @@
[auto-ap.events :as events]
[auto-ap.entities.clients :as entity]
[auto-ap.views.components.address :refer [address-field]]
[auto-ap.views.components.admin.side-bar :refer [admin-side-bar]]
[auto-ap.views.components.layouts :refer [side-bar-layout]]
[auto-ap.views.utils :refer [login-url dispatch-value-change bind-field horizontal-field dispatch-event]]
[auto-ap.views.components.modal :refer [modal action-modal]]
[auto-ap.utils :refer [by replace-if]]
@@ -112,7 +114,7 @@
(def admin-users-page
(def admin-users-content
(with-meta
(fn []
[:div
@@ -177,3 +179,7 @@
{:component-will-mount #(re-frame/dispatch-sync [::users-mounted {}]) }))
(defn admin-users-page []
[side-bar-layout {:side-bar [admin-side-bar {}]
:main [admin-users-content]}])

8
src/cljs/auto_ap/views/pages/admin/vendors.cljs
View File

@@ -9,6 +9,8 @@
[auto-ap.views.components.address :refer [address-field]]
[auto-ap.views.components.vendor-dialog :refer [vendor-dialog]]
[auto-ap.views.components.modal :refer [modal]]
[auto-ap.views.components.admin.side-bar :refer [admin-side-bar]]
[auto-ap.views.components.layouts :refer [side-bar-layout]]
[clojure.spec.alpha :as s]
[auto-ap.views.utils :refer [login-url dispatch-value-change dispatch-event bind-field horizontal-field]]
@@ -55,7 +57,7 @@
(vec (concat [dom keys] rest))))
(defn admin-vendors-page []
(defn admin-vendors-content []
[(with-meta
(fn []
[:div.inbox-messages
@@ -78,3 +80,7 @@
:id ::admin-vendor}]])])
{:component-did-mount (fn []
(re-frame/dispatch [::events/mounted]))})])
(defn admin-vendors-page []
[side-bar-layout {:side-bar [admin-side-bar {}]
:main [admin-vendors-content]}])