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

Remove -ml-all.

Browse source
This commit is contained in:
Dominik Pantůček 2023-11-16 18:04:10 +01:00
parent 8a3ed5d264
commit 28fa8e45a9
1 changed files with 7 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

22
src/hackerbase.scm
View file

@ -58,7 +58,6 @@
(define -run-tests?- (make-parameter #f)) (define -run-tests?- (make-parameter #f))
(define -web-dir- (make-parameter #f)) (define -web-dir- (make-parameter #f))
(define -normal-month- (make-parameter #t)) (define -normal-month- (make-parameter #t))
(define -ml-all- (make-parameter #f))
(define -show-destroyed- (make-parameter #f)) (define -show-destroyed- (make-parameter #f))
(define -notify-months- (make-parameter 1)) (define -notify-months- (make-parameter 1))
(define -send-emails- (make-parameter #f)) (define -send-emails- (make-parameter #f))
@ -135,8 +134,6 @@
"Misc options:" "Misc options:"
(-destroyed () "Show destroyed members in -fees" (-destroyed () "Show destroyed members in -fees"
(-show-destroyed- #t)) (-show-destroyed- #t))
(-ml-all () "Load all mailman lists"
(-ml-all- #t))
"" ""
"Base Actions:" "Base Actions:"
(-info () "Print information" (-info () "Print information"
@ -231,18 +228,13 @@
;; Load ML(s) and merge them ;; Load ML(s) and merge them
(define-values (MB1 internal-ml) (define-values (MB1 internal-ml)
(if MB0 (if MB0
(if (-ml-all-) (let ()
(let () (define mls (load-mailman-lists))
(define mls (load-mailman-lists)) (values (foldl (lambda (mb ml)
(values (foldl (lambda (mb ml) (mbase-merge-mailman mb ml))
(mbase-merge-mailman mb ml)) MB0
MB0 mls)
mls) (find-mailman-list mls "internal")))
(find-mailman-list mls "internal")))
(let ()
(define internal-ml (load-mailman-list "internal"))
(values (mbase-merge-mailman MB0 internal-ml)
internal-ml)))
(values #f #f))) (values #f #f)))
;; Load DokuWiki users ;; Load DokuWiki users