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

admins copy IDs

Browse Source
This commit is contained in:
Bryce Covert
2020-08-24 21:48:58 -07:00
parent 7f75a3b849
commit f20bbf9e75
12 changed files with 41 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
src/cljs/auto_ap/views/components/grid.cljs
View File

@@ -1,10 +1,12 @@
(ns auto-ap.views.components.grid
(:require [reagent.core :as r]
[auto-ap.views.utils :refer [appearing]]
[auto-ap.views.utils :refer [appearing copy-to-clipboard]]
[auto-ap.utils :refer [default-pagination-size]]
[react :as react]
[re-frame.core :as re-frame]
[auto-ap.views.pages.data-page :as data-page]))
[auto-ap.views.pages.data-page :as data-page]
[auto-ap.views.components.buttons :as buttons]
[auto-ap.subs :as subs]))
(defonce grid-context (react/createContext "default"))
(def Provider (.-Provider grid-context))
@@ -151,7 +153,10 @@
(r/children (r/current-component))))
(defn row [{:keys [class id checkable? entity] }]
(let [children (r/children (r/current-component))]
(let [children (r/children (r/current-component))
is-admin? @(re-frame/subscribe [::subs/is-admin?])
]
[:> Consumer {}
(fn [consume]
(let [on-check-changed (aget consume "on-check-changed")
@@ -178,6 +183,15 @@
(on-check-changed (conj checked id)))))))}
(boolean? checkable?) (assoc :disabled (not checkable?))) ]]))
(when is-admin?
(r/as-element
(cond
(not id) [:th {:style {:width "4em"}}]
id [:th {:style {:width "4em"}} [:button.button.is-link.is-light
{:on-click (fn []
(copy-to-clipboard id))}
[:span.icon [:i.fa.fa-files-o]]
]])))
(map r/as-element children))))]))
(defn button-cell [params]
@@ -190,12 +204,14 @@
)
(defn body []
(let [children (r/children (r/current-component))]
(let [children (r/children (r/current-component))
is-admin? @(re-frame/subscribe [::subs/is-admin?])]
[:> Consumer {}
(fn [consume]
(let [{:strs [column-count status check-boxes?]} (js->clj consume)
column-count (cond-> column-count
check-boxes? inc)]
check-boxes? inc
is-admin? inc)]
(r/as-element
(cond (= :loading (:state status))
^{:key "loading-body"}

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

@@ -97,7 +97,7 @@
[grid/body
(for [{:keys [id numeric-code name type location class] :as account} (:data accounts)]
^{:key id}
[grid/row {:class (:class account)}
[grid/row {:class (:class account) :id id}
[grid/cell {} numeric-code]
[grid/cell {} name]
[grid/cell {} type]

2
src/cljs/auto_ap/views/pages/admin/clients/table.cljs
View File

@@ -44,7 +44,7 @@
[grid/body
(for [{:keys [id name email code locations] :as c} (:data page)]
^{:key (str name "-" id )}
[grid/row
[grid/row {:id id}
[grid/cell {} name]
[grid/cell {} code]
[grid/cell {} (str/join ", " locations)]

2
src/cljs/auto_ap/views/pages/admin/rules.cljs
View File

@@ -34,7 +34,7 @@
:owns-state {:single [::data-page/page ::page]}
:query-obj {:venia/queries [[:transaction_rule_page
{:sort (:sort params)
:start (:start params)
:start (:start params 0)
:per-page (:per-page params)
:vendor-id (:id (:vendor params))
:client-id (:id @(re-frame/subscribe [::subs/client]))}

2
src/cljs/auto_ap/views/pages/admin/rules/table.cljs
View File

@@ -133,7 +133,7 @@
[grid/body
(for [{:keys [client bank-account description amount-lte amount-gte note id] :as r} (:data data)]
^{:key id}
[grid/row {:class (:class r)}
[grid/row {:class (:class r) :id id}
[grid/cell {} (:name client)]
[grid/cell {} (:name bank-account)]
[grid/cell {} description]

2
src/cljs/auto_ap/views/pages/admin/users/table.cljs
View File

@@ -35,7 +35,7 @@
[grid/body
(for [{:keys [id name role clients] :as c} (:data page)]
^{:key (str name "-" id )}
[grid/row {:class (:class c)}
[grid/row {:class (:class c) :id id}
[grid/cell {} name]
[grid/cell {} role]
[grid/cell {} (str/join ", " (map :name clients))]

2
src/cljs/auto_ap/views/pages/admin/vendors/table.cljs vendored
View File

@@ -39,7 +39,7 @@
[grid/body
(for [v (:data page)]
^{:key (str (:id v))}
[grid/row {:class (:class v)}
[grid/row {:class (:class v) :id (:id v)}
[grid/cell {} (:name v)]
[grid/cell {} (:email (:primary-contact v))]
[grid/cell {} (-> v :default-account :id accounts :name)]

2
src/cljs/auto_ap/views/pages/ledger/table.cljs
View File

@@ -12,7 +12,7 @@
(defn ledger-row [{{:keys [client vendor status date amount id line-items] :as i} :row
:keys [selected-client accounts-by-id bank-accounts-by-id]}]
[:<>
[grid/row {:class (:class i)}
[grid/row {:class (:class i) :id id}
(when-not selected-client
[grid/cell {} (:name client)])
[grid/cell {} (if vendor

2
src/cljs/auto_ap/views/pages/payments/table.cljs
View File

@@ -43,7 +43,7 @@
states :states
}]
(let [{:keys [client s3-url bank-account payments type check-number date amount id vendor status invoices] :as check} check]
[grid/row {:class (:class check)}
[grid/row {:class (:class check) :id id}
(when-not selected-client
[grid/cell {} (:name client)])
[grid/cell {} (:name vendor)]

4
src/cljs/auto_ap/views/pages/sales_orders/table.cljs
View File

@@ -10,8 +10,8 @@
(defn row [{sales-order :sales-order
selected-client :selected-client}]
(let [{:keys [client date total tax tip charges line-items]} sales-order]
[grid/row {:class (:class sales-order)}
(let [{:keys [client date total tax tip charges line-items id]} sales-order]
[grid/row {:class (:class sales-order) :id id}
(when-not selected-client
[grid/cell {} (:name client)])
[grid/cell {} (date->str date) ]

2
src/cljs/auto_ap/views/pages/transactions/table.cljs
View File

@@ -76,7 +76,7 @@
[grid/body
(for [{:keys [client account vendor approval-status payment status bank-account description-original date amount id yodlee-merchant ] :as i} (:data data)]
^{:key id}
[grid/row {:class (:class i)}
[grid/row {:class (:class i) :id id}
(when-not selected-client
[grid/cell {} (:name client)])

9
src/cljs/auto_ap/views/utils.cljs
View File

@@ -464,3 +464,12 @@
(- (t/in-days (t/interval (t/minus d (t/days 1)) today)))
(t/in-days (t/interval today d )))]
in))
(defn copy-to-clipboard [text]
(let [el (js/document.createElement "textarea")]
(set! (.-value el) text)
(.appendChild js/document.body el)
(.select el)
(js/document.execCommand "copy")
(.removeChild js/document.body el)))