diff --git a/src/clj/auto_ap/yodlee/core.clj b/src/clj/auto_ap/yodlee/core.clj index 225bc415..6c147577 100644 --- a/src/clj/auto_ap/yodlee/core.clj +++ b/src/clj/auto_ap/yodlee/core.clj @@ -92,18 +92,33 @@ (defn get-provider-accounts [] (let [cob-session (login-cobrand) user-session (login-user cob-session) - batch-size 100 - get-transaction-batch (fn [] - (-> (str (:yodlee-base-url env) "/providerAccounts") + batch-size 100] - (client/get {:headers (doto - (merge base-headers {"Authorization" (auth-header cob-session user-session)}) - println) - :as :json}) - :body - ))] + (-> (str (:yodlee-base-url env) "/providerAccounts") - (get-transaction-batch))) + (client/get {:headers (doto + (merge base-headers {"Authorization" (auth-header cob-session user-session)}) + println) + :as :json}) + :body + :providerAccount + ))) + + + +(defn get-provider-account [id] + (let [cob-session (login-cobrand) + user-session (login-user cob-session) + batch-size 100] + + (-> (str (:yodlee-base-url env) "/providerAccounts/" id) + + (client/get {:headers (doto + (merge base-headers {"Authorization" (auth-header cob-session user-session)}) + println) + :as :json}) + :body + :providerAccount))) (defn update-provider-account [pa] (let [cob-session (login-cobrand) @@ -118,12 +133,16 @@ :body "{\"dataSetName\": [\"BASIC_AGG_DATA\"]}" :as :json})))) -(defn get-specific-transactions [] +(defn update-yodlee [id] + (update-provider-account (:providerAccountId (first (filter #(= (:id %) id) (get-accounts))))) + (get-provider-account (:providerAccountId (first (filter #(= (:id %) id) (get-accounts)))))) + +(defn get-specific-transactions [account] (let [cob-session (login-cobrand) user-session (login-user cob-session) batch-size 100 get-transaction-batch (fn [skip] - (-> (str (:yodlee-base-url env) "/transactions?top=" batch-size "&skip=" skip "&accountId=16422358") + (-> (str (:yodlee-base-url env) "/transactions?top=" batch-size "&skip=" skip "&accountId=" account) (doto println) (client/get {:headers (doto