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

Formatting of new fee period amounts.

Browse source
This commit is contained in:
Dominik Pantůček 2023-12-18 23:02:35 +01:00
parent 055f7ba030
commit b9030db455
1 changed files with 22 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

23
src/members-print.scm
View file

@ -114,7 +114,7 @@
(caddr c))) (caddr c)))
(brmember-credit mr)) (brmember-credit mr))
#:border '(((#:right light) ... none) ...)))) #:border '(((#:right light) ... none) ...))))
((suspend student member council chair revision grant fee) ((suspend student member council chair revision grant)
(let* ((pdata (cons (list "Since" "Until") (let* ((pdata (cons (list "Since" "Until")
(map (map
(lambda (p) (lambda (p)
@ -132,6 +132,27 @@
;;(print pdata) ;;(print pdata)
;;(write ptbl)(newline) ;;(write ptbl)(newline)
(list k ptbl))) (list k ptbl)))
((fee)
(let* ((pdata
(cons
(list "Amount" "Since" "Until")
(map
(lambda (p)
(list
(format "\t~A" (car (cal-period-scomment p)))
(string-append (cal-day/month->string
(cal-period-since p)) " "
(or (cadr (cal-period-scomment p)) ""))
(string-append (cal-day/month->string
(cal-period-before p)) " "
(or (cal-period-bcomment p) ""))))
v)))
(ptbl (table->string
pdata
#:border '(((#:right light) ... none) ...))))
;;(print pdata)
;;(write ptbl)(newline)
(list k ptbl)))
(else (else
(if v (if v
(list k v) (list k v)