brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Remove old non-table info printing functions.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-12 22:24:56 +02:00
parent f115379645
commit b83b12e5a1
1 changed files with 0 additions and 59 deletions
Download patch file Download diff file Expand all files Collapse all files

59
src/members-print.scm
View file

@ -29,11 +29,9 @@
(module (module
members-print members-print
( (
print-member-info
print-member-table print-member-table
print-member-source print-member-source
member-records->string member-records->string
print-members-base-info
print-members-base-table print-members-base-table
print-members-base-stats print-members-base-stats
print-members-ids-stats print-members-ids-stats
@ -63,30 +61,6 @@
brmember-format brmember-format
specification) 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 ;; Returns nicely formatted table
(define (member-info->table mr) (define (member-info->table mr)
(let* ((aliases (ldict-ref mr 'symlinks)) (let* ((aliases (ldict-ref mr 'symlinks))
@ -207,39 +181,6 @@
mrs) mrs)
sep))) 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 ;; Helper function for pretty-formatting the filtered members lists
;; in a table. ;; in a table.
(define (members-table-row a:? label mrs fmt) (define (members-table-row a:? label mrs fmt)