From 7e476536cb27bc9fbf7db2413ae52b61e6663d36 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Mon, 16 Dec 2019 20:31:13 +0000 Subject: Link to the derivation outputs from the package reproducibility page --- guix-data-service/web/revision/html.scm | 18 +++++++++++++----- 1 file changed, 13 insertions(+), 5 deletions(-) (limited to 'guix-data-service/web/revision') diff --git a/guix-data-service/web/revision/html.scm b/guix-data-service/web/revision/html.scm index f6366a1..54f63b9 100644 --- a/guix-data-service/web/revision/html.scm +++ b/guix-data-service/web/revision/html.scm @@ -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)) -- cgit v1.2.3