Plaid can now be linked by clients.

This commit is contained in:
2022-07-21 08:21:16 -07:00
parent 746787df79
commit b214a527fa
12 changed files with 259 additions and 33 deletions

View File

@@ -1,9 +1,9 @@
(ns auto-ap.views.pages.admin.plaid
(ns auto-ap.views.pages.company.plaid
(:require
[auto-ap.effects.forward :as forward]
[auto-ap.status :as status]
[auto-ap.subs :as subs]
[auto-ap.views.components.admin.side-bar :refer [admin-side-bar]]
[auto-ap.views.pages.company.side-bar :refer [company-side-bar]]
[auto-ap.views.components.grid :as grid]
[auto-ap.views.components.layouts :refer [side-bar-layout]]
[auto-ap.views.pages.admin.plaid.table :as table]
@@ -146,19 +146,17 @@
(defn plaid-link-token-button []
(let [status @(re-frame/subscribe [::status/single ::get-link-token])
client-code (:code @(re-frame/subscribe [::subs/client]))]
client @(re-frame/subscribe [::subs/client])]
[:button.button.is-primary {:disabled (status/disabled-for status)
:class (status/class-for status)
:on-click (dispatch-event [::get-link-token client-code])}
"Authenticate with Plaid (" client-code ")"]))
:on-click (dispatch-event [::get-link-token (:code client)])}
"Authenticate with Plaid (" (:name client) ")"]))
(defn link-flow []
[:div
(let [link-token @(re-frame/subscribe [::link-token])
client-code (:code @(re-frame/subscribe [::subs/client]))]
(cond
(and link-token client-code)
[:div
"Authentication successful!"
@@ -185,12 +183,12 @@
]))
(defn admin-plaid-page []
(defn plaid-page []
(reagent/create-class
{:component-will-unmount #(re-frame/dispatch [::unmounted])
:component-did-mount #(re-frame/dispatch [::mounted])
:reagent-render (fn []
[side-bar-layout {:side-bar [admin-side-bar {}]
[side-bar-layout {:side-bar [company-side-bar {}]
:main [admin-plaid-item-content]}])}))