branch: master
commit 77588943557bec29b57b0c4210279094cc2e9ff1
Author: Ludovic Courtès <[email protected]>
AuthorDate: Wed Aug 23 16:20:16 2023 +0200
templates: Remove "Specification" column from build tables.
This unclutters build tables.
* src/cuirass/templates.scm (build-eval-table): Remove "Specification"
column.
(evaluation-build-table): Add spec to the heading.
---
src/cuirass/templates.scm | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/src/cuirass/templates.scm b/src/cuirass/templates.scm
index 66404c4..bfcdaaf 100644
--- a/src/cuirass/templates.scm
+++ b/src/cuirass/templates.scm
@@ -1127,7 +1127,6 @@ and BUILD-MAX are global minimal and maximal (stoptime,
rowid) pairs."
(th (@ (scope "col") (class "border-0")) '())
(th (@ (scope "col") (class "border-0")) '())
(th (@ (scope "col") (class "border-0")) "ID")
- (th (@ (scope "col") (class "border-0")) "Specification")
(th (@ (scope "col") (class "border-0")) "Completion time")
(th (@ (scope "col") (class "border-0")) "Job")
(th (@ (scope "col") (class "border-0")) "Name")
@@ -1153,7 +1152,6 @@ and BUILD-MAX are global minimal and maximal (stoptime,
rowid) pairs."
(th (@ (scope "row"))
(a (@ (href "/build/" ,(build-id build) "/details"))
,(build-id build)))
- (td ,(build-specification-name build))
(td ,(if (completed? status)
(time->string (build-completion-time build))
"—"))
@@ -1316,9 +1314,11 @@ evaluation."
(define scheduled (evaluation-summary-scheduled evaluation))
(define duration (- evaltime timestamp))
+ (define spec (evaluation-specification-name (db-get-evaluation id)))
`((p (@ (class "lead"))
- ,(format #f "Evaluation #~a" id))
+ "Evaluation #" ,(number->string id)
+ ", " (a (@ (href "/jobset/" ,spec)) ,spec) " jobset")
,@(if (= timestamp 0)
'()
`((p ,(if (= evaltime 0)
