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

Fix unwanted wrapping.

Browse source
This commit is contained in:
Dominik Pantůček 2023-06-15 21:52:52 +02:00
parent 97dd257780
commit 7335f86bb9
3 changed files with 16 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

18
src/notifications.scm
View file

@ -51,7 +51,7 @@
members-fees
mbase
members-print
table-old
table
bank-account
logging)
@ -151,7 +151,7 @@
(append
(list ""
"Active debtors:")
(table->list
(table->string-list
(cons (list "Id" "Member" "Type" "Balance" "Last payment")
(map (lambda (mr)
(list (brmember-id mr)
@ -170,8 +170,10 @@
))
debtors))
#:border-style 'ascii
#:col-border #t
#:row0-border #t))))
#:border '(((#:bottom #:right light) ... (#:bottom light))
((#:right light) ... none)
...)
))))
(boring (sort
(find-members-by-predicate
mb
@ -185,7 +187,7 @@
(append
(list ""
"Other active members:")
(table->list
(table->string-list
(cons (list "Id" "Member" "Type" "Balance" "Last payment")
(map (lambda (mr)
(list (brmember-id mr)
@ -204,8 +206,10 @@
))
boring))
#:border-style 'ascii
#:col-border #t
#:row0-border #t)))))
#:border '(((#:bottom #:right light) ... (#:bottom light))
((#:right light) ... none)
...)
)))))
(append income-lst
unpaired-lst
debtors-lst