Basic flags usage and show in overview.

src/members-print.scm

@@ -239,6 +239,18 @@
 			    row)
 		       tbl))))))
 
+ ;; Members table row based on predicate
+ (define (members-pred-table-row mb label pred? fmt)
+   (let ((mrs (sort (find-members-by-predicate mb pred?)
+		    brmember<?)))
+     (if (null? mrs)
+	 #f
+	 (list (string-append "\t" label)
+	       (length mrs)
+	       (ansi-paragraph-format
+		(member-records->string mrs fmt)
+		60)))))
+
  ;; Prints nicely aligned members base info
  (define (print-members-base-table mb)
    (let* ((bi (mbase-info mb))
@@ -264,6 +276,22 @@
        (filter
 	identity
 	(list (list "Type" "Count" "List")
+	      (members-pred-table-row mb
+				      (ansi-string #:yellow "Chair:")
+				      brmember-chair?
+				      "~N")
+	      (members-pred-table-row mb
+				      (ansi-string #:yellow "Council:")
+				      brmember-council?
+				      "~N")
+	      (members-pred-table-row mb
+				      (ansi-string #:yellow "Revision:")
+				      brmember-revision?
+				      "~N")
+	      (members-pred-table-row mb
+				      (ansi-string #:yellow "Grant:")
+				      brmember-grant?
+				      "~N")
 	      (members-table-row a:success "Active:" active-mrs "~N~E")
 	      (members-table-row a:highlight "Students:" student-mrs "~N~E")
 	      (members-table-row a:warning "Suspended:" suspended-mrs "~N~E (~S)")