plaid

2021-12-20 20:20:40 -08:00
parent 13c689221c
commit 563e1c51ff
20 changed files with 3144 additions and 337 deletions
--- a/src/clj/auto_ap/plaid/import.clj
+++ b/src/clj/auto_ap/plaid/import.clj
@@ -0,0 +1,70 @@
+(ns auto-ap.plaid.import
+  (:require
+   [auto-ap.datomic :refer [conn]]
+   [auto-ap.plaid.core :as p]
+   [auto-ap.utils :refer [allow-once]]
+   [auto-ap.yodlee.import :as y]
+   [clj-time.core :as time]
+   [clojure.tools.logging :as log]
+   [datomic.api :as d]
+   [mount.core :as mount]
+   [unilog.context :as lc]
+   [yang.scheduler :as scheduler]))
+
+(defn get-plaid-accounts [db]
+  (-> (d/q '[:find ?ba ?external-id ?t 
+             :in $ 
+             :where
+             [?c :client/bank-accounts ?ba]
+             [?ba :bank-account/plaid-account ?pa]
+             [?pa :plaid-account/external-id ?external-id]
+             [?pi :plaid-item/accounts ?pa]
+             [?pi :plaid-item/access-token ?t]]
+           db )))
+
+(defn import-plaid
+  []
+  (lc/with-context {:source "Importing plaid transactions"}
+    (let [db (d/db conn)
+          import-id (y/start-import :import-source/plaid "Automated Plaid User")]
+      (try
+        (let [result (->> 
+                      (for [[bank-account external-id access-token] (get-plaid-accounts db)
+                              :let [end (auto-ap.time/local-now)
+                                    start (time/plus end (time/days -30))
+                                    _ (log/infof "importing from %s to %s for %s" start end external-id)
+                                    transactions (p/get-transactions access-token external-id start end)
+                                    _ (clojure.pprint/pprint transactions)
+                                    transactions (->> transactions
+                                                      :transactions
+                                                      (filter (fn [t]
+                                                                (not (:pending t))))
+                                                      (mapv (fn [t]
+                                                              {:description {:original (:name t)
+                                                                             :simple (:name t)}
+                                                               :id (:transaction_id t)
+                                                               :amount {:amount (:amount t)}
+                                                               :date (:date t)
+                                                               :status "POSTED"}))
+                                                      )]]
+                        
+                        
+                        (y/import-for-bank-account transactions bank-account import-id))
+                      y/aggregate-results)]
+          (log/info "Plaid transactions imported" result)
+          (y/finish-import (assoc result :db/id import-id)))
+        (catch Exception e
+          (log/error e)
+          (y/finish-import {:db/id import-id}))))))
+
+(defn do-import []
+  (import-plaid))
+
+(def do-import (allow-once do-import))
+
+(mount/defstate import-worker
+  :start (scheduler/every (* 1000 60 60 3) do-import)
+  :stop (scheduler/stop import-worker))
+
+
+