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

Advanced accessors.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-11 22:38:22 +02:00
parent 4bd6837e08
commit 12a911bbff
7 changed files with 25 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/members-print.scm
View file

@ -77,7 +77,7 @@
(map symbol->string aliases)
", "))
(when (brmember-suspended? mr)
(print " Suspended for " (member-suspended-months mr) " months."))
(print " Suspended for " (brmember-suspended-months mr) " months."))
(newline)
(let loop ((sinfo sinfo))
(when (not (null? sinfo))
@ -89,7 +89,7 @@
;; Returns nicely formatted table
(define (member-info->table mr)
(let* ((aliases (ldict-ref mr 'symlinks))
(mid (member-id mr))
(mid (brmember-id mr))
(head (list (if (is-4digit-prime? mid)
(list "ID:" mid)
(list (ansi-string #:red #:bold "ID:")
@ -98,7 +98,7 @@
(string-intersperse (map symbol->string aliases) ", "))
(if (brmember-suspended? mr)
(list "Suspended for:"
(let ((msm (member-suspended-months mr)))
(let ((msm (brmember-suspended-months mr)))
(sprintf "~A month~A" msm
(if (> msm 1) "s" ""))))
#f)))
@ -228,7 +228,7 @@
(member-records->string (sort student-mrs member<?)))
(let ((suspended2 (filter
(lambda (mr)
(>= (member-suspended-months mr) 24))
(>= (brmember-suspended-months mr) 24))
suspended-mrs)))
(when (not (null? suspended2))
(print (ansi #:magenta) " Suspended for at least 24 months ("
@ -272,7 +272,7 @@
(members-table-row a:warning "Destroyed:" destroyed-mrs "~N~E")
(let ((suspended2 (filter
(lambda (mr)
(>= (member-suspended-months mr)
(>= (brmember-suspended-months mr)
(*member-suspend-max-months*)))
suspended-mrs)))
(if (null? suspended2)
@ -350,7 +350,7 @@
(credit (ldict-ref balance 'credit))
(payment (ldict-ref balance 'payment))
(total (- (+ credit payment) fees)))
(list (member-nick mr)
(list (brmember-nick mr)
(if (brmember-suspended? mr)
'suspended
(if (brmember-student? mr)