jdormit/ledger-reconciler
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Make bank csv parsing generic

Browse Source
This commit is contained in:
Jeremy Dormitzer 2018-05-21 22:42:05 -04:00
parent 08fe745d02
commit 692fa98105
1 changed files with 40 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
src/ledger_reconciler/core.clj
View File

@ -4,28 +4,44 @@
[clojure.java.shell :refer [sh]])
(:gen-class))
(defn parse-dcu-csv [filename]
(defn nth-or [pred v & xs]
(when xs
(if-let [r (get v (first xs))]
(if (pred r) r (apply nth-or pred v (rest xs)))
(apply nth-or pred v (rest xs)))))
(defn to-seq [x]
(if (coll? x) (seq x) (seq (list x))))
(defn parse-bank-csv [& {:keys [filename
date
description
amount
header-rows]
:or {header-rows 1}}]
(->> (slurp filename)
(csv/read-csv)
(drop 4)
(drop header-rows)
(map (fn [row]
(let [date (row 1)
description (row 3)
debit (row 4)
credit (row 5)]
(if (not (string/blank? debit))
{:date date :description description :amount debit}
{:date date :description description :amount credit}))))))
(let [row-nth-or (partial nth-or
#(not (string/blank? %))
row)]
{:date (apply row-nth-or (to-seq date))
:description (apply row-nth-or (to-seq description))
:amount (apply row-nth-or (to-seq amount))})))))
(defn parse-dcu-csv [filename]
(parse-bank-csv :filename filename
:date 1
:description 3
:amount [4 5]
:header-rows 4))
(defn parse-chase-csv [filename]
(->> (slurp filename)
(csv/read-csv)
(drop 1)
(map (fn [row]
(let [date (row 1)
description (row 3)
amount (row 4)]
{:date date :description description :amount amount})))))
(parse-bank-csv :filename filename
:date 1
:description 3
:amount 4))
(defn parse-ledger-row [row]
(let [row-vec (string/split row #"\s\s+")]