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

Member lookup by id.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-11 18:12:49 +01:00
parent ff272c3a75
commit 7799afbcbc
1 changed files with 11 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

13
brmsaptool.scm
View file

@ -433,8 +433,15 @@
(expand-members-raw-index (expand-members-raw-index
(load-members-raw-index))) (load-members-raw-index)))
(define (find-member-by-id mb id) ;; Gets member record by member id (from filename/symlink)
#f) (define (find-member-by-id mdb id)
(let loop ((mdb mdb))
(if (null? mdb)
#f
(let ((mr (car mdb)))
(if (eq? (dict-ref mr 'id) id)
mr
(loop (cdr mdb)))))))
(define (find-member-by-fname mb fname) (define (find-member-by-fname mb fname)
#f) #f)
@ -463,3 +470,5 @@
(print mdb) (print mdb)
(print (load-member-file "trimen")) (print (load-member-file "trimen"))
(print (find-member-by-id mdb 2803))