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

Sync rada ML.

Browse source
This commit is contained in:
Dominik Pantůček 2023-11-16 19:15:43 +01:00
parent ca5e535025
commit 68bad91262
1 changed files with 10 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

15
src/hackerbase.scm
View file

@ -303,6 +303,11 @@
(when (not (null? surplus))
(print " Outsiders: " surplus)))))))
(define (rada-ml-pred? mr)
(or (brmember-council? mr)
(brmember-chair? mr)
(brmember-revision? mr)))
;; Perform requested action
(case (-action-)
((print-info)
@ -316,10 +321,7 @@
(newline)
(check-mailing-list MLS "internal")
(check-mailing-list MLS "rada"
#:pred? (lambda (mr)
(or (brmember-council? mr)
(brmember-chair? mr)
(brmember-revision? mr))))
#:pred? rada-ml-pred?)
(check-mailing-list MLS "rk" #:pred? brmember-revision?)
(print-git-status)))
(newline))
@ -389,7 +391,10 @@
((mlsync)
(cond ((-normal-month-)
(mailman-sync-members (find-mailman-list MLS "internal")
(mbase-active-emails MB #:suspended #t)))
(mbase-active-emails MB #:suspended #t))
(mailman-sync-members (find-mailman-list MLS "rada")
(mbase-active-emails MB
#:pred rada-ml-pred?)))
(else
(print "Mailman synchronization disabled with manually specified current month."))))
((notify)