[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…"))))