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

Show mls progress.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-06 20:22:01 +02:00
parent 3aaac4ad0b
commit 8a43dd715c
1 changed files with 12 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/mailman.scm
View file

@ -91,13 +91,18 @@
(define (load-mailman-lists) (define (load-mailman-lists)
(with-progress% (with-progress%
#t "Mailman" #t "Mailman"
(let loop ((lsts (list-mailman-lists)) (let* ((lists (list-mailman-lists))
(res '())) (total (length lists)))
(let loop ((lsts lists)
(res '())
(idx 0))
(if (null? lsts) (if (null? lsts)
res res
(let ((mln (car lsts))) (let ((mln (car lsts)))
(progress%-advance (/ idx total))
(loop (cdr lsts) (loop (cdr lsts)
(cons res (load-mailman-list mln)))))))) (cons res (load-mailman-list mln))
(add1 idx))))))))
;; List of lists, returns the whole list record (including name) ;; List of lists, returns the whole list record (including name)
(define (find-mailman-list lsts name) (define (find-mailman-list lsts name)