Destroyed, students, suspended predicates and base info.

members-base.scm

@@ -51,7 +51,8 @@
 	 dictionary
 	 member-file
 	 primes
-	 member-record)
+	 member-record
+	 ansi)
 
  ;; Gets all files and symbolic links from given directory. The
  ;; symbolic links are represented by cons cells with car being the
@@ -250,14 +251,8 @@
  (define (print-members-base-info mb)
   (let ((nicks (list-members-nicks mb))
 	(ids (list-members-ids mb)))
-    (print "Members ("
-	   (length nicks)
-	   "): "
-	   (string-intersperse
-	    (sort
-	     nicks
-	     string<?)
-	    ", "))
+    (print "Known members: "
+	   (length nicks))
     (print "Total IDs: "
 	   (length ids)
 	   " (" (length (filter is-4digit-prime? ids)) " valid)")
@@ -266,17 +261,20 @@
 	  (suspended-mrs (filter-members-by-predicate mb member-suspended?))
 	  (destroyed-mrs (filter-members-by-predicate mb member-destroyed?))
 	  (student-mrs (filter-members-by-predicate mb member-student?)))
-      (print "  Active (" (length active-mrs) "): "
+      (print a:success "  Active (" (length active-mrs) "): " a:default
 	     (member-records->nicks-string active-mrs))
-      (print "  Suspended (" (length suspended-mrs) "): "
+      (print a:warning "  Suspended (" (length suspended-mrs) "): " a:default
 	     (member-records->nicks-string suspended-mrs))
-      (print "  Students (" (length student-mrs) "): "
+      (print a:warning "  Destroyed (" (length destroyed-mrs) "): " a:default
+	     (member-records->nicks-string destroyed-mrs))
+      (print a:highlight "  Students (" (length student-mrs) "): " a:default
 	     (member-records->nicks-string student-mrs))
       (when (not (null? invalid-ids))
-	(print "  Invalid (" (length invalid-ids) "): "
+	(print a:error "  Invalid (" (length invalid-ids) "): "
 	       (string-intersperse
 		(map number->string invalid-ids)
-		", "))))))
+		", ")
+	       a:default)))))
 
  ;; Performs self-tests of this module.
  (define (members-base-tests!)