diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2020-04-06 13:17:49 +0200 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2020-04-06 13:17:49 +0200 |
| commit | 1fee105324ff9a1bd776c1244a280f4ab6ae2161 (patch) | |
| tree | b54c4deb41b574dcde2119e2b67b16ec200d59e8 | |
| parent | 82cc8f3f25b984199a85eab7cc011964b5ac20f1 (diff) | |
web: Serve /wishlist.
| -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 |