From f6662298c95372d725b44ed46cd1b7b80ea1c31a Mon Sep 17 00:00:00 2001
From: Mathieu Othacehe <othacehe@gnu.org>
Date: Mon, 1 Feb 2021 19:02:27 +0100
Subject: [PATCH] Move weather icon next to build status icon.

* src/cuirass/templates.scm (build-details): Move the weather icon.
---
 src/cuirass/templates.scm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/cuirass/templates.scm b/src/cuirass/templates.scm
index 5d641c43..b0ca9ec4 100644
--- a/src/cuirass/templates.scm
+++ b/src/cuirass/templates.scm
@@ -550,13 +550,13 @@ and BUILD-MAX are global minimal and maximal (stoptime, rowid) pairs."
   (define (table-header)
     `(thead
       (tr
+       (th (@ (scope "col") (class "border-0")) '())
        (th (@ (scope "col") (class "border-0")) '())
        (th (@ (scope "col") (class "border-0")) "ID")
        (th (@ (scope "col") (class "border-0")) "Specification")
        (th (@ (scope "col") (class "border-0")) "Completion time")
        (th (@ (scope "col") (class "border-0")) "Job")
        (th (@ (scope "col") (class "border-0")) "Name")
-       (th (@ (scope "col") (class "border-0")) "Weather")
        (th (@ (scope "col") (class "border-0")) "System")
        (th (@ (scope "col") (class "border-0")) "Log"))))
 
@@ -576,6 +576,10 @@ and BUILD-MAX are global minimal and maximal (stoptime, rowid) pairs."
                    (title ,(status-title status))
                    (aria-hidden "true"))
                 ""))
+      (td (span (@ (class ,(weather-class weather))
+                   (title ,(weather-title weather))
+                   (aria-hidden "true"))
+                ""))
       (th (@ (scope "row"))
           (a (@ (href "/build/" ,(assq-ref build #:id) "/details"))
              ,(assq-ref build #:id)))
@@ -585,10 +589,6 @@ and BUILD-MAX are global minimal and maximal (stoptime, rowid) pairs."
                "鈥�"))
       (td ,(assq-ref build #:job))
       (td ,(assq-ref build #:nixname))
-      (td (span (@ (class ,(weather-class weather))
-                   (title ,(weather-title weather))
-                   (aria-hidden "true"))
-                ""))
       (td ,(assq-ref build #:system))
       (td (a (@ (href "/build/" ,(assq-ref build #:id) "/log/raw"))
                "raw"))))
-- 
GitLab