guix-commits
[Top][All Lists]
Advanced

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

[no subject]


From: Tobias Geerinckx-Rice
Date: Wed, 19 Jun 2019 10:42:43 -0400 (EDT)

branch: master
commit 8c91c82e3529a4a479864655a2ac76a90e7f12ad
Author: Tobias Geerinckx-Rice <address@hidden>
Date:   Wed Jun 19 16:23:43 2019 +0200

    templates: Add link titles to evaluation badges.
    
    * src/cuirass/templates.scm (evaluation-badges): Add ‘title’ attributes.
---
 src/cuirass/templates.scm | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/src/cuirass/templates.scm b/src/cuirass/templates.scm
index 9ebdd2e..342fd13 100644
--- a/src/cuirass/templates.scm
+++ b/src/cuirass/templates.scm
@@ -254,13 +254,16 @@
                        (aria-hidden "true"))
                     ""))
             `((a (@ (href "/eval/" ,(assq-ref evaluation #:id) 
"?status=succeeded")
-                    (class "badge badge-success"))
+                    (class "badge badge-success")
+                    (title "Succeeded"))
                  ,succeeded)
               (a (@ (href "/eval/" ,(assq-ref evaluation #:id) 
"?status=failed")
-                    (class "badge badge-danger"))
+                    (class "badge badge-danger")
+                    (title "Failed"))
                  ,failed)
               (a (@ (href "/eval/" ,(assq-ref evaluation #:id) 
"?status=pending")
-                    (class "badge badge-secondary"))
+                    (class "badge badge-secondary")
+                    (title "Scheduled"))
                  ,scheduled))))
       '((em "In progress…"))))
 



reply via email to

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