Parse fnb and ynab exoport csv

parse.clj

(defn parse-fnb [path]
  (let [fnb-csv-rows
        (as-> (slurp (clojure.java.io/file path)) x
          (clojure.string/split x #"\n")
          (drop 6 x)
          (map #(clojure.string/split % #", ") x))
        header (->> fnb-csv-rows first (map keyword))
        rows   (->> fnb-csv-rows
                    rest
                    (map #(zipmap header %))
                    (map #(-> %
                              (update :Amount read-string)
                              (update :Balance read-string))))]
    rows))


(defn parse-ynab [path]
  (let [csv-rows
        (as-> (slurp (clojure.java.io/file path)) x
          (clojure.string/replace x #"\"" "")
          (clojure.string/split x #"\r\n")
          (map #(clojure.string/split % #",") x))
        header (->> csv-rows
                    first
                    (map #(clojure.string/replace % " " "-"))
                    (map #(clojure.string/replace % "/" "-"))
                    (map keyword))
        rows   (->> csv-rows
                    rest
                    (map #(zipmap header %))
                    (map #(-> %
                              (update :Inflow read-string)
                              (update :Outflow read-string)
                              (update :Date (fn [d] (java.util.Date. d)))))
                    (map #(assoc % :Amount (- (:Inflow %) (:Outflow %))))
                    (filter #(=  "Gold Credit" (:Account %)))
                    (filter #(> (.getTime (:Date %)) (.getTime (java.util.Date. "2019/01/01")))))]
    rows))


(defn duplicate-transactions [ynab-data] 
  (->> ynab-data
       (group-by :Amount)
       (map (fn [[a t]]
              [a (count t)]))
       (filter #(> (second %) 1))
       (sort-by first)))