Add a mechanism to add the reviewed-looks-good usertag to issues

As a way of trying to prioritise merging patches that have been reviewed by
someone.

1 files changed, 22 insertions, 0 deletions

diff --git a/guix-qa-frontpage/server.scm b/guix-qa-frontpage/server.scm
index 1211ae4..1151d6f 100644
--- a/guix-qa-frontpage/server.scm
+++ b/guix-qa-frontpage/server.scm
@@ -533,6 +533,28 @@ has no patches or has been closed.")
                                         (uri-query (request-uri request))
                                         parse-query-string)
                                        '())))))
+      (('GET "issue" number "prepare-review")
+       (let ((revisions
+              derivation-changes
+              substitute-availability
+              up-to-date-with-master
+              master-branch-systems-with-low-substitute-availability
+              (with-sqlite-cache
+               database
+               'issue-data
+               issue-data
+               #:args
+               (list (string->number number))
+               #:version 2
+               #:ttl 6000)))
+         (render-html
+          #:sxml
+          (issue-prepare-review-view number
+                                     (or
+                                      (and=>
+                                       (uri-query (request-uri request))
+                                       parse-query-string)
+                                      '())))))
       (('GET "README")
        (let ((filename (string-append doc-dir "/README.html")))
          (if (file-exists? filename)