guix/data-service
2
0
Fork 0
mirror of git://git.savannah.gnu.org/guix/data-service.git synced 2023-12-14 03:23:03 +01:00
Code Issues Releases Wiki Activity

Add a revision header and link on the revision builds page

Browse source 
To make it easier to get back to the revision page, as well as setting the
page content in context.
This commit is contained in:
Christopher Baines 2020-01-04 21:07:56 +00:00
parent b26ba82dad
commit 8a3b0d97b8
2 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
guix-data-service/web/revision/controller.scm
View file

@ -758,6 +758,7 @@
(if (any-invalid-query-parameters? query-parameters)
(render-html
#:sxml (view-revision-builds query-parameters
commit-hash
build-status-strings
(valid-systems conn)
'()
@ -767,6 +768,7 @@
(target (assq-ref query-parameters 'target)))
(render-html
#:sxml (view-revision-builds query-parameters
commit-hash
build-status-strings
(valid-systems conn)
(map (match-lambda

4
guix-data-service/web/revision/html.scm
View file

@ -1172,6 +1172,7 @@ figure {
'())))))))
(define (view-revision-builds query-parameters
commit-hash
build-status-strings
valid-systems
build-server-options
@ -1186,6 +1187,9 @@ figure {
(@ (class "row"))
(div
(@ (class "col-sm-12"))
(h3 (a (@ (style "white-space: nowrap;")
(href ,(string-append "/revision/" commit-hash)))
"Revision " (samp ,commit-hash)))
(h1 "Builds")
(table
(@ (class "table"))