added a page to see the accounts.

2019-04-11 12:58:56 -07:00
parent a5d65656c0
commit a9975c8a10
1 changed files with 52 additions and 0 deletions
--- a/src/cljs/auto_ap/views/pages/admin/accounts.cljs
+++ b/src/cljs/auto_ap/views/pages/admin/accounts.cljs
@@ -0,0 +1,52 @@
+(ns auto-ap.views.pages.admin.accounts
+  (:require-macros [cljs.core.async.macros :refer [go]]
+                   [clojure.string :as str])
+  (:require [re-frame.core :as re-frame]
+            
+            [reagent.core :as reagent]
+            [clojure.spec.alpha :as s]
+            [clojure.string :as str]
+            [auto-ap.subs :as subs]
+            [auto-ap.forms :as forms]
+            [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 appearing-side-bar]]
+            [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]
+            [auto-ap.routes :as routes]
+            [bidi.bidi :as bidi]))
+
+(defn accounts-table [{:keys [accounts]} ]
+  
+  [:div 
+   (for [[account-set accounts] (group-by :account-set accounts)]
+     (do (println accounts)
+         ^{:key account-set}
+         [:div
+          [:h2.title.is-4 account-set]
+          [:table.table
+           [:thead
+            [:th "Code"]
+            [:th "Name"]
+            [:th "Type"]]
+           [:tbody
+            (for [{:keys [id numeric-code name type]} (sort-by :numeric-code accounts)]
+              ^{:key id}
+              [:tr
+               [:td numeric-code]
+               [:td name]
+               [:td type]])]]]))])
+
+(defn admin-accounts-content []
+  [:div
+   (let [accounts @(re-frame/subscribe [::subs/accounts])]
+     [:div
+      [:h1.title "Accounts"]
+      [accounts-table {:accounts accounts}]])])
+
+(defn admin-accounts-page []
+  [side-bar-layout {:side-bar [admin-side-bar {}]
+                    :main [admin-accounts-content]}])