From 2128219439999913a116b9620755bb3284a32469 Mon Sep 17 00:00:00 2001 From: Oscar Najera Date: Fri, 26 Jul 2024 19:00:47 +0200 Subject: Setup Nuremberg Toastmasters emails --- install.scm | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) (limited to 'install.scm') diff --git a/install.scm b/install.scm index acabf6e..68c1533 100755 --- a/install.scm +++ b/install.scm @@ -20,17 +20,16 @@ ((_ value (f ...) rest ...) (->> (f ... value) rest ...)) ((_ value f rest ...) (->> (f value) rest ...)))) -(define (ansi-color-log-formatter lvl time str) +(define* (ansi-color-log-formatter lvl time str #:key proc-name #:allow-other-keys) (let ((color (case lvl ((CRITICAL) 'RED) ((WARN) 'YELLOW) ((OK) 'GREEN)))) - (string-append - (strftime "%F %H:%M:%S" (localtime time)) - (colorize-string - (string-append " (" (symbol->string lvl) "): ") color 'BOLD) - str "\n"))) - + (format #f "~a ~a: ~a ~@[(proc: ~a)~]~%" + (strftime "%F %H:%M:%S" (localtime time)) + (colorize-string (symbol->string lvl) color 'BOLD) + str + proc-name))) (define (setup-logging) (let ((lgr (make )) @@ -187,6 +186,8 @@ "hello@oscarnajera.com" "najera.oscar@gmail.com" "oscar@byteplant.com" + "nuremberg.toastmasters@googlemail.com" + "nuremberg.toastmasters@gmail.com" )) (user-mail (if (string=? (gethostname) "obp") -- cgit v1.2.3