A bunch of bug fixes.

src/cljs/auto_ap/views/components/modal.cljs

@@ -54,3 +54,16 @@
              [:div.notification.is-info warning]]]
            (into (r/children (r/current-component)))
            (into [(when saving? [:div.is-overlay {:style {"backgroundColor" "rgba(150,150,150, 0.5)"}}])]))])))
+
+
+(defn simple-modal [{:keys [title foot class warning action-text id save-event can-submit? status-from] :or {can-submit? true}} & rest]
+  (let [{:keys [visible? saving? error-message]} @(re-frame/subscribe [::subs/modal-state id status-from])]
+    (when visible?
+      (-> [modal {:title [:span title]
+                  :class class
+                  :foot foot
+                  :id id
+                  :hide-event [::events/modal-status id {:visible? false :error-message nil}]}]
+          (into (r/children (r/current-component)))
+          (into [(when saving? [:div.is-overlay {:style {"backgroundColor" "rgba(150,150,150, 0.5)"}}])])))))
+

src/cljs/auto_ap/views/pages/admin/yodlee.cljs

@@ -1,5 +1,6 @@
 (ns auto-ap.views.pages.admin.yodlee
-  (:require-macros [cljs.core.async.macros :refer [go]])
+  (:require-macros [cljs.core.async.macros :refer [go]]
+                   )
   (:require [re-frame.core :as re-frame]
             [auto-ap.forms :as forms]
             [reagent.core :as reagent]
@@ -7,13 +8,13 @@
             [cljs-time.format :as f]
             [cljs-time.core :as time]
             [auto-ap.subs :as subs]
-            [auto-ap.events.admin.clients :as events]
+            [auto-ap.events :as events]
             [auto-ap.entities.clients :as entity]
             [auto-ap.views.components.layouts :refer [side-bar-layout]]
             [auto-ap.views.components.admin.side-bar :refer [admin-side-bar]]
             [auto-ap.views.components.address :refer [address-field]]
             [auto-ap.views.utils :refer [login-url dispatch-event dispatch-value-change bind-field horizontal-field str->date date->str with-user]]
-            [auto-ap.views.components.modal :refer [action-modal]]
+            [auto-ap.views.components.modal :refer [simple-modal modal]]
             [cljs.reader :as edn]
             [auto-ap.routes :as routes]
             [bidi.bidi :as bidi]))
@@ -224,20 +225,91 @@
            :on-success [::authenticated]
            :on-error [::forms/save-error [::mfa-form provider-account-id] ]}}))
 
+(re-frame/reg-event-fx
+ ::provider-account-refreshed
+ (fn [{:keys [db]} [_ i result]]
+   
+   {:db (assoc-in db [::provider-accounts] result)
+    :dispatch [::forms/form-closing [::refresh-provider-account i]]}))
+
+(re-frame/reg-event-fx
+ ::refresh-provider-account
+ [with-user ]
+ (fn [{:keys [user db]} [_ provider-account-id ]]
+   {:db (forms/loading db [::refresh-provider-account provider-account-id])
+    :http {:token user
+           :method :post 
+           :headers {"Content-Type" "application/edn"}
+           :uri (str "/api/yodlee/provider-accounts/refresh/" provider-account-id )
+           :body {}
+           :on-success [::provider-account-refreshed provider-account-id]
+           :on-error [::forms/save-error [::refresh-provider-account provider-account-id] ]}}))
+
+(re-frame/reg-event-fx
+ ::provider-account-deleted
+ (fn [{:keys [db]} [_ i result]]
+   
+   {:db (assoc-in db [::provider-accounts] result)
+    :dispatch [::forms/form-closing [::refresh-provider-account i]]}))
+
+(re-frame/reg-event-fx
+ ::delete-provider-account
+ [with-user ]
+ (fn [{:keys [user db]} [_ provider-account-id ]]
+   {:db (forms/loading db [::delete-provider-account provider-account-id])
+    :dispatch (dispatch-event [::events/modal-status [::delete provider-account-id] {:visible? false}] )
+    :http {:token user
+           :method :post 
+           :headers {"Content-Type" "application/edn"}
+           :uri (str "/api/yodlee/provider-accounts/delete/" provider-account-id )
+           :body {}
+           :on-success [::provider-account-deleted provider-account-id]
+           :on-error [::forms/save-error [::delete-provider-account provider-account-id] ]}}))
+
+
+(defn delete-button [account-id]
+  (let [confirmed? (reagent/atom false)]
+    (fn []
+      (let [delete-form @(re-frame/subscribe [::forms/form [::delete-provider-account account-id]])]
+        [:div 
+         (cond 
+           (= :loading (:status delete-form)) [:button.button.is-disabled.is-loading [:i.fa.fa-times]]
+           (:error delete-form) [:button.button.is-disabled [:span.icon [:i.fa.fa-exclamation-triangle]]]
+           :else 
+           [:button.button
+            {:on-click (dispatch-event [::events/modal-status [::delete account-id] {:visible? true}])}
+            [:span.icon [:i.fa.fa-times]]])
+         [simple-modal {:id [::delete account-id]
+                        :title "Confirmation"
+                        :foot [:div
+                               [:button.button.is-danger {:on-click (dispatch-event [::delete-provider-account account-id] )} "Delete provider account"]
+                               [:button.button {:on-click (dispatch-event [::events/modal-status [::delete account-id] {:visible? false}] )}"Cancel"]]}
+          "Are you sure you want to delete provider account " account-id "?"]]))))
+
 (defn yodlee-provider-accounts-table []
   
   (if @(re-frame/subscribe [::provider-accounts-loading?])
     [:div "Loading..."]
     [:div.columns
-     [:div.column.is-three-quarters
+     [:div.column.is-half
       (doall 
-       (for [account @(re-frame/subscribe [::provider-accounts])]
+       (for [account @(re-frame/subscribe [::provider-accounts])
+             :let [{:keys [error status] :as g} @(re-frame/subscribe [::forms/form [::refresh-provider-account (:id account)]])]]
          
          ^{:key (:id account)}
          [:div.card {:style {:margin-bottom "1em"}}
           [:div.card-header
-           [:div.card-header-title "Provider account " (:id account)
-            ]]
+           [:div.card-header-title "Provider account " (:id account)]
+           [:div.card-header-icon
+            [delete-button (:id account)]]
+           [:div.card-header-icon
+            (cond 
+              (= :loading status) [:button.button.is-disabled.is-loading [:i.fa.fa-refresh]]
+              error [:button.button.is-disabled [:span.icon [:i.fa.fa-exclamation-triangle]]]
+              :else 
+              [:button.button
+               {:on-click (dispatch-event [::refresh-provider-account (:id account)])}
+               [:span.icon [:i.fa.fa-refresh]]])]]
           [:div.card-content
 
            (if (> (some-> (-> account :dataset first :lastUpdated)
@@ -255,7 +327,7 @@
                   ", and last attempted "
                   (yodlee-date->str (-> account :dataset first :lastUpdateAttempt))
                   "."]]]
-               [:div.level-right [:button.button.is-success {:on-click (dispatch-event [::kick (:id account)] )} "Force refresh" ]]]
+               [:div.level-right [:button.button.is-success {:on-click (dispatch-event [::kick (:id account)] )} "Sync yodlee with bank" ]]]
 
               ])
            
@@ -275,7 +347,7 @@
                     change-event [::forms/change [::mfa-form (:id account)]]
                     {:keys [form-inline field field-holder raw-field error-notification submit-button]} (forms/vertical-form {:can-submit [::can-submit]
                                                                                                                               :change-event change-event
-                                                                                                                              :submit-event [::reauthenticate-mfa (:id account)]
+                                                                                                                             :submit-event [::reauthenticate-mfa (:id account)]
                                                                                                                               :id [::mfa-form (:id account)]} )]
                 (form-inline {:title "Reauthenticate"}
                              [:<>