added suggestions

src/clj/auto_ap/import/yodlee2.clj

@@ -3,15 +3,48 @@
    [auto-ap.datomic :refer [conn]]
    [auto-ap.import.common :refer [wrap-integration]]
    [auto-ap.import.transactions :as t]
-   [auto-ap.import.yodlee :as y]
    [auto-ap.utils :refer [allow-once heartbeat]]
    [auto-ap.yodlee.core2 :as client2]
+   [auto-ap.time :as atime ]
+   [clojure.string :as str]
+   [clj-time.coerce :as coerce]
+   [digest :as di]
    [com.unbounce.dogstatsd.core :as statsd]
    [datomic.api :as d]
    [mount.core :as mount]
    [unilog.context :as lc]
    [yang.scheduler :as scheduler]))
 
+(defn yodlee->transaction [transaction use-date-instead-of-post-date?]
+  (let [{post-date :postDate
+         account-id :accountId
+         date :date
+         id :id
+         {amount :amount} :amount
+         {description-original :original
+          description-simple :simple} :description
+         base-type :baseType
+         type :type
+         status :status} transaction
+        amount (if (= "DEBIT" base-type)
+                 (-  amount)
+                 amount)
+        date (atime/parse date "YYYY-MM-dd")]
+    #:transaction
+    {:post-date (coerce/to-date (atime/parse post-date "YYYY-MM-dd"))
+     :id #_{:clj-kondo/ignore [:unresolved-var]}
+         (di/sha-256 (str id))
+     :raw-id (str id)
+     :account-id account-id
+     :date (if use-date-instead-of-post-date?
+             (coerce/to-date (atime/parse post-date "YYYY-MM-dd"))
+             (coerce/to-date date))
+     :amount (double amount)
+     :description-original (some-> description-original (str/replace #"\s+" " "))
+     :description-simple (some-> description-simple (str/replace #"\s+" " "))
+     :type type
+     :status status}))
+
 (defn import-yodlee2-int []
   (lc/with-context {:source "Import yodlee2 transactions"}
     (statsd/event {:title "Yodlee2 import started"
@@ -33,7 +66,7 @@
           (doseq [[yodlee-account bank-account client-code use-date-instead-of-post-date?] account-lookup
                   transaction (wrap-integration #(client2/get-specific-transactions client-code yodlee-account)
                                                 bank-account)]
-            (t/import-transaction! import-batch (assoc (y/yodlee->transaction transaction use-date-instead-of-post-date?)
+            (t/import-transaction! import-batch (assoc (yodlee->transaction transaction use-date-instead-of-post-date?)
                                                        :transaction/bank-account bank-account
                                                        :transaction/client [:client/code client-code])))