diff --git a/doc/hackerbase.1 b/doc/hackerbase.1 index e720a8d..382912b 100644 --- a/doc/hackerbase.1 +++ b/doc/hackerbase.1 @@ -214,6 +214,10 @@ file can be overriden by this option. This file is used for the .B \-dokuwiki \fRdir Base directory of DokuWiki installation. +.TP +.B \-count \fRcount +Maximum count of transactions shown in member detail view. + .TP .B \-from \fRemail Specify sender email address. The value read from configuration file diff --git a/src/hackerbase.scm b/src/hackerbase.scm index 01e3695..0c2439d 100644 --- a/src/hackerbase.scm +++ b/src/hackerbase.scm @@ -101,6 +101,8 @@ (*checked-file* file)) (-dokuwiki (dir) "Base directory of DokuWiki" (*doku-base* dir)) + (-count (count) "Maximum number of transactions shown" + (*show-payments-count* (string->number pcount))) "" "Email options:" (-from (email) "Sender email address" @@ -358,7 +360,7 @@ (print "Mailman synchronization disabled with manually specified current month."))) ((notify) (let ((nmembers (members-to-notify MB (-notify-months-)))) - (newline) +/ (newline) (if (null? nmembers) (print "Everyone paid on time.") (let () diff --git a/src/members-print.scm b/src/members-print.scm index 3a3c209..c0b3286 100644 --- a/src/members-print.scm +++ b/src/members-print.scm @@ -69,7 +69,7 @@ cal-day racket-kwargs) - (define *show-payments-count* (make-parameter #f)) + (define *show-payments-count* (make-parameter 36)) ;; Returns nicely formatted table (define (member-info->table mr)