guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[no subject]


From: Ludovic Courtès
Date: Sun, 29 Oct 2023 16:06:19 -0400 (EDT)

branch: master
commit 286fef2ebbc22058eb5947d1f0cbf4f893a6522d
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Sun Oct 29 17:26:55 2023 +0100

    templates: Move RSS button to the right.
    
    * src/cuirass/templates.scm (specifications-table): Make “RSS events”
    the rightmost button.
    (evaluation-info-table): Likewise.
---
 src/cuirass/templates.scm | 40 ++++++++++++++++++++--------------------
 1 file changed, 20 insertions(+), 20 deletions(-)

diff --git a/src/cuirass/templates.scm b/src/cuirass/templates.scm
index d14e575..cca2b05 100644
--- a/src/cuirass/templates.scm
+++ b/src/cuirass/templates.scm
@@ -293,6 +293,14 @@ system whose names start with " (code "guile-") ":" (br)
   `((div (@ (class "d-flex flex-row mb-3"))
          (div (@ (class "lead mr-auto"))
               "Specifications")
+         ,(let ((name "Toggle between success rate and job count"))
+            `(div
+              (button (@ (class "btn btn-outline-primary job-toggle mr-1")
+                         (title ,name)
+                         (aria-label ,name)
+                         (type "button"))
+                      (i (@ (class "oi oi-dashboard d-inline-block py-1"))
+                         ""))))
          ,(let ((name "Add a specification"))
             `(div
               (a (@ (class "btn btn-outline-primary mr-1")
@@ -304,21 +312,13 @@ system whose names start with " (code "guile-") ":" (br)
                     ""))))
          ,(let ((name "RSS events"))
             `(div
-              (a (@ (class "btn btn-outline-warning mr-1")
+              (a (@ (class "btn btn-outline-warning")
                     (href "/events/rss/")
                     (title ,name)
                     (aria-label ,name)
                     (role "button"))
                  (i (@ (class "oi oi-rss text-warning py-1"))
-                    ""))))
-         ,(let ((name "Toggle between success rate and job count"))
-            `(div
-              (button (@ (class "btn btn-outline-primary job-toggle")
-                         (title ,name)
-                         (aria-label ,name)
-                         (type "button"))
-                      (i (@ (class "oi oi-dashboard d-inline-block py-1"))
-                         "")))))
+                    "")))))
     (table
      (@ (id "spec-table")
         (class "table table-sm table-hover"))
@@ -1015,24 +1015,24 @@ the existing SPEC otherwise."
   `((div (@ (class "d-flex flex-row mb-3"))
          (div (@ (class "lead mr-auto"))
               "Evaluations of " ,name)
+         ,(let ((name "Toggle between build changes and build overview"))
+            `(div
+              (button (@ (class "btn btn-outline-primary job-toggle mr-1")
+                         (title ,name)
+                         (aria-label ,name)
+                         (type "button"))
+                      (i (@ (class "oi oi-dashboard d-inline-block py-1"))
+                         ""))))
          ,(let ((rss-name "RSS events"))
             `(div
-              (a (@ (class "btn btn-outline-warning mr-1")
+              (a (@ (class "btn btn-outline-warning")
                     (href "/events/rss/?specification=" ,name)
                     (title ,rss-name)
                     (aria-label ,rss-name)
                     (role "button"))
                  (i (@ (class "oi oi-rss text-warning py-1")
                        (aria-hidden "true"))
-                    ""))))
-         ,(let ((name "Toggle between build changes and build overview"))
-            `(div
-              (button (@ (class "btn btn-outline-primary job-toggle")
-                         (title ,name)
-                         (aria-label ,name)
-                         (type "button"))
-                      (i (@ (class "oi oi-dashboard d-inline-block py-1"))
-                         "")))))
+                    "")))))
     (table
      (@ (class "table table-sm table-hover table-striped"))
      ,@(if (null? evaluations)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]