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))
(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
(define MB (if MB1
@ -324,7 +321,11 @@
(print-members-base-table MB)
(newline)
(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?)
(print-git-status)))
(newline))
@ -393,7 +394,8 @@
(print-unpaired-table MB))
((mlsync)
(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
(print "Mailman synchronization disabled with manually specified current month."))))
((notify)