[no subject]

[Clément Lassieur]

branch: master
commit bccb268f80b39ccdadecb07b3d1bf26b2e1ec1a0
Author: TSholokhova <address@hidden>
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 "address@hidden ~:[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."))