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

Implement last payment date in brmember format.

Browse source
This commit is contained in:
Dominik Pantůček 2023-05-10 20:28:33 +02:00
parent 5fed8899a4
commit f6fb372938
3 changed files with 9 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/Makefile
View file

@ -335,7 +335,7 @@ util-format.o: util-format.import.scm
util-format.import.scm: $(UTIL-FORMAT-SOURCES) util-format.import.scm: $(UTIL-FORMAT-SOURCES)
BRMEMBER-FORMAT-SOURCES=brmember-format.scm util-dict-list.import.scm \ BRMEMBER-FORMAT-SOURCES=brmember-format.scm util-dict-list.import.scm \
brmember.import.scm brmember.import.scm bank-account.import.scm
brmember-format.o: brmember-format.import.scm brmember-format.o: brmember-format.import.scm
brmember-format.import.scm: $(BRMEMBER-FORMAT-SOURCES) brmember-format.import.scm: $(BRMEMBER-FORMAT-SOURCES)

8
src/brmember-format.scm
View file

@ -36,7 +36,8 @@
(chicken string) (chicken string)
(chicken format) (chicken format)
util-dict-list util-dict-list
brmember) brmember
bank-account)
;; Member formatting function for general use. ;; Member formatting function for general use.
(define (brmember-format fmt mr) (define (brmember-format fmt mr)
@ -56,6 +57,11 @@
(if (eq? n 0) (if (eq? n 0)
"" ""
(sprintf "[~A]" n)))) (sprintf "[~A]" n))))
((#\P)
(let ((payments (brmember-payments mr)))
(if (null? payments)
"-"
(bank-transaction-date (car payments)))))
((#\~) "~")) ((#\~) "~"))
resl)) resl))
(loop (cdr fmtl) (loop (cdr fmtl)

2
src/brmember.scm
View file

@ -348,7 +348,7 @@
(cons pt (cons pt
(ldict-ref mr 'payments '())))) (ldict-ref mr 'payments '()))))
;; Returns alist of member payments ;; Returns a list of member payments
(define (brmember-payments mr) (define (brmember-payments mr)
(filter (lambda (tr) (filter (lambda (tr)
(let* ((isodate (bank-transaction-date tr)) (let* ((isodate (bank-transaction-date tr))