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")
(aria-hidden "true")
(role "presentation"))
,@(map (lambda (label count percentage colour)
,@(map (lambda (key label count percentage colour)
`(li
(span (@ (class "shape-circle")
(style
,(string-append "background-color: "
colour ";"))))
,(format #f "~a (~d, ~2,2f%)"
label
(or count 0)
(or percentage 0))))
(a (@ (href
,(string-append
"/revision/" revision-commit-hash
"/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")
(map (lambda (key)
(assq-ref reproducibility-status key))