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

should only have one arity with this thing.

Browse Source
This commit is contained in:
Bryce Covert
2021-12-19 13:37:33 -08:00
parent 27ae8a15b7
commit 13c689221c
1 changed files with 60 additions and 58 deletions
Download Patch File Download Diff File Expand all files Collapse all files

118
src/clj/auto_ap/yodlee/import.clj
View File

@@ -409,69 +409,71 @@
(defn do-import
([]
(do-import (client/get-transactions)))
([transactions]
(lc/with-context {:source "Import yodlee transactions"}
(let [import-id (start-import :import-source/yodlee "Automated Yodlee User")]
(lc/with-context {:import-id import-id}
(try
(log/info "importing from yodlee")
(let [account-lookup (->> (d/q '[:find ?ya ?ba
:in $
:where [?ba :bank-account/yodlee-account-id ?ya]]
(d/db conn))
(into {}))
transactions-by-bank-account (group-by
#(account-lookup (:accountId %))
transactions)
result (->> transactions-by-bank-account
(filter (fn [[bank-account]]
bank-account))
(map (fn [[bank-account transactions]]
(import-for-bank-account transactions bank-account import-id)))
aggregate-results)]
(defn import-yodlee [transactions]
(lc/with-context {:source "Import yodlee transactions"}
(let [import-id (start-import :import-source/yodlee "Automated Yodlee User")]
(lc/with-context {:import-id import-id}
(try
(log/info "importing from yodlee")
(let [account-lookup (->> (d/q '[:find ?ya ?ba
:in $
:where [?ba :bank-account/yodlee-account-id ?ya]]
(d/db conn))
(into {}))
transactions-by-bank-account (group-by
#(account-lookup (:accountId %))
transactions)
result (->> transactions-by-bank-account
(filter (fn [[bank-account]]
bank-account))
(map (fn [[bank-account transactions]]
(import-for-bank-account transactions bank-account import-id)))
aggregate-results)]
(finish-import (assoc result :db/id import-id)))
(catch Exception e
(log/error e)
(finish-import {:db/id import-id})))))))
(defn do-import []
(import-yodlee (client/get-transactions)))
(finish-import (assoc result :db/id import-id)))
(catch Exception e
(log/error e)
(finish-import {:db/id import-id}))))))))
(def do-import (allow-once do-import))
(defn do-import2
([]
(log/info "starting import")
(do-import2 (client2/get-transactions "NGGL")))
([transactions]
(lc/with-context {:source "Import yodlee2 transactions"}
(let [import-id (start-import :import-source/yodlee "Automated Yodlee User")]
(lc/with-context {:import-id import-id}
(try
(let [account-lookup (->> (d/q '[:find ?ya ?ba
:in $
:where
[?ba :bank-account/yodlee-account ?y]
[?y :yodlee-account/id ?ya]]
(d/db conn))
(into {}))
transactions-by-bank-account (group-by
#(account-lookup (:accountId %))
transactions)
result (->> transactions-by-bank-account
(filter (fn [[bank-account]]
bank-account))
(map (fn [[bank-account transactions]]
(import-for-bank-account transactions bank-account import-id)))
aggregate-results)]
(defn import-yodlee2
[transactions]
(lc/with-context {:source "Import yodlee2 transactions"}
(let [import-id (start-import :import-source/yodlee "Automated Yodlee User")]
(lc/with-context {:import-id import-id}
(try
(let [account-lookup (->> (d/q '[:find ?ya ?ba
:in $
:where
[?ba :bank-account/yodlee-account ?y]
[?y :yodlee-account/id ?ya]]
(d/db conn))
(into {}))
transactions-by-bank-account (group-by
#(account-lookup (:accountId %))
transactions)
result (->> transactions-by-bank-account
(filter (fn [[bank-account]]
bank-account))
(map (fn [[bank-account transactions]]
(import-for-bank-account transactions bank-account import-id)))
aggregate-results)]
(finish-import (assoc result :db/id import-id)))
(catch Exception e
(log/error e)
(finish-import {:db/id import-id}))))))))
(finish-import (assoc result :db/id import-id)))
(catch Exception e
(log/error e)
(finish-import {:db/id import-id})))))))
(defn do-import2 []
(log/info "starting import")
(import-yodlee2 (client2/get-transactions "NGGL")))
(def do-import2 (allow-once do-import2))