diff options
| author | TSholokhova <tanja201396@gmail.com> | 2018-09-30 01:06:39 +0200 |
|---|---|---|
| committer | Clément Lassieur <clement@lassieur.org> | 2018-09-30 17:08:17 +0200 |
| commit | bccb268f80b39ccdadecb07b3d1bf26b2e1ec1a0 (patch) | |
| tree | d3908e60080c94a438e76272d35fb8e79a5e47c7 | |
| parent | cbf8e138354ab24b597e16b1a10d9d472d63bc53 (diff) | |
| download | cuirass-bccb268f80b39ccdadecb07b3d1bf26b2e1ec1a0.tar cuirass-bccb268f80b39ccdadecb07b3d1bf26b2e1ec1a0.tar.gz | |
templates: Add title to the evaluations table.
* src/cuirass/http.scm (url-handler): Pass the ID argument to
BUILD-EVAL-TABLE.
* src/cuirass/templates.scm (build-eval-table): Add an EVAL-ID argument, add
title.
| -rw-r--r-- | src/cuirass/http.scm | 1 | ||||
| -rw-r--r-- | src/cuirass/templates.scm | 9 |
2 files changed, 8 insertions, 2 deletions
diff --git a/src/cuirass/http.scm b/src/cuirass/http.scm index 62294d3..bf171ee 100644 --- a/src/cuirass/http.scm +++ b/src/cuirass/http.scm @@ -322,6 +322,7 @@ Hydra format." (html-page "Evaluation" (build-eval-table + id (handle-builds-request `((evaluation . ,id) (status . ,(and=> status string->symbol)) diff --git a/src/cuirass/templates.scm b/src/cuirass/templates.scm index fda3b48..d4968d7 100644 --- a/src/cuirass/templates.scm +++ b/src/cuirass/templates.scm @@ -181,7 +181,7 @@ (format #f "?border-high=~d" page-id-min)) (format #f "?border-low=~d" (1- id-min))))))) -(define (build-eval-table builds build-min build-max status) +(define (build-eval-table eval-id builds build-min build-max status) "Return HTML for the BUILDS table evaluation with given STATUS. BUILD-MIN and BUILD-MAX are global minimal and maximal (stoptime, rowid) pairs." (define (table-header) @@ -228,7 +228,12 @@ and BUILD-MAX are global minimal and maximal (stoptime, rowid) pairs." (match build ((stoptime id) stoptime))) - `((table + `((p (@ (class "lead")) + ,(format #f "~@[~a~] ~:[B~;b~]uilds of evaluation #~a" + (and=> status string-capitalize) + status + eval-id)) + (table (@ (class "table table-sm table-hover table-striped")) ,@(if (null? builds) `((th (@ (scope "col")) "No elements here.")) |