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

Payments accessors.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-11 22:40:42 +02:00
parent b0e5411c5e
commit dc82f96187
3 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/brmember.scm
View file

@ -63,8 +63,8 @@
brmember<?
member-record-add-payment
member-payments
brmember-add-payment
brmember-payments
member-mailman
member-add-mailman
@ -325,13 +325,13 @@
(brmember-nick b)))
;; Prepends new payment to given member record payments
(define (member-record-add-payment mr pt)
(define (brmember-add-payment mr pt)
(ldict-set mr 'payments
(cons pt
(ldict-ref mr 'payments '()))))
;; Returns alist of member payments
(define (member-payments mr)
(define (brmember-payments mr)
(filter (lambda (tr)
(let* ((isodate (bank-transaction-date tr))
(month (iso-date->month isodate)))