From b83b12e5a166b471780514dd435e0d6d9c3acb35 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Wed, 12 Apr 2023 22:24:56 +0200
Subject: [PATCH] Remove old non-table info printing functions.

---
 src/members-print.scm | 59 -------------------------------------------
 1 file changed, 59 deletions(-)

diff --git a/src/members-print.scm b/src/members-print.scm
index 3301161..0708aa4 100644
--- a/src/members-print.scm
+++ b/src/members-print.scm
@@ -29,11 +29,9 @@
 (module
  members-print
  (
-  print-member-info
   print-member-table
   print-member-source
   member-records->string
-  print-members-base-info
   print-members-base-table
   print-members-base-stats
   print-members-ids-stats
@@ -63,30 +61,6 @@
 	 brmember-format
 	 specification)
 
- ;; Prints human-readable information
- (define (print-member-info mr)
-   (let* ((id (ldict-ref mr 'id))
-	  (aliases (ldict-ref mr 'symlinks))
-	  (info (ldict-ref mr 'info))
-	  (sinfo (sort info
-		       (lambda (a b)
-			 (string<?
-			  (symbol->string (car a))
-			  (symbol->string (car b)))))))
-     (print "User " id " alias(es): "
-	    (string-intersperse
-	     (map symbol->string aliases)
-	     ", "))
-     (when (brmember-suspended? mr)
-       (print "  Suspended for " (brmember-suspended-months mr) " months."))
-     (newline)
-     (let loop ((sinfo sinfo))
-       (when (not (null? sinfo))
-	 (let* ((kv (car sinfo))
-		(k (car kv))
-		(v (cdr kv)))
-	   (loop (cdr sinfo)))))))
-
  ;; Returns nicely formatted table
  (define (member-info->table mr)
    (let* ((aliases (ldict-ref mr 'symlinks))
@@ -207,39 +181,6 @@
 	   mrs)
       sep)))
 
- ;; Basic information about members-base in human-readable form.
- (define (print-members-base-info mb)
-   (let ((nicks (list-members-nicks mb))
-	 (ids (list-members-ids mb)))
-     (print "Known members: "
-	    (length nicks))
-     (let* ((bi (members-base-info mb))
-	    (invalid-mrs (ldict-ref bi 'invalid))
-	    (active-mrs (ldict-ref bi 'active))
-	    (suspended-mrs (ldict-ref bi 'suspended))
-	    (destroyed-mrs (ldict-ref bi 'destroyed))
-	    (student-mrs (ldict-ref bi 'students)))
-       (print a:success "  Active (" (length active-mrs) "): " a:default
-	      (member-records->string (sort active-mrs brmember<?) "~N~E"))
-       (print a:warning "  Suspended (" (length suspended-mrs) "): " a:default
-	      (member-records->string (sort suspended-mrs brmember<?) "~N~E"))
-       (print a:warning "  Destroyed (" (length destroyed-mrs) "): " a:default
-	      (member-records->string (sort destroyed-mrs brmember<?) "~N~E"))
-       (print a:highlight "  Students (" (length student-mrs) "): " a:default
-	      (member-records->string (sort student-mrs brmember<?)))
-       (let ((suspended2 (filter
-			  (lambda (mr)
-			    (>= (brmember-suspended-months mr) 24))
-			  suspended-mrs)))
-	 (when (not (null? suspended2))
-	   (print (ansi #:magenta) "  Suspended for at least 24 months ("
-		  (length suspended2) "): " a:default
-		  (member-records->string (sort suspended2 brmember<?) "~N (~S)"))))
-       (when (not (null? invalid-mrs))
-	 (print a:error "  Invalid Id (" (length invalid-mrs) "): "
-		(member-records->string (sort invalid-mrs brmember<?) "~N (~I)")
-		a:default)))))
-
  ;; Helper function for pretty-formatting the filtered members lists
  ;; in a table.
  (define (members-table-row a:? label mrs fmt)