diff options
-rw-r--r-- | guix-qa-frontpage/manage-patch-branches.scm | 2 | ||||
-rw-r--r-- | guix-qa-frontpage/server.scm | 3 | ||||
-rw-r--r-- | guix-qa-frontpage/view/issue.scm | 7 |
3 files changed, 11 insertions, 1 deletions
diff --git a/guix-qa-frontpage/manage-patch-branches.scm b/guix-qa-frontpage/manage-patch-branches.scm index 951817f..63d1054 100644 --- a/guix-qa-frontpage/manage-patch-branches.scm +++ b/guix-qa-frontpage/manage-patch-branches.scm @@ -29,6 +29,8 @@ #:use-module (guix-qa-frontpage guix-data-service) #:export (create-branch-for-issue + patchwork-series->branch + start-manage-patch-branches-thread get-issue-branch-base-and-target-refs)) diff --git a/guix-qa-frontpage/server.scm b/guix-qa-frontpage/server.scm index b10669e..4e88a3b 100644 --- a/guix-qa-frontpage/server.scm +++ b/guix-qa-frontpage/server.scm @@ -525,6 +525,8 @@ (select-create-branch-for-issue-log database number)) + (branch + (patchwork-series->branch series)) (master-branch-substitute-availability (with-sqlite-cache database @@ -541,6 +543,7 @@ (render-html #:sxml (issue-view number series + branch (assq-ref (assq-ref series 'mumi) 'tags) base-and-target-refs diff --git a/guix-qa-frontpage/view/issue.scm b/guix-qa-frontpage/view/issue.scm index 55f0193..bbd34e2 100644 --- a/guix-qa-frontpage/view/issue.scm +++ b/guix-qa-frontpage/view/issue.scm @@ -15,7 +15,7 @@ issue-prepare-review-view)) -(define (issue-view issue-number series mumi-tags +(define (issue-view issue-number series branch mumi-tags base-and-target-refs create-branch-for-issue-log comparison-link @@ -350,6 +350,11 @@ div.bad { ,tag)) (or debbugs-usertags '()))) + (h3 (@ (style ,(if (string=? branch "master") + "" + "padding-left: 0.2em; border-left-width: 0.3em; border-left-style: solid; border-left-color: orange"))) + "For branch: " (code ,branch)) + (ul ,@(map (lambda (patch) |