summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRicardo Wurmus <rekado@elephly.net>2019-06-19 00:09:27 +0200
committerRicardo Wurmus <rekado@elephly.net>2019-06-19 00:09:27 +0200
commit5f631820c8f572e2a6fa1fe3f5c4c7fcc2aa1714 (patch)
tree699c5cf9ad16fe623e1862d857622b925962bc96
parent5070d17e7e1f8fbf9c59409de9b0a573054f8c65 (diff)
downloadcuirass-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.scm8
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))