me/guix
Archived
1
0
Fork 0
Code Activity

weather: Actually show the weather.

Browse source 
* guix/scripts/weather.scm (report-server-coverage): Show a weather icon.
This commit is contained in:
Ludovic Courtès 2022-09-15 08:51:39 +02:00
parent 8084e3bdb3
commit 818220f1cc
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
guix/scripts/weather.scm
View file

@ -205,7 +205,6 @@ In case ITEMS is an empty list, return 1 instead."
#:make-progress-reporter #:make-progress-reporter
(lambda* (total #:key url #:allow-other-keys) (lambda* (total #:key url #:allow-other-keys)
(progress-reporter/bar total))))) (progress-reporter/bar total)))))
(format #t (highlight "~a~%") server)
(let ((obtained (length narinfos)) (let ((obtained (length narinfos))
(requested (length items)) (requested (length items))
(missing (lset-difference string=? (missing (lset-difference string=?
@ -224,6 +223,15 @@ In case ITEMS is an empty list, return 1 instead."
(coloring-procedure (color BOLD RED))) (coloring-procedure (color BOLD RED)))
(else (else
highlight)))) 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 (format #t
(colorize (G_ " ~,1f% substitutes available (~h out of ~h)~%")) (colorize (G_ " ~,1f% substitutes available (~h out of ~h)~%"))
(* 100. ratio) (* 100. ratio)