cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Link to the derivation outputs from the package reproducibility page

Browse source
This commit is contained in:
Christopher Baines 2019-12-16 20:31:13 +00:00
parent 4af643136e
commit 7e476536cb
1 changed files with 13 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -840,16 +840,24 @@ figure {
(@ (class "figure-key-list") (@ (class "figure-key-list")
(aria-hidden "true") (aria-hidden "true")
(role "presentation")) (role "presentation"))
,@(map (lambda (label count percentage colour) ,@(map (lambda (key label count percentage colour)
`(li `(li
(span (@ (class "shape-circle") (span (@ (class "shape-circle")
(style (style
,(string-append "background-color: " ,(string-append "background-color: "
colour ";")))) colour ";"))))
,(format #f "~a (~d, ~2,2f%)" (a (@ (href
label ,(string-append
(or count 0) "/revision/" revision-commit-hash
(or percentage 0)))) "/derivation-outputs?"
"reproducibility_status=" key
"&system=" system
"&target=" system)))
,(format #f "~a (~d, ~2,2f%)"
label
(or count 0)
(or percentage 0)))))
'("reproducible" "unreproducible" "unknown")
'("Reproducible" "Unreproducible" "Unknown") '("Reproducible" "Unreproducible" "Unknown")
(map (lambda (key) (map (lambda (key)
(assq-ref reproducibility-status key)) (assq-ref reproducibility-status key))