notid/integreat
1
0
Fork 0
Code Issues Pull Requests 3 Actions Packages Projects Releases Wiki Activity

Highlights plaid errors more clearly

Browse Source
This commit is contained in:
Bryce
2024-10-07 20:55:30 -07:00
parent cf81e3999c
commit 8234db5623
4 changed files with 237 additions and 59 deletions
Download Patch File Download Diff File Expand all files Collapse all files

88
src/clj/auto_ap/plaid/core.clj
View File

@@ -4,7 +4,8 @@
[cemerick.url :as url]
[clj-http.client :as client]
[clojure.data.json :as json]
[config.core :as cfg :refer [env]]))
[config.core :as cfg :refer [env]]
[slingshot.slingshot :refer [try+]]))
(def base-url (-> env :plaid :base-url))
@@ -50,23 +51,43 @@
"public_token" public-token})})
:body))
(defn get-item [access-token ]
(-> (client/post (str base-url "/item/get")
{:as :json
:headers {"Content-Type" "application/json"}
:body (json/write-str {"client_id" client-id
"secret" secret-key
"access_token" access-token})})
:body))
(defn get-item [access-token]
(try+
(-> (client/post (str base-url "/item/get")
{:as :json
:headers {"Content-Type" "application/json"}
:body (json/write-str {"client_id" client-id
"secret" secret-key
"access_token" access-token})})
:body)
(catch [:status 400] x
(let [json (try (json/read-str (:body x)) (catch Exception _
{}))]
(throw (ex-info
(or (get json "error_message")
(get json "display_message")
(.getMessage (:throwable &throw-context)))
json))))))
(defn get-accounts [access-token]
(try+
(-> (client/post (str base-url "/accounts/get")
{:as :json
:headers {"Content-Type" "application/json"}
:body (json/write-str {"client_id" client-id
"secret" secret-key
"access_token" access-token})})
:body)
(catch [:status 400] x
(let [json (try (json/read-str (:body x)) (catch Exception _
{}))]
(throw (ex-info
(or (get json "error_message")
(get json "display_message")
(.getMessage (:throwable &throw-context)))
json))))))
(defn get-accounts [access-token ]
(-> (client/post (str base-url "/accounts/get")
{:as :json
:headers {"Content-Type" "application/json"}
:body (json/write-str {"client_id" client-id
"secret" secret-key
"access_token" access-token})})
:body))
(defn get-balance [access-token ]
(-> (client/post (str base-url "/accounts/balance/get")
@@ -82,17 +103,28 @@
:start (str start)
:end (str end)
:acct (str account-id))
(-> (client/post (str base-url "/transactions/get")
{:as :json
:headers {"Content-Type" "application/json"}
:body (json/write-str {"client_id" client-id
"secret" secret-key
"access_token" access-token
"start_date" (atime/unparse start atime/iso-date)
"end_date" (atime/unparse end atime/iso-date)
"options" {"account_ids" [account-id]
"count" 500}})})
:body))
(try+
(-> (client/post (str base-url "/transactions/get")
{:as :json
:headers {"Content-Type" "application/json"}
:body (json/write-str {"client_id" client-id
"secret" secret-key
"access_token" access-token
"start_date" (atime/unparse start atime/iso-date)
"end_date" (atime/unparse end atime/iso-date)
"options" {"account_ids" [account-id]
"count" 500}})})
:body)
(catch [:status 400] x
(let [json (try (json/read-str (:body x)) (catch Exception _
{}))]
(throw (ex-info
(or (get json "error_message")
(get json "display_message")
(.getMessage (:throwable &throw-context)))
json))))))
(comment
(require '[datomic.api :as dc])