diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2022-09-15 08:51:39 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2022-09-20 19:24:31 +0200 |
| commit | 818220f1ccd57d14a62f07489b0e5e21837bb3dd (patch) | |
| tree | bcfc81edf22a6d577b712c00c440959335cb4431 /guix | |
| parent | 8084e3bdb3c22b735d3e8df282a3bcb0a7ca6a59 (diff) | |
weather: Actually show the weather.
* guix/scripts/weather.scm (report-server-coverage): Show a weather icon.
Diffstat (limited to 'guix')
| -rw-r--r-- | guix/scripts/weather.scm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/guix/scripts/weather.scm b/guix/scripts/weather.scm index b7d8165262..f46c11b1a5 100644 --- a/guix/scripts/weather.scm +++ b/guix/scripts/weather.scm @@ -205,7 +205,6 @@ In case ITEMS is an empty list, return 1 instead." #:make-progress-reporter (lambda* (total #:key url #:allow-other-keys) (progress-reporter/bar total))))) - (format #t (highlight "~a~%") server) (let ((obtained (length narinfos)) (requested (length items)) (missing (lset-difference string=? @@ -224,6 +223,15 @@ In case ITEMS is an empty list, return 1 instead." (coloring-procedure (color BOLD RED))) (else highlight)))) + (format #t (highlight "~a ~a~%") server + ;; This requires a Unicode-capable encoding, which we + ;; restrict to UTF-8 for simplicity. + (if (string=? (port-encoding (current-output-port)) "UTF-8") + (cond ((> ratio 0.80) "☀") + ((< ratio 0.50) "⛈") + (else "⛅")) + "")) + (format #t (colorize (G_ " ~,1f% substitutes available (~h out of ~h)~%")) (* 100. ratio) |