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

Advanced accessors.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-11 22:38:22 +02:00
parent 4bd6837e08
commit 12a911bbff
7 changed files with 25 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/members-base.scm
View file

@ -132,7 +132,7 @@
(filter-members-by-predicate
mb
(lambda (mr)
(substring-index pat (member-nick mr)))))
(substring-index pat (brmember-nick mr)))))
;; Returns all ids found in the database
(define (list-members-ids mb)
@ -161,7 +161,7 @@
(let* ((members (filter-members-by-predicate mb-arg brmember-usable?))
(di0 (make-ldict))
(di1 (ldict-set di0 'invalid
(filter (compose not is-4digit-prime? member-id) members)))
(filter (compose not is-4digit-prime? brmember-id) members)))
(di2 (ldict-set di1 'active
(filter brmember-active? members)))
(di3 (ldict-set di2 'suspended