Basic flags usage and show in overview.

src/brmember.scm

@@ -339,7 +339,12 @@
 		 (if (brmember-suspended? mr) 'suspended #f)
 		 (if (brmember-active? mr) 'active #f)
 		 (if (brmember-destroyed? mr) 'destroyed #f)
-		 (if (brmember-existing? mr) 'existing #f))))
+		 (if (brmember-existing? mr) 'existing #f)
+		 (if (brmember-chair? mr) 'chair #f)
+		 (if (brmember-council? mr) 'council #f)
+		 (if (brmember-revision? mr) 'revision #f)
+		 (if (brmember-grant? mr) 'grant #f)
+		 )))
 
  ;; Nickname as string
  (define (brmember-nick mr)

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)")