Start work on limiting the number of payments in default member display.

src/Makefile

@@ -188,7 +188,8 @@ MEMBERS-PRINT-SOURCES=members-print.scm util-dict-list.import.scm	\
 	bank-account.import.scm members-fees.import.scm			\
 	members-payments.import.scm brmember-format.import.scm		\
 	specification.import.scm cal-format.import.scm			\
-	util-git.import.scm util-list.import.scm
+	util-git.import.scm util-list.import.scm			\
+	racket-kwargs.import.scm
 
 members-print.o: members-print.import.scm
 members-print.import.scm: $(MEMBERS-PRINT-SOURCES)

src/members-print.scm

@@ -65,7 +65,8 @@
 	 specification
 	 cal-format
 	 util-git
-	 cal-day)
+	 cal-day
+	 racket-kwargs)
 
  ;; Returns nicely formatted table
  (define (member-info->table mr)
@@ -217,7 +218,8 @@
       )))
 
  ;; Prints nicely printed payments
- (define (member-payments->table mr)
+ (define* (member-payments->table mr (max-trans #f))
+   (let ((payments (brmember-payments mr)))
      (table->string (cons
 		     (list "Var" "Amount" "Cur" "Date" "TrId")
 		     (map (lambda (tr)
@@ -226,10 +228,10 @@
 				  (bank-transaction-currency tr)
 				  (bank-transaction-date tr)
 				  (bank-transaction-id tr)))
-			(brmember-payments mr)))
+			  payments))
 		    #:border '(((#:bottom #:right light) ... (#:bottom light))
 			       ((#:right light) ... none)
-			     ...)))
+			       ...))))
 
  ;; Converts member records to string, optional arguments are format
  ;; and separator. Format defaults to "~N" and separator to ", ".