From d5c94cb52c0353a9afcbf47209dc8a33f25594da Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Sun, 2 Jul 2023 19:49:19 +0200
Subject: [PATCH] Use table width limit.

---
 src/members-print.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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