[no subject]

[Ricardo Wurmus]

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))