diff options
| author | Tobias Geerinckx-Rice <me@tobias.gr> | 2019-06-19 16:23:43 +0200 |
|---|---|---|
| committer | Tobias Geerinckx-Rice <me@tobias.gr> | 2019-06-19 16:24:18 +0200 |
| commit | 8c91c82e3529a4a479864655a2ac76a90e7f12ad (patch) | |
| tree | 31a4954583ec82325f5a674c223bc459565f9b8b | |
| parent | 39e3c899e202ae0c177e09083951f3da67805393 (diff) | |
| download | cuirass-8c91c82e3529a4a479864655a2ac76a90e7f12ad.tar cuirass-8c91c82e3529a4a479864655a2ac76a90e7f12ad.tar.gz | |
templates: Add link titles to evaluation badges.
* src/cuirass/templates.scm (evaluation-badges): Add ‘title’ attributes.
| -rw-r--r-- | src/cuirass/templates.scm | 9 |
1 files 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…")))) |