diff options
-rw-r--r-- | mumi/messages.scm | 6 | ||||
-rw-r--r-- | mumi/web/controller.scm | 4 |
2 files changed, 10 insertions, 0 deletions
diff --git a/mumi/messages.scm b/mumi/messages.scm index 2485272..e97e80d 100644 --- a/mumi/messages.scm +++ b/mumi/messages.scm @@ -37,6 +37,7 @@ fetch-bug recent-bugs easy-bugs + wishlist-bugs bugs-by-severity download-message @@ -233,6 +234,11 @@ Interset the result with the id sets in the list SETS." (let ((ids (db:bugs-by-tag "easy"))) (status-with-cache ids))) +(define (wishlist-bugs) + "Return all bugs that have been tagged \"wishlist\"." + (let ((ids (db:bugs-by-tag "wishlist"))) + (status-with-cache ids))) + (define* (bugs-by-severity severity #:optional status) "Return severe bugs." (let* ((severity-ids (db:bugs-by-severity severity)) diff --git a/mumi/web/controller.scm b/mumi/web/controller.scm index 4c09873..6ca7627 100644 --- a/mumi/web/controller.scm +++ b/mumi/web/controller.scm @@ -58,6 +58,10 @@ '((cache-control . ((max-age . 60)))))) (('GET "easy") (render-html (list-of-matching-bugs "tag:easy" (easy-bugs)))) + (('GET "wishlist") + (render-html + (list-of-matching-bugs "severity:wishlist is:open" + (bugs-by-severity "wishlist" "open")))) (('GET "search") (let ((query (-> request request-uri |