Quiet option.

src/Makefile

@@ -37,7 +37,8 @@ HACKERBASE-DEPS=hackerbase.scm month.import.scm				\
 	cards.import.scm members-print.import.scm			\
 	members-payments.import.scm web-static.import.scm		\
 	environment.import.scm mailman.import.scm texts.import.scm	\
-	tests.import.scm reminders.import.scm logging.import.scm
+	tests.import.scm reminders.import.scm logging.import.scm	\
+	progress.import.scm
 
 HACKERBASE-OBJS=hackerbase.o testing.o listing.o month.o period.o	\
 	 ansi.o util-dict-list.o command-line.o members-base.o		\

src/hackerbase.scm

@@ -39,11 +39,8 @@
 	tests
 	reminders
 	util-mail
-	logging)
-
-;; Print banner
-(print "HackerBase 0.9.5 (c) 2023 Brmlab, z.s.")
-(newline)
+	logging
+	progress)
 
 ;; Command-line options and configurable parameters
 (define -needs-bank- (make-parameter #f))
@@ -58,6 +55,7 @@
 (define -show-destroyed- (make-parameter #f))
 (define -notify-months- (make-parameter 1))
 (define -send-emails- (make-parameter #f))
+(define -quiet- (make-parameter #f))
 
 ;; Configuration overrides
 (define =members-directory= (make-parameter #f))
@@ -106,6 +104,9 @@
 	  (*mailto-override* email))
  (-logfile (filename) "Enable logging to file"
 	   (*log-file* filename))
+ (-quiet () "Suppress all output"
+	 (-quiet- #t)
+	 (*progress-quiet* #t))
  ""
  "Query options:"
  (-mi (id) "Specify member by id" (-member-id- (string->number id)))
@@ -159,6 +160,11 @@
 	   (-action- 'notify))
  )
 
+;; Print banner
+(when (not (-quiet-))
+  (print "HackerBase 0.9.5 (c) 2023 Brmlab, z.s.")
+  (newline))
+
 ;; Load default configuration
 (load-configuration!)