diff options
| -rw-r--r-- | mumi/messages.scm | 9 | ||||
| -rw-r--r-- | mumi/web/controller.scm | 2 |
2 files changed, 11 insertions, 0 deletions
diff --git a/mumi/messages.scm b/mumi/messages.scm index d35b1aa..af76ef5 100644 --- a/mumi/messages.scm +++ b/mumi/messages.scm @@ -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 diff --git a/mumi/web/controller.scm b/mumi/web/controller.scm index 452b655..68901b9 100644 --- a/mumi/web/controller.scm +++ b/mumi/web/controller.scm @@ -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 |