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

Parse a config file to determine CSV parsing params

Browse Source
This commit is contained in:
Jeremy Dormitzer 2018-06-01 08:06:51 -04:00
parent ad0084661c
commit b28c69cad2
1 changed files with 29 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
src/ledger_reconciler/core.clj
View File

@ -2,7 +2,8 @@
(:require [clojure.string :as string] (:require [clojure.string :as string]
[clojure.data.csv :as csv] [clojure.data.csv :as csv]
[clojure.java.shell :refer [sh]] [clojure.java.shell :refer [sh]]
[clojure.tools.cli :as cli]) [clojure.tools.cli :as cli]
[clojure.edn :as edn])
(:gen-class)) (:gen-class))
(defn nth-or [pred v & xs] (defn nth-or [pred v & xs]
@ -31,19 +32,6 @@
:description (apply row-nth-or (to-seq description)) :description (apply row-nth-or (to-seq description))
:amount (apply row-nth-or (to-seq amount))}))))) :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]
(parse-bank-csv :filename filename
:date 1
:description 3
:amount 4))
(defn parse-ledger-row [row] (defn parse-ledger-row [row]
(let [row-vec (string/split row #"\s\s+")] (let [row-vec (string/split row #"\s\s+")]
{:date (subs (row-vec 0) 0 9) {:date (subs (row-vec 0) 0 9)
@ -84,7 +72,11 @@
(def cli-options (def cli-options
[["-p" "--period PERIOD" "Ledger period expression"] [["-p" "--period PERIOD" "Ledger period expression"]
["-a" "--account ACCOUNT" "Ledger account expression"] ["-a" "--account ACCOUNT" "Ledger account expression"]
["-t" "--type TYPE" "Type of bank account as configured in ~/.ledgerreconciler.edn"]]) ["-t" "--type TYPE" "Type of bank account as configured in init file"]
["-i" "--init-file FILE" "Path to init file"
:default (str (System/getProperty "user.home")
(java.io.File/separator)
".ledgerreconciler.edn")]])
(defn validate-args (defn validate-args
[args] [args]
@ -93,24 +85,36 @@
{:error (string/join \newline errors)} {:error (string/join \newline errors)}
(assoc options :filename (first arguments))))) (assoc options :filename (first arguments)))))
(defn make-parse-fn
[config-file type]
(let [config (slurp config-file)
{:keys [date description amount header-rows]
:or {header-rows 1}}
((keyword type) (edn/read-string config))]
(partial parse-bank-csv
:date date
:description description
:amount amount
:header-rows header-rows)))
(defn -main (defn -main
[& args] [& args]
(let [{:keys [period account type filename error]} (validate-args args)] (let [{:keys [period account type filename init-file error]} (validate-args args)]
(if error (if error
(do (println error) (do (println error)
(System/exit 1)) (System/exit 1))
(let [parse-fn (parse-fns type) (let [parse-fn (make-parse-fn init-file type)
bank-record (parse-fn filename) bank-record (parse-fn :filename filename)
ledger-record (parse-ledger-output period account) ledger-record (parse-ledger-output period account)
[bank-unmatched ledger-unmatched] (compare-records [bank-unmatched ledger-unmatched] (compare-records
(reverse bank-record) (reverse bank-record)
(reverse ledger-record) (reverse ledger-record)
'() '())] '() '())]
(if (> (+ (count bank-unmatched) (count ledger-unmatched)) 0) (if (> (+ (count bank-unmatched) (count ledger-unmatched)) 0)
(do (println "Unmatched bank transactions:") (doseq [unmatched [["bank" bank-unmatched] ["Ledger" ledger-unmatched]]]
(doseq [t bank-unmatched] (println (format-item t))) (when (> (count (unmatched 1)) 0)
(print "\n") (do (println (str "Unmatched " (unmatched 0) " transactions:"))
(println "Unmatched Ledger transactions:") (doseq [t (unmatched 1)] (println (format-item t)))
(doseq [t ledger-unmatched] (println (format-item t))) (print "\n"))))
(System/exit 0)) (println "No discrepencies found"))
(println "No discrepancies found")))))) (System/exit 0)))))