mumi: Add /easy route to show easy bugs.
authorRicardo Wurmus <rekado@elephly.net>
Thu, 19 Sep 2019 22:34:19 +0000 (00:34 +0200)
committerRicardo Wurmus <rekado@elephly.net>
Thu, 19 Sep 2019 22:34:19 +0000 (00:34 +0200)
* mumi/messages.scm (easy-bugs): New procedure.
* mumi/web/controller.scm (controller): Handle /easy route.

mumi/messages.scm
mumi/web/controller.scm

index d35b1aaa0e3cd9ce888749afb8861b84a6921e0c..af76ef5772f20e81f023773aad2eb1ab887f28a3 100644 (file)
@@ -34,6 +34,7 @@
   #:export (search-bugs
             fetch-bug
             recent-bugs
+            easy-bugs
             bugs-by-severity
 
             download-message
@@ -242,6 +243,14 @@ result for a while."
          (ids (take unique (min amount (length unique)))))
     (status-with-cache ids)))
 
+(define (easy-bugs)
+  "Return all bugs that have been tagged \"easy\"."
+  (let ((ids
+         (soap-invoke* (%config 'debbugs)
+                       get-bugs
+                       '((package . "guix") (tag . "easy")))))
+    (status-with-cache ids)))
+
 (define* (bugs-by-severity severity #:optional status)
   "Return severe bugs."
   (let* ((ids
index 452b655483ae7e436b820d4b0baaa81b37d8d9ac..68901b94fff4beadcdd8135c2299b9cb471791bf 100644 (file)
@@ -51,6 +51,8 @@
   (match-lambda
     ((GET)
      (apply render-html (index)))
+    ((GET "easy")
+     (apply render-html (list-of-matching-bugs "tag:easy" (easy-bugs))))
     ((GET "search")
      (let ((query (-> request
                       request-uri