diff options
author | Ricardo Wurmus <rekado@elephly.net> | 2019-06-19 09:38:08 +0200 |
---|---|---|
committer | Ricardo Wurmus <rekado@elephly.net> | 2019-06-19 09:38:08 +0200 |
commit | 372d47b32690a90276814e8fc4101f5fc5744586 (patch) | |
tree | 74fb1543f0d7d9df7daabb1f39e12bcf3cfd3ce4 /src/cuirass/templates.scm | |
parent | 11f888abb8397a6daec9033ef4a57e325dcb9bde (diff) | |
download | cuirass-372d47b32690a90276814e8fc4101f5fc5744586.tar cuirass-372d47b32690a90276814e8fc4101f5fc5744586.tar.gz |
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.
Diffstat (limited to 'src/cuirass/templates.scm')
-rw-r--r-- | src/cuirass/templates.scm | 25 |
1 files changed, 10 insertions, 15 deletions
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) |