Move more to the new mailinglist module.

src/Makefile

@@ -553,7 +553,8 @@ tiocgwinsz.o: tiocgwinsz.import.scm
 tiocgwinsz.import.scm: $(TIOCGWINSZ-SOURCES)
 
 MAILINGLIST-SOURCES=mailinglist.scm racket-kwargs.import.scm		\
-	mailman.import.scm mbase.import.scm util-string.import.scm
+	mailman.import.scm mbase.import.scm util-string.import.scm	\
+	brmember.import.scm
 
 mailinglist.o: mailinglist.import.scm
 mailinglist.import.scm: $(MAILINGLIST-SOURCES)

src/hackerbase.scm

@@ -287,11 +287,6 @@
 	      (print "  " (car keys) ": " (length (ldict-ref status (car keys)))))
 	    (loop (cdr keys)))))))
 
-(define (rada-ml-pred? mr)
-  (or (brmember-council? mr)
-      (brmember-chair? mr)
-      (brmember-revision? mr)))
-
 ;; Perform requested action
 (case (-action-)
   ((print-info)
@@ -303,10 +298,7 @@
        (let ()
 	 (print-members-base-table MB)
 	 (newline)
-	 (check-mailing-list MB MLS "internal" #:suspended #t)
+	 (print-mailing-list-checks MB MLS)
-	 (check-mailing-list MB MLS "rada"
-			     #:pred? rada-ml-pred?)
-	 (check-mailing-list MB MLS "rk" #:pred? brmember-revision?)
 	 (print-git-status)))
    (newline))
   ((print-stats)

src/mailinglist.scm

@@ -29,6 +29,7 @@
  mailinglist
  (
   check-mailing-list
+  print-mailing-list-checks
   )
 
  (import scheme
@@ -37,7 +38,8 @@
 	 racket-kwargs
 	 mailman
 	 mbase
-	 util-string)
+	 util-string
+	 brmember)
 
  (define* (check-mailing-list MB mls name #:pred? (pred? #f) #:suspended (suspended #f))
    (define ml (find-mailman-list mls name))
@@ -60,4 +62,15 @@
 		 (when (not (null? surplus))
 		   (print "  Outsiders: " surplus))))))))
 
+ (define (print-mailing-list-checks MB MLS)
+   (check-mailing-list MB MLS "internal" #:suspended #t)
+   (check-mailing-list MB MLS "rada"
+		       #:pred? rada-ml-pred?)
+   (check-mailing-list MB MLS "rk" #:pred? brmember-revision?))
+
+ (define (rada-ml-pred? mr)
+   (or (brmember-council? mr)
+       (brmember-chair? mr)
+       (brmember-revision? mr)))
+
  )