From 5f631820c8f572e2a6fa1fe3f5c4c7fcc2aa1714 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Wed, 19 Jun 2019 00:09:27 +0200 Subject: templates: Link to "details" page in build tables. * src/cuirass/templates.scm (build-eval-table, build-search-results-table): Link ID to build details URL. --- src/cuirass/templates.scm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/src/cuirass/templates.scm b/src/cuirass/templates.scm index cdbbbcc..8c71e18 100644 --- a/src/cuirass/templates.scm +++ b/src/cuirass/templates.scm @@ -361,7 +361,9 @@ and BUILD-MAX are global minimal and maximal (stoptime, rowid) pairs." (title "Failed") (aria-hidden "true")) "")))) - (th (@ (scope "row")),(assq-ref build #:id)) + (th (@ (scope "row")) + (a (@ (href "/build/" ,(assq-ref build #:id) "/details")) + ,(assq-ref build #:id))) (td ,(assq-ref build #:jobset)) (td ,(if completed? (time->string (assq-ref build #:stoptime)) @@ -477,7 +479,9 @@ and BUILD-MAX are global minimal and maximal row identifiers." (title "Failed") (aria-hidden "true")) "")))) - (th (@ (scope "row")),(assq-ref build #:id)) + (th (@ (scope "row")) + (a (@ (href "/build/" ,(assq-ref build #:id) "/details")) + ,(assq-ref build #:id))) (td ,(assq-ref build #:jobset)) (td ,(if completed? (time->string (assq-ref build #:stoptime)) -- cgit v1.2.3