diff options
author | Ricardo Wurmus <rekado@elephly.net> | 2019-06-19 00:09:27 +0200 |
---|---|---|
committer | Ricardo Wurmus <rekado@elephly.net> | 2019-06-19 00:09:27 +0200 |
commit | 5f631820c8f572e2a6fa1fe3f5c4c7fcc2aa1714 (patch) | |
tree | 699c5cf9ad16fe623e1862d857622b925962bc96 | |
parent | 5070d17e7e1f8fbf9c59409de9b0a573054f8c65 (diff) | |
download | cuirass-5f631820c8f572e2a6fa1fe3f5c4c7fcc2aa1714.tar cuirass-5f631820c8f572e2a6fa1fe3f5c4c7fcc2aa1714.tar.gz |
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.
-rw-r--r-- | src/cuirass/templates.scm | 8 |
1 files 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)) |