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

Make load-members create more complex structure.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-04 22:39:45 +02:00
parent e25a75ab27
commit 78164ecafe
1 changed files with 23 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/members-base.scm
View file

@ -65,7 +65,10 @@
(define (load-members dn . opts) (define (load-members dn . opts)
(let ((progress? (and (not (null? opts)) (let ((progress? (and (not (null? opts))
(car opts)))) (car opts))))
(with-progress% (make-dict
`((members
.
,(with-progress%
progress? "members" progress? "members"
(let* ((fss (load-members-dir dn)) (let* ((fss (load-members-dir dn))
(tot (sub1 (length (dict-keys fss)))) (tot (sub1 (length (dict-keys fss))))
@ -84,7 +87,7 @@
(lambda (acc id mr) (lambda (acc id mr)
(cons mr acc)) (cons mr acc))
mb1))) mb1)))
mb)))) mb)))))))
;; Gets member based by generic predicate ;; Gets member based by generic predicate
(define (find-member-by-predicate mb pred) (define (find-member-by-predicate mb pred)