diff options
| author | Oscar Najera <hi@oscarnajera.com> | 2023-09-18 13:12:03 +0200 |
|---|---|---|
| committer | Oscar Najera <hi@oscarnajera.com> | 2023-09-18 13:12:03 +0200 |
| commit | 729db4356623b88623e59d647a3267183949692c (patch) | |
| tree | 25b4dad940246fe229fa16f97500435bc162ad58 /install.scm | |
| parent | bf071575fc77830487798ff3fc626bf6cac3d459 (diff) | |
| download | dotfiles-729db4356623b88623e59d647a3267183949692c.tar.gz dotfiles-729db4356623b88623e59d647a3267183949692c.tar.bz2 dotfiles-729db4356623b88623e59d647a3267183949692c.zip | |
install review
Diffstat (limited to 'install.scm')
| -rwxr-xr-x | install.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/install.scm b/install.scm index fe0dc2d..d15c804 100755 --- a/install.scm +++ b/install.scm @@ -20,9 +20,10 @@ ((_ value f rest ...) (->> (f value) rest ...)))) (define (ansi-color-log-formatter lvl time str) - (let ((color (cond ((eq? lvl 'CRITICAL) 'RED) - ((eq? lvl 'WARN) 'YELLOW) - ((eq? lvl 'OK) 'GREEN)))) + (let ((color (case lvl + ((CRITICAL) 'RED) + ((WARN) 'YELLOW) + ((OK) 'GREEN)))) (string-append (strftime "%F %H:%M:%S" (localtime time)) (colorize-string |