diff options
Diffstat (limited to 'install.scm')
| -rwxr-xr-x | install.scm | 15 |
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") |