diff --git a/project.clj b/project.clj index 6607ec49..d266860c 100644 --- a/project.clj +++ b/project.clj @@ -73,7 +73,7 @@ :plugins [[lein-figwheel "0.5.13"] [lein-pdo "0.1.1"] [cider/cider-nrepl "0.16.0"]] - :jvm-opts ["-Dconfig=config/dev.edn" #_#_"--add-modules" "java.xml.bind"]} + :jvm-opts ["-Dconfig=config/dev.edn" "--add-modules" "java.xml.bind"]} :uberjar {:prep-tasks [["cljsbuild" "once" "min"] "compile"]} :provided {:dependencies [[org.clojure/clojurescript "1.10.238"] [reagent "0.7.0"] diff --git a/resources/BellaSaratoga.jpg b/resources/BellaSaratoga.jpg new file mode 100644 index 00000000..5a75346e Binary files /dev/null and b/resources/BellaSaratoga.jpg differ diff --git a/resources/Dan_Sig.1.jpg b/resources/Dan_Sig.1.jpg new file mode 100644 index 00000000..44a34117 Binary files /dev/null and b/resources/Dan_Sig.1.jpg differ diff --git a/resources/MioVicino.jpg b/resources/MioVicino.jpg new file mode 100644 index 00000000..ed1c0e21 Binary files /dev/null and b/resources/MioVicino.jpg differ diff --git a/resources/iguanas.jpg b/resources/iguanas.jpg new file mode 100644 index 00000000..2b9ccc66 Binary files /dev/null and b/resources/iguanas.jpg differ diff --git a/src/clj/auto_ap/yodlee/core.clj b/src/clj/auto_ap/yodlee/core.clj index 3714566b..225bc415 100644 --- a/src/clj/auto_ap/yodlee/core.clj +++ b/src/clj/auto_ap/yodlee/core.clj @@ -47,12 +47,24 @@ :body :account))) +(defn get-account [i] + (let [cob-session (login-cobrand) + user-session (login-user cob-session)] + (-> (str (:yodlee-base-url env) (str "/accounts/" i)) + (client/get {:headers (merge base-headers {"Authorization" (auth-header cob-session user-session)}) + :as :json}) + :body + :account))) + (defn get-provider-accounts [] (let [cob-session (login-cobrand) user-session (login-user cob-session)] (-> (str (:yodlee-base-url env) "/providerAccounts") - (client/get {:headers (merge base-headers {"Authorization" (auth-header cob-session user-session)}) - :as :json})))) + (-> (client/get {:headers (merge base-headers {"Authorization" (auth-header cob-session user-session)}) + :as :json}) + :body + :providerAccount) + ))) (defn get-transactions [] (let [cob-session (login-cobrand) @@ -81,7 +93,7 @@ (let [cob-session (login-cobrand) user-session (login-user cob-session) batch-size 100 - get-transaction-batch (fn [skip] + get-transaction-batch (fn [] (-> (str (:yodlee-base-url env) "/providerAccounts") (client/get {:headers (doto @@ -92,6 +104,20 @@ ))] (get-transaction-batch))) + +(defn update-provider-account [pa] + (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 (doto + (merge base-headers {"Authorization" (auth-header cob-session user-session)}) + println) + :body "{\"dataSetName\": [\"BASIC_AGG_DATA\"]}" + :as :json})))) + (defn get-specific-transactions [] (let [cob-session (login-cobrand) user-session (login-user cob-session)