tons of bug fixes

src/clj/auto_ap/yodlee/core.clj

@@ -157,20 +157,9 @@
                      :as :json}))))
 
 
-(defn reauthenticate [pa data]
-  (let [cob-session (login-cobrand)
-        user-session (login-user cob-session)
-        batch-size 100]
 
-    (-> (str (:yodlee-base-url env) "/providerAccounts?providerAccountIds=" pa) 
 
-        (client/put {:headers (merge base-headers {"Authorization" (auth-header cob-session user-session)}) 
-                     :body (json/write-str data)
-                     :as :json}))))
 
-(defn update-yodlee [id]
-  (update-provider-account id)
-  (get-provider-account id))
 
 (defn get-specific-transactions [account]
   (let [cob-session (login-cobrand)
@@ -255,6 +244,41 @@
             (update-in provider-accounts [(:providerAccountId a) :accounts] conj a)) provider-accounts)
          vals)))
 
+(defonce in-memory-cache (atom []))
+
+(defn load-in-memory-cache []
+  (future
+    (loop []
+      (try 
+        (reset! in-memory-cache (get-provider-accounts-with-accounts))
+        (catch Exception e
+          (println e)))
+      (Thread/sleep (* 60 * 1000 * 5))
+      (recur))))
+
+(defn refresh-provider-account [id]
+  (swap! in-memory-cache
+         (fn [i]
+           (-> (by :id i)
+               (update id merge (get-provider-account-detail id))
+               vals))))
+
+(defn update-yodlee [id]
+  (update-provider-account id)
+  (refresh-provider-account id)
+  )
+
+(defn reauthenticate [pa data]
+  (let [cob-session (login-cobrand)
+        user-session (login-user cob-session)
+        batch-size 100]
+
+    (-> (str (:yodlee-base-url env) "/providerAccounts?providerAccountIds=" pa) 
+
+        (client/put {:headers (merge base-headers {"Authorization" (auth-header cob-session user-session)}) 
+                     :body (json/write-str data)
+                     :as :json}))
+    (refresh-provider-account pa)))
 #_(defn get-users []
   (let [cob-session (login-cobrand)]
     (-> "https://developer.api.yodlee.com/ysl/user"