diff options
Diffstat (limited to 'guix-qa-frontpage/view/reproducible-builds.scm')
| -rw-r--r-- | guix-qa-frontpage/view/reproducible-builds.scm | 40 |
1 files changed, 40 insertions, 0 deletions
diff --git a/guix-qa-frontpage/view/reproducible-builds.scm b/guix-qa-frontpage/view/reproducible-builds.scm new file mode 100644 index 0000000..b39f092 --- /dev/null +++ b/guix-qa-frontpage/view/reproducible-builds.scm @@ -0,0 +1,40 @@ +(define-module (guix-qa-frontpage view reproducible-builds) + #:use-module (srfi srfi-1) + #:use-module (ice-9 match) + #:use-module (ice-9 string-fun) + #:use-module (guix-qa-frontpage view util) + #:use-module (guix-qa-frontpage view shared) + #:export (reproducible-builds-view)) + +(define (reproducible-builds-view package-reproducibility + issue-data) + (layout + #:title "Reproducible builds" + #:body + `((main + (p "The following table gives an overview of packages that can be built +reproducibly, as well as known issues. All data is from the master branch.") + + ,(package-reproducibility-table package-reproducibility) + + (h3 "Issues") + (table + (thead + (tr + (th "Issue") + (th "Title") + (th "Status"))) + (tbody + ,@(map + (match-lambda + ((issue-number . details) + `(tr + (td (a (@ (href + ,(simple-format #f "https://issues.guix.gnu.org/~A" + issue-number))) + ,issue-number)) + (td ,(assq-ref details 'title)) + (td ,(if (assq-ref details 'open?) + "Open" + "Closed"))))) + issue-data))))))) |