branch: master commit bccb268f80b39ccdadecb07b3d1bf26b2e1ec1a0 Author: TSholokhova <tanja201...@gmail.com> Date: Sun Sep 30 01:06:39 2018 +0200
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. --- src/cuirass/http.scm | 1 + 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."))