Quiet option.

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!)