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 to the package reproducibility page

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

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

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

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

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