From 5cef725159259dbd1ea377d46ba37d9012025951 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Fri, 13 Oct 2023 10:28:04 +0100 Subject: Only display merged issues once Using the merged_with data now available from Mumi. --- guix-qa-frontpage/mumi.scm | 8 +++++++- guix-qa-frontpage/patchwork.scm | 22 +++++++++++++++------- 2 files changed, 22 insertions(+), 8 deletions(-) diff --git a/guix-qa-frontpage/mumi.scm b/guix-qa-frontpage/mumi.scm index bf01397..82b64b5 100644 --- a/guix-qa-frontpage/mumi.scm +++ b/guix-qa-frontpage/mumi.scm @@ -109,7 +109,8 @@ `(document ,@(map (lambda (number) `(query (#(issue #:number ,number) - number title open severity tags))) + number title open severity tags + (merged_with number)))) (car chunks))) #:keep-alive? #t #:port port)) @@ -125,6 +126,11 @@ (open? . ,(assoc-ref data "open")) (tags . ,(vector->list (assoc-ref data "tags"))) + (merged-with . ,(map + (lambda (data) + (assoc-ref data "number")) + (vector->list + (assoc-ref data "merged_with")))) (severity . ,(assoc-ref data "severity")))))) response))) #:unwind? #t) diff --git a/guix-qa-frontpage/patchwork.scm b/guix-qa-frontpage/patchwork.scm index 335d4d1..7f2de19 100644 --- a/guix-qa-frontpage/patchwork.scm +++ b/guix-qa-frontpage/patchwork.scm @@ -186,13 +186,21 @@ hash-table))) (sort! (filter-map (lambda (data mumi) - (if (assq-ref mumi 'open?) - `(,@data - (mumi . ,mumi) - (usertags . ,(or (hash-ref usertag-lookup - (car data)) - '()))) - #f)) + (let ((issue-number (car data))) + (if (and (assq-ref mumi 'open?) + (every + (lambda (merged-issue-number) + (if (< merged-issue-number + issue-number) + (not (hash-ref result merged-issue-number)) + #t)) + (assq-ref mumi 'merged-with))) + `(,@data + (mumi . ,mumi) + (usertags . ,(or (hash-ref usertag-lookup + (car data)) + '()))) + #f))) data mumi-data) (lambda (a b) -- cgit v1.2.3