[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[no subject]
From: |
Ricardo Wurmus |
Date: |
Tue, 18 Jun 2019 18:10:24 -0400 (EDT) |
branch: master
commit 5f631820c8f572e2a6fa1fe3f5c4c7fcc2aa1714
Author: Ricardo Wurmus <address@hidden>
Date: Wed Jun 19 00:09:27 2019 +0200
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))