guix
/
guix-cuirass
mirror of git://git.savannah.gnu.org/guix/guix-cuirass.git
2
0
Fork 0
Code Issues Releases Wiki Activity

templates: Distinguish failure counter when there are new failures. 

The failed-build counter on /eval/ID pages is now orange when there are
no new build failures, red when there are new build failures.

* src/cuirass/templates.scm (newly-failed-build-badge): New procedure.
(specifications-table): Use it instead of ‘failed-build-badge’.
(evaluation-badges): Use ‘newly-failed-build-badge’ when ABSOLUTE has
a positive ‘new-failed’.
This commit is contained in:
Ludovic Courtès 2023-11-18 12:46:19 +01:00
parent 7f042dbc37
commit 0daae8bfc9
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 14 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
src/cuirass/templates.scm
View File

@ -405,7 +405,7 @@ system whose names start with " (code "guile-") ":" (br)
(@ (class "job-rel d-none"))
,(successful-build-badge
(evaluation-summary-succeeded summary))
,(failed-build-badge
,(newly-failed-build-badge
(evaluation-summary-failed summary))
,(scheduled-build-badge
(evaluation-summary-scheduled summary)))))
@ -969,7 +969,7 @@ the existing SPEC otherwise."
(evaluation-summary-succeeded absolute)
0)))
,(dashboard-link
(failed-build-badge
(newly-failed-build-badge
(if absolute
(evaluation-summary-failed absolute)
0)))
@ -986,12 +986,15 @@ the existing SPEC otherwise."
(number->string
(build-summary-evaluation-id evaluation))
"?status=succeeded"))
,(failed-build-badge (build-summary-failed evaluation)
(string-append
"/eval/"
(number->string
(build-summary-evaluation-id evaluation))
"?status=failed"))
,((if (> (evaluation-summary-newly-failed absolute) 0)
newly-failed-build-badge
failed-build-badge)
(build-summary-failed evaluation)
(string-append
"/eval/"
(number->string
(build-summary-evaluation-id evaluation))
"?status=failed"))
,(scheduled-build-badge (build-summary-scheduled evaluation)
(string-append
"/eval/"
@ -1450,7 +1453,9 @@ the channel's URL."
(define successful-build-badge
(cut build-counter-badge <> "badge-success" "Succeeded" <...>))
(define failed-build-badge
(cut build-counter-badge <> "badge-danger" "Failed" <...>))
(cut build-counter-badge <> "badge-warning" "Failed" <...>))
(define newly-failed-build-badge
(cut build-counter-badge <> "badge-danger" "Failed, including new failures" <...>))
(define scheduled-build-badge
(cut build-counter-badge <> "badge-secondary" "Scheduled" <...>))