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

Suspended for at least 24 months.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-19 20:43:00 +01:00
parent 7e171bbcef
commit 58c5a78829
3 changed files with 18 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

11
member-record.scm
View file

@ -38,6 +38,7 @@
member-id
member-existing?
member-format
member-suspended-months
member-record-tests!
)
@ -64,6 +65,8 @@
(string-intersperse
(map symbol->string aliases)
", "))
(when (member-suspended? mr)
(print " Suspended for " (member-suspended-months mr) " months."))
(newline)
(let loop ((sinfo sinfo))
(when (not (null? sinfo))
@ -149,6 +152,7 @@
(cons (case (cadr fmtl)
((#\N) (mr-ref mr 'nick))
((#\I) (number->string (mr-ref mr 'id)))
((#\S) (number->string (member-suspended-months mr)))
((#\~) "~"))
resl))
(loop (cdr fmtl)
@ -156,9 +160,12 @@
;; Returns the number of months the user is suspended. Zero if not
;; suspended.
(define (member-suspended-month mr)
(define (member-suspended-months mr)
(if (member-suspended? mr)
1
(let ((period (periods-match (mr-ref mr 'suspend))))
(if period
(month-diff (car period) (*current-month*))
0))
0))
;; Performs module self-tests.