branch master updated: Add weather support in build details.

[Mathieu Othacehe]

This is an automated email from the git hooks/post-receive script.

mothacehe pushed a commit to branch master
in repository guix-cuirass.

The following commit(s) were added to refs/heads/master by this push:
     new f9a5cbe  Add weather support in build details.
f9a5cbe is described below

commit f9a5cbe0dd48073c4341c7b26c18b87f2e8ffddc
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Mon Feb 1 15:15:13 2021 +0100

    Add weather support in build details.
    
    * src/cuirass/templates.scm (build-details): Display weather.
---
 src/cuirass/templates.scm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/cuirass/templates.scm b/src/cuirass/templates.scm
index 84fde8a..111fc3b 100644
--- a/src/cuirass/templates.scm
+++ b/src/cuirass/templates.scm
@@ -244,6 +244,7 @@ system whose names start with " (code "guile-") ":" (br)
 (define (build-details build products)
   "Return HTML showing details for the BUILD."
   (define status (assq-ref build #:status))
+  (define weather (assq-ref build #:weather))
   (define blocking-outputs
     (or (and-let* (((= (build-status failed-dependency) status))
                    (drv (false-if-exception
@@ -307,6 +308,11 @@ system whose names start with " (code "guile-") ":" (br)
           (td ,(if completed?
                    (time->string (assq-ref build #:stoptime))
                    "—")))
+      (tr (th "Weather")
+          (td (span (@ (class ,(weather-class weather))
+                       (title ,(weather-title weather))
+                       (aria-hidden "true"))
+                    "")))
       (tr (th "Log file")
           (td (a (@ (href "/build/" ,(assq-ref build #:id) "/log/raw"))
                  "raw")))