Setup Nuremberg Toastmasters emails

1 files changed, 8 insertions, 7 deletions

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 <logger>))
@@ -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")