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

Use new cal-format for days and months.

Browse source
This commit is contained in:
Dominik Pantůček 2023-05-11 14:39:17 +02:00
parent 4d92c33b8e
commit ac1ae9b698
2 changed files with 12 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/Makefile
View file

@ -184,7 +184,8 @@ MEMBERS-PRINT-SOURCES=members-print.scm util-dict-list.import.scm \
primes.import.scm mbase.import.scm configuration.import.scm \ primes.import.scm mbase.import.scm configuration.import.scm \
bank-account.import.scm members-fees.import.scm \ bank-account.import.scm members-fees.import.scm \
members-payments.import.scm util-list.import.scm \ members-payments.import.scm util-list.import.scm \
brmember-format.import.scm specification.import.scm brmember-format.import.scm specification.import.scm \
cal-format.import.scm
members-print.o: members-print.import.scm members-print.o: members-print.import.scm
members-print.import.scm: $(MEMBERS-PRINT-SOURCES) members-print.import.scm: $(MEMBERS-PRINT-SOURCES)

10
src/members-print.scm
View file

@ -60,7 +60,8 @@
members-fees members-fees
members-payments members-payments
brmember-format brmember-format
specification) specification
cal-format)
;; Returns nicely formatted table ;; Returns nicely formatted table
(define (member-info->table mr) (define (member-info->table mr)
@ -97,7 +98,12 @@
#:col-border #t))) #:col-border #t)))
((credit) ((credit)
(list k (list k
(table->string v (table->string
(map (lambda (c)
(list (car c)
(cal-format (cadr c))
(caddr c)))
v)
#:col-border #t))) #:col-border #t)))
((suspend student member) ((suspend student member)
(list k (list k