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

first step in making accounts editable.

Browse Source
This commit is contained in:
Bryce Covert
2019-04-12 08:11:25 -07:00
parent 0f43d76924
commit c2229c11eb
3 changed files with 88 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

43
src/cljs/auto_ap/views/pages/admin/accounts.cljs
View File

@@ -1,23 +1,15 @@
(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]
(:require [auto-ap.forms :as forms]
[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]))
[auto-ap.views.utils :refer [dispatch-event]]
[auto-ap.views.components.layouts
:refer
[appearing-side-bar side-bar-layout]]
[auto-ap.views.pages.admin.accounts.form :as account-form]
[re-frame.core :as re-frame]))
(defn accounts-table [{:keys [accounts]} ]
@@ -27,18 +19,21 @@
^{:key account-set}
[:div
[:h2.title.is-4 account-set]
[:table.table
[:table.table.compact
[:thead
[:th "Code"]
[:th "Name"]
[:th "Type"]]
[:th "Type"]
[:th {:style {:width "5em"}}]
]
[:tbody
(for [{:keys [id numeric-code name type]} (sort-by :numeric-code accounts)]
(for [{:keys [id numeric-code name type] :as account} (sort-by :numeric-code accounts)]
^{:key id}
[:tr
[:td numeric-code]
[:td name]
[:td type]])]]]))])
[:td type]
[:td [:a.button {:on-click (dispatch-event [::account-form/editing account])} [:span [:span.icon [:i.fa.fa-pencil]]]]]])]]]))])
(defn admin-accounts-content []
[:div
@@ -48,5 +43,7 @@
[accounts-table {:accounts accounts}]])])
(defn admin-accounts-page []
[side-bar-layout {:side-bar [admin-side-bar {}]
:main [admin-accounts-content]}])
(let [{:keys [active?]} @(re-frame/subscribe [::forms/form ::account-form/form])]
[side-bar-layout {:side-bar [admin-side-bar {}]
:main [admin-accounts-content]
:right-side-bar [appearing-side-bar {:visible? active?} [account-form/form]]}]))