mirror of
git://git.savannah.gnu.org/guix/data-service.git
synced 2023-12-14 03:23:03 +01:00
Add a revision header and link on the revision builds page
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:
parent
b26ba82dad
commit
8a3b0d97b8
2 changed files with 6 additions and 0 deletions
|
@ -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
|
||||
|
|
|
@ -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"))
|
||||
|
|
Loading…
Reference in a new issue