From 372d47b32690a90276814e8fc4101f5fc5744586 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Wed, 19 Jun 2019 09:38:08 +0200 Subject: cuirass: Display builds in separate tabs. * src/cuirass/http.scm (url-handler): Split result for "eval" page in tabs. * src/cuirass/templates.scm (build-eval-table): Remove border from table head; Remove lead paragraph. --- src/cuirass/templates.scm | 25 ++++++++++--------------- 1 file changed, 10 insertions(+), 15 deletions(-) (limited to 'src/cuirass/templates.scm') diff --git a/src/cuirass/templates.scm b/src/cuirass/templates.scm index 8c71e18..989cbf9 100644 --- a/src/cuirass/templates.scm +++ b/src/cuirass/templates.scm @@ -317,14 +317,14 @@ and BUILD-MAX are global minimal and maximal (stoptime, rowid) pairs." (define (table-header) `(thead (tr - (th (@ (scope "col")) '()) - (th (@ (scope "col")) "ID") - (th (@ (scope "col")) "Specification") - (th (@ (scope "col")) "Completion time") - (th (@ (scope "col")) "Job") - (th (@ (scope "col")) "Name") - (th (@ (scope "col")) "System") - (th (@ (scope "col")) "Log")))) + (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") + (th (@ (scope "col") (class "border-0")) "System") + (th (@ (scope "col") (class "border-0")) "Log")))) (define (table-row build) (define status @@ -384,15 +384,10 @@ and BUILD-MAX are global minimal and maximal (stoptime, rowid) pairs." (match build ((stoptime id) stoptime))) - `((p (@ (class "lead")) - ,(format #f "~@[~a~] ~:[B~;b~]uilds of evaluation #~a" - (and=> status string-capitalize) - status - eval-id)) - (table + `((table (@ (class "table table-sm table-hover table-striped")) ,@(if (null? builds) - `((th (@ (scope "col")) "No elements here.")) + `((th (@ (scope "col") (class "border-0")) "No elements here.")) `(,(table-header) (tbody ,@(map table-row builds))))) ,(if (null? builds) -- cgit v1.2.3