Better UX for bank account balances
This commit is contained in:
@@ -9,14 +9,16 @@
|
||||
[auto-ap.views.components.switch-field :refer [switch-field]]
|
||||
[auto-ap.views.components.typeahead :refer [typeahead-entity]]
|
||||
[auto-ap.views.pages.data-page :as data-page]
|
||||
[auto-ap.views.utils :refer [active-when dispatch-event dispatch-value-change]]
|
||||
[auto-ap.views.utils :refer [active-when dispatch-event dispatch-value-change ->$]]
|
||||
[bidi.bidi :as bidi]
|
||||
[re-frame.core :as re-frame]))
|
||||
|
||||
(defn side-bar [{:keys [data-page]}]
|
||||
(let [ap @(re-frame/subscribe [::subs/active-page])
|
||||
user @(re-frame/subscribe [::subs/user])
|
||||
accounts @(re-frame/subscribe [::subs/accounts])]
|
||||
|
||||
accounts @(re-frame/subscribe [::subs/accounts])
|
||||
]
|
||||
[:div
|
||||
[:div [:p.menu-label "Type"]
|
||||
[:ul.menu-list
|
||||
@@ -58,6 +60,7 @@
|
||||
{:on-change-event [::data-page/filter-changed data-page :bank-account]
|
||||
:value @(re-frame/subscribe [::data-page/filter data-page :bank-account])
|
||||
:bank-accounts @(re-frame/subscribe [::subs/bank-accounts])}]]
|
||||
|
||||
|
||||
[:p.menu-label "Financial Account"]
|
||||
[:div
|
||||
|
||||
@@ -95,12 +95,7 @@
|
||||
|
||||
#_[:td description-original]
|
||||
[grid/cell {}
|
||||
(if (and (:current-balance bank-account)
|
||||
(or is-power-user?
|
||||
is-admin?))
|
||||
[:span.has-tooltip-arrow.has-tooltip-right {:data-tooltip (str "Current Balance: " (nf (:current-balance bank-account) ))}
|
||||
(:name bank-account ) ]
|
||||
(:name bank-account ))]
|
||||
(:name bank-account )]
|
||||
[grid/cell {} (cond vendor
|
||||
(:name vendor)
|
||||
yodlee-merchant
|
||||
|
||||
Reference in New Issue
Block a user