Sub-nick matching.

src/members-base.scm

@@ -31,6 +31,7 @@
   load-members
   find-member-by-id
   find-member-by-nick
+  find-members-by-nick
   list-members-ids
   filter-members-by-predicate
   list-members-nicks
@@ -113,6 +114,13 @@
 	'nick)
        nick))))
 
+ ;; Returns a list of members whose nick contains pat
+ (define (find-members-by-nick mb pat)
+   (filter-members-by-predicate
+    mb
+    (lambda (mr)
+      (substring-index pat (member-nick mr)))))
+
  ;; Returns all ids found in the database
  (define (list-members-ids mb)
    (map (lambda (mr) (dict-ref mr 'id)) mb))