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

Support cal-day in joined/destroyed.

Browse source
This commit is contained in:
Dominik Pantůček 2023-05-21 20:22:15 +02:00
parent 9a55a56c6a
commit 82a4742914
3 changed files with 7 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/members-print.scm
View file

@ -63,7 +63,8 @@
brmember-format
specification
cal-format
util-git)
util-git
cal-day)
;; Returns nicely formatted table
(define (member-info->table mr)
@ -114,10 +115,10 @@
(map
(lambda (p)
(list
(string-append (cal-month->string
(string-append (cal-day/month->string
(cal-period-since p)) " "
(or (cal-period-scomment p) ""))
(string-append (cal-month->string
(string-append (cal-day/month->string
(cal-period-before p)) " "
(or (cal-period-bcomment p) ""))))
v))