brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Primitive EUR conversion.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-30 19:57:27 +02:00
parent 70e33d21d1
commit 6ef0ffca02
2 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
bank-fio.scm
View file

@ -46,7 +46,7 @@
(irregex-replace (irregex "," 'u) (irregex-replace (irregex "," 'u)
(caddr row) (caddr row)
"."))) ".")))
(currency (cadddr row)) (currency (string->symbol (cadddr row)))
(varsym (list-ref row 9))) (varsym (list-ref row 9)))
(make-bank-transaction id date amount currency varsym))) (make-bank-transaction id date amount currency varsym)))

8
members-payments.scm
View file

@ -96,7 +96,13 @@
;; Total amount paid ;; Total amount paid
(define (member-payments-total mr) (define (member-payments-total mr)
(foldl + 0 (map bank-transaction-amount (foldl + 0 (map (lambda (tr)
(let ((amount (bank-transaction-amount tr))
(currency (bank-transaction-currency tr)))
(case currency
((CZK) amount)
((EUR) (* amount 25))
(else 0))))
(member-payments mr)))) (member-payments mr))))
) )