Start with small tweaks as proof of concept.

This commit is contained in:
Dominik Pantůček 2023-03-30 19:09:55 +02:00
parent 1147d73b11
commit 8f0d5acf0a
6 changed files with 35 additions and 31 deletions

View file

@ -54,7 +54,8 @@
primes
members-base
configuration
bank-account)
bank-account
member-fees)
;; Prints human-readable information
(define (print-member-info mr)
@ -139,9 +140,10 @@
(define (print-member-table mr)
(print
(table->string
(list (list "Basic Information" "Payments")
(list (list "Basic Information" "Payments" "Membership Status")
(list (member-info->table mr)
(member-payments->table mr))
(member-payments->table mr)
(member-calendar->table mr))
)
#:row0-border #t
#:col-border #t)))