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

List all active emails.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-06 19:26:58 +02:00
parent 54569ea2e5
commit 03278985b4
1 changed files with 14 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/members-base.scm
View file

@ -43,12 +43,14 @@
members-base-update members-base-update
members-base-add-unpaired members-base-add-unpaired
members-base-unpaired members-base-unpaired
members-base-active-emails
) )
(import scheme (import scheme
(chicken base) (chicken base)
(chicken string) (chicken string)
(chicken random) (chicken random)
(chicken sort)
testing testing
utils utils
dictionary dictionary
@ -228,4 +230,16 @@
(define (members-base-unpaired mb) (define (members-base-unpaired mb)
(dict-ref mb 'unpaired '())) (dict-ref mb 'unpaired '()))
;; Returns the list of emails of all active members sorted
;; alphabetically
(define (members-base-active-emails mb)
(sort
(filter
string?
(map
(lambda (mr)
(member-record-info mr 'mail))
(members-base-members mb)))
string-ci<?))
) )