From 131def55a865231567027c2a03fd49e8a8dc69fa Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Tue, 11 Apr 2023 21:30:00 +0200 Subject: [PATCH] Quiet option. --- src/Makefile | 3 ++- src/hackerbase.scm | 16 +++++++++++----- 2 files changed, 13 insertions(+), 6 deletions(-) diff --git a/src/Makefile b/src/Makefile index 5cbbec8..edc0495 100644 --- a/src/Makefile +++ b/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 \ diff --git a/src/hackerbase.scm b/src/hackerbase.scm index cc0967e..27afa8d 100644 --- a/src/hackerbase.scm +++ b/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!)