diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-01-04 21:07:56 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-01-04 21:07:56 +0000 |
| commit | 8a3b0d97b87d0c3e204cd852acd16a61344c18c4 (patch) | |
| tree | f71576e4cca31c5a6d6891058f34273ec69dbef3 | |
| parent | b26ba82dadf3f1b9fee1498eeca263940cb71ce4 (diff) | |
| download | data-service-8a3b0d97b87d0c3e204cd852acd16a61344c18c4.tar data-service-8a3b0d97b87d0c3e204cd852acd16a61344c18c4.tar.gz | |
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.
| -rw-r--r-- | guix-data-service/web/revision/controller.scm | 2 | ||||
| -rw-r--r-- | guix-data-service/web/revision/html.scm | 4 |
2 files changed, 6 insertions, 0 deletions
diff --git a/guix-data-service/web/revision/controller.scm b/guix-data-service/web/revision/controller.scm index 0643af8..5582867 100644 --- a/guix-data-service/web/revision/controller.scm +++ b/guix-data-service/web/revision/controller.scm @@ -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 diff --git a/guix-data-service/web/revision/html.scm b/guix-data-service/web/revision/html.scm index 00d6daa..0ddd503 100644 --- a/guix-data-service/web/revision/html.scm +++ b/guix-data-service/web/revision/html.scm @@ -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")) |