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

Finish mbase renaming.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-13 20:19:11 +02:00
parent 8321c741dc
commit 0052dd0b75
4 changed files with 42 additions and 42 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/hackerbase.scm
View file

@ -207,13 +207,13 @@
(let ()
(define mls (load-mailman-lists))
(values (foldl (lambda (mb ml)
(members-base-merge-mailman mb ml))
(mbase-merge-mailman mb ml))
MB0
mls)
(find-mailman-list mls "internal")))
(let ()
(define internal-ml (load-mailman-list "internal"))
(values (members-base-merge-mailman MB0 internal-ml)
(values (mbase-merge-mailman MB0 internal-ml)
internal-ml)))
(values #f #f)))
@ -310,12 +310,12 @@
(print-unpaired-table MB))
((mlsync)
(if (-normal-month-)
(mailman-sync-members internal-ml (members-base-active-emails MB))
(mailman-sync-members internal-ml (mbase-active-emails MB))
(print "Mailman synchronization disabled with manually specified current month.")))
((mlcheck)
(let-values (((missing surplus)
(mailman-compare-members internal-ml
(members-base-active-emails MB))))
(mbase-active-emails MB))))
(if (and (null? missing)
(null? surplus))
(print "Internal mailing list membership in sync.")

8
src/mbase.scm
View file

@ -53,9 +53,9 @@
mbase-add-unpaired
mbase-unpaired
members-base-active-emails
mbase-active-emails
members-base-merge-mailman
mbase-merge-mailman
)
(import scheme
@ -243,7 +243,7 @@
;; Returns the list of emails of all active members sorted
;; alphabetically
(define (members-base-active-emails mb)
(define (mbase-active-emails mb)
(sort
(filter
string?
@ -255,7 +255,7 @@
string-ci<?))
;; Merges given ML members into members base
(define (members-base-merge-mailman mb ml)
(define (mbase-merge-mailman mb ml)
(let ((listname (car ml))
(emails (cdr ml)))
(foldl (lambda (mb email)