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

Use table width limit.

Browse source
This commit is contained in:
Dominik Pantůček 2023-07-02 19:49:19 +02:00
parent 92cfbb699d
commit d5c94cb52c
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/members-print.scm
View file

@ -296,9 +296,8 @@
#f #f
(list (string-append "\t" label) (list (string-append "\t" label)
(length mrs) (length mrs)
(ansi-paragraph-format
(member-records->string mrs fmt) (member-records->string mrs fmt)
60))))) ))))
;; Prints nicely aligned members base info ;; Prints nicely aligned members base info
(define (print-members-base-table mb) (define (print-members-base-table mb)
@ -384,6 +383,7 @@
#:border '(((#:bottom #:right light) ... (#:bottom light)) #:border '(((#:bottom #:right light) ... (#:bottom light))
... ...
((#:right light) ... none)) ((#:right light) ... none))
#:width 70
#:ansi-reset? #t))) #:ansi-reset? #t)))
(let ((pmrs (find-members-by-predicate mb brmember-file-has-problems?))) (let ((pmrs (find-members-by-predicate mb brmember-file-has-problems?)))
(when (not (null? pmrs)) (when (not (null? pmrs))