Progress% ranges.

2023-03-30 20:33:48 +02:00 · 2023-03-30 20:33:48 +02:00 · 0057a9ad2a
commit 0057a9ad2a
parent d2d4ff9fc6
2 changed files with 27 additions and 9 deletions
--- a/members-base.scm
+++ b/members-base.scm
@ -64,13 +64,15 @@
 (define (load-members dn . opts)
   (let ((progress? (and (not (null? opts))
 			 (car opts))))
-     (with-progress
-      progress? "Loading-members " " ok."
+     (with-progress%
+      progress? "members"
      (let* ((fss (load-members-dir dn))
+	     (tot (sub1 (length (dict-keys fss))))
+	     (prg 0)
 	     (mb0 (dict-map
 		   (lambda (symfn symlinks)
-		     (when progress?
-		       (progress-advance "."))
+		     (set! prg (add1 prg))
+		     (progress%-advance (/ prg tot))
 		     (members-dir-load-member dn
 					      symfn
 					      symlinks))