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

Move more to the new mailinglist module.

Browse source
This commit is contained in:
Dominik Pantůček 2024-02-09 15:05:49 +01:00
parent fabb387ba1
commit d24b7c4136
3 changed files with 17 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/hackerbase.scm
View file

@ -287,11 +287,6 @@
(print " " (car keys) ": " (length (ldict-ref status (car keys)))))
(loop (cdr keys)))))))
(define (rada-ml-pred? mr)
(or (brmember-council? mr)
(brmember-chair? mr)
(brmember-revision? mr)))
;; Perform requested action
(case (-action-)
((print-info)
@ -303,10 +298,7 @@
(let ()
(print-members-base-table MB)
(newline)
(check-mailing-list MB MLS "internal" #:suspended #t)
(check-mailing-list MB MLS "rada"
#:pred? rada-ml-pred?)
(check-mailing-list MB MLS "rk" #:pred? brmember-revision?)
(print-mailing-list-checks MB MLS)
(print-git-status)))
(newline))
((print-stats)