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