diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-01-04 21:08:39 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-01-04 21:08:39 +0000 |
| commit | 04ab01725bb6e4ec04bb51c81234b4372a6beaa4 (patch) | |
| tree | e97602b59bda273848c7925468761cb02b5bead6 | |
| parent | 8a3b0d97b87d0c3e204cd852acd16a61344c18c4 (diff) | |
| download | data-service-04ab01725bb6e4ec04bb51c81234b4372a6beaa4.tar data-service-04ab01725bb6e4ec04bb51c81234b4372a6beaa4.tar.gz | |
Add a revision header and link to the package reproducibility page
To make it easier to get back to the revision page, as well as setting the
content more in context.
| -rw-r--r-- | guix-data-service/web/revision/controller.scm | 3 | ||||
| -rw-r--r-- | guix-data-service/web/revision/html.scm | 11 |
2 files changed, 6 insertions, 8 deletions
diff --git a/guix-data-service/web/revision/controller.scm b/guix-data-service/web/revision/controller.scm index 5582867..bf01863 100644 --- a/guix-data-service/web/revision/controller.scm +++ b/guix-data-service/web/revision/controller.scm @@ -360,8 +360,7 @@ (render-html #:sxml (view-revision-package-reproducibility commit-hash - output-consistency - #:header-text '("Package reproducibility status"))))))) + output-consistency)))))) (define (render-revision-news mime-types conn diff --git a/guix-data-service/web/revision/html.scm b/guix-data-service/web/revision/html.scm index 0ddd503..f388af6 100644 --- a/guix-data-service/web/revision/html.scm +++ b/guix-data-service/web/revision/html.scm @@ -649,9 +649,7 @@ '()))))) (define* (view-revision-package-reproducibility revision-commit-hash - output-consistency - #:key path-base - header-text header-link) + output-consistency) (layout #:body `(,(header) @@ -723,8 +721,9 @@ figure { (div (@ (class "col-sm-12")) (h3 (a (@ (style "white-space: nowrap;") - (href ,header-link)) - ,@header-text)))) + (href ,(string-append "/revision/" revision-commit-hash))) + "Revision " (samp ,revision-commit-hash))) + (h1 "Package reproducibility"))) (div (@ (class "row")) ;; Inspired by @@ -750,7 +749,7 @@ figure { `(div (@ (class "col-sm-6")) - (h2 (@ (style "font-family: monospace;")) + (h3 (@ (style "font-family: monospace;")) ,system) (figure (div |