From 459a5675f64d0d0d5742e1aacef207c06af03184 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Tue, 19 Sep 2023 12:25:03 +0100 Subject: Add a command to apply patches Mostly for testing the code. --- scripts/guix-qa-frontpage.in | 31 +++++++++++++++++++++++++++++++ 1 file changed, 31 insertions(+) diff --git a/scripts/guix-qa-frontpage.in b/scripts/guix-qa-frontpage.in index 3368860..2e82c7a 100644 --- a/scripts/guix-qa-frontpage.in +++ b/scripts/guix-qa-frontpage.in @@ -35,6 +35,7 @@ (guix-qa-frontpage database) (guix-qa-frontpage issue) (guix-qa-frontpage branch) + (guix-qa-frontpage patchwork) (guix-qa-frontpage manage-builds) (guix-qa-frontpage git-repository) (guix-qa-frontpage manage-patch-branches) @@ -209,6 +210,36 @@ (or (assq-ref opts 'systems) %systems-to-submit-builds-for))))) + (("create-issue-branch" issue rest ...) + (parameterize + ((%git-repository-location (string-append (getcwd) "/guix.git"))) + (let* ((opts (parse-options + %submit-build-options + %submit-build-default-options + rest)) + (metrics-registry (make-metrics-registry + #:namespace + "guixqafrontpage")) + (database + (setup-database (assq-ref opts 'database) + metrics-registry)) + (issue-number + (string->number issue)) + (all-patchwork-series + (with-sqlite-cache + database + 'latest-patchwork-series-by-issue + latest-patchwork-series-by-issue + #:ttl 600))) + + (create-branch-for-issue + database + issue-number + (number->string + (assoc-ref (assq-ref all-patchwork-series + issue-number) + "id")))))) + ((args ...) (let ((opts (parse-options %options -- cgit v1.2.3