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

Use non-breaking spaces for alignment.

Browse source
This commit is contained in:
Dominik Pantůček 2023-06-15 22:42:39 +02:00
parent cc9e5bad7d
commit f1c3ec70a3
6 changed files with 36 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

36
src/members-print.scm
View file

@ -109,20 +109,23 @@
(brmember-credit mr))
#:border '(((#:right light) ... none) ...))))
((suspend student member council chair revision grant)
(list k
(table->string
(cons (list "Since" "Until")
(map
(lambda (p)
(list
(string-append (cal-day/month->string
(cal-period-since p)) " "
(or (cal-period-scomment p) ""))
(string-append (cal-day/month->string
(cal-period-before p)) " "
(or (cal-period-bcomment p) ""))))
v))
#:border '(((#:right light) ... none) ...))))
(let* ((pdata (cons (list "Since" "Until")
(map
(lambda (p)
(list
(string-append (cal-day/month->string
(cal-period-since p)) " "
(or (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
(if v
(list k v)
@ -132,10 +135,11 @@
(mailman (list (list "Mailing Lists"
(string-intersperse (brmember-mailman mr) "\n"))))
(result (filter identity (append head body mailman))))
;;(write result)(newline)
(table->string result
#:border '(((#:bottom #:right light) ... (#:bottom light))
((#:right light) ... none)
...)
...
((#:right light) ... none))
#:ansi-reset? #t)))
;; Prints nicely formatted table