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

Show invalid ids.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-27 17:49:07 +02:00
parent 640af5af19
commit f6c77f57ef
1 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
member-print.scm
View file

@ -46,7 +46,8 @@
table table
listing listing
ansi ansi
period) period
primes)
;; Prints human-readable information ;; Prints human-readable information
(define (print-member-info mr) (define (print-member-info mr)
@ -75,7 +76,11 @@
;; Prints nicely formatted table ;; Prints nicely formatted table
(define (print-member-table mr) (define (print-member-table mr)
(let* ((aliases (dict-ref mr 'symlinks)) (let* ((aliases (dict-ref mr 'symlinks))
(head (list (list "ID:" (member-id mr)) (mid (member-id mr))
(head (list (if (is-4digit-prime? mid)
(list "ID:" mid)
(list (ansi-string #:red #:bold "ID:")
(ansi-string #:red #:bold (number->string mid) " (not prime)")))
(list (sprintf "Alias~A:" (if (> (length aliases) 1) "es" "")) (list (sprintf "Alias~A:" (if (> (length aliases) 1) "es" ""))
(string-intersperse (map symbol->string aliases) ", ")) (string-intersperse (map symbol->string aliases) ", "))
(if (member-suspended? mr) (if (member-suspended? mr)