aynish/muneem
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

improve some things

Browse source
This commit is contained in:
Anish Lakhwara 2022-12-15 17:13:26 +10:00
parent 60304168d7
commit 47016be103
2 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/muneem/import.clj
View file

@ -368,6 +368,10 @@
#_(sh "cp" beancount-file "/home/anish/usr/finance/") #_(sh "cp" beancount-file "/home/anish/usr/finance/")
(sh "scp" "documents/ledger.beancount" "mossnet.lan:~/usr/finance/ledger.beancount")) (sh "scp" "documents/ledger.beancount" "mossnet.lan:~/usr/finance/ledger.beancount"))
(defn backup-beancount-file
[]
(sh "cp" beancount-file "./documents/backup.beancount"))
(defn assert-balance (defn assert-balance
[transaction checking?] [transaction checking?]
(let [b (balance transaction) (let [b (balance transaction)
@ -383,8 +387,8 @@
[csv checking? & _args] [csv checking? & _args]
(read-accounts beancount-file) (read-accounts beancount-file)
(if checking? (if checking?
(mapv write-transaction-to-file (drop-last (take-csv csv))) (mapv write-transaction-to-file (take-csv csv))
(mapv write-transaction-to-file-savings (drop-last (take-csv csv)))) (mapv write-transaction-to-file-savings (take-csv csv)))
(write-accounts beancount-file) (write-accounts beancount-file)
(assert-balance (first (take-csv csv)) checking?) (assert-balance (first (take-csv csv)) checking?)
(reset! new-accounts #{})) (reset! new-accounts #{}))

1
src/muneem/main.clj
View file

@ -4,6 +4,7 @@
(defn -main (defn -main
[& _args] [& _args]
(import/backup-beancount-file)
(download/download-csv) (download/download-csv)
(download/move-download) (download/move-download)
(import/main "./documents/checking.csv" true) (import/main "./documents/checking.csv" true)