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

New predicate for council ML.

Browse source
This commit is contained in:
Dominik Pantůček 2023-11-16 19:03:57 +01:00
parent 3520d49293
commit fb47d60550
1 changed files with 7 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/hackerbase.scm
View file

@ -238,9 +238,6 @@
mls) mls)
mls)) mls))
(values #f #f))) (values #f #f)))
(define internal-ml (if MLS (find-mailman-list MLS "internal") #f))
(define council-ml (if MLS (find-mailman-list MLS "rada") #f))
(define revision-ml (if MLS (find-mailman-list MLS "rk") #f))
;; Load DokuWiki users ;; Load DokuWiki users
(define MB (if MB1 (define MB (if MB1
@ -324,7 +321,11 @@
(print-members-base-table MB) (print-members-base-table MB)
(newline) (newline)
(check-mailing-list MLS "internal") (check-mailing-list MLS "internal")
(check-mailing-list MLS "rada" #:pred? brmember-council?) (check-mailing-list MLS "rada"
#:pred? (lambda (mr)
(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))
@ -393,7 +394,8 @@
(print-unpaired-table MB)) (print-unpaired-table MB))
((mlsync) ((mlsync)
(cond ((-normal-month-) (cond ((-normal-month-)
(mailman-sync-members internal-ml (mbase-active-emails MB #:suspended #t))) (mailman-sync-members (find-mailman-list MLS "internal")
(mbase-active-emails MB #:suspended #t)))
(else (else
(print "Mailman synchronization disabled with manually specified current month.")))) (print "Mailman synchronization disabled with manually specified current month."))))
((notify) ((notify)