guix
/
guix-cuirass
mirror of git://git.savannah.gnu.org/guix/guix-cuirass.git
2
0
Fork 0
Code Issues Releases Wiki Activity

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.
This commit is contained in:
Ricardo Wurmus 2019-06-19 00:09:27 +02:00
parent 5070d17e7e
commit 5f631820c8
No known key found for this signature in database
GPG Key ID: 197A5888235FACAC
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/cuirass/templates.scm
View File

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