Adds bank reconciliation report
This commit is contained in:
@@ -1,10 +1,10 @@
|
||||
(ns auto-ap.plaid.core
|
||||
(:require
|
||||
[clj-http.client :as client]
|
||||
[clojure.data.json :as json]
|
||||
[auto-ap.logging :as alog]
|
||||
[config.core :as cfg :refer [env]]
|
||||
[auto-ap.time :as atime]))
|
||||
(:require [auto-ap.logging :as alog]
|
||||
[auto-ap.time :as atime]
|
||||
[cemerick.url :as url]
|
||||
[clj-http.client :as client]
|
||||
[clojure.data.json :as json]
|
||||
[config.core :as cfg :refer [env]]))
|
||||
|
||||
(def base-url (-> env :plaid :base-url))
|
||||
|
||||
@@ -61,6 +61,15 @@
|
||||
"access_token" access-token})})
|
||||
:body))
|
||||
|
||||
(defn get-balance [access-token ]
|
||||
(-> (client/post (str base-url "/accounts/balance/get")
|
||||
{:as :json
|
||||
:headers {"Content-Type" "application/json"}
|
||||
:body (json/write-str {"access_token" access-token
|
||||
"secret" secret-key
|
||||
"client_id" client-id})})
|
||||
:body))
|
||||
|
||||
(defn get-transactions [access-token account-id start end]
|
||||
(alog/info ::searching
|
||||
:start (str start)
|
||||
|
||||
Reference in New Issue
Block a user