From 1fee105324ff9a1bd776c1244a280f4ab6ae2161 Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
Date: Mon, 6 Apr 2020 13:17:49 +0200
Subject: web: Serve /wishlist.

---
 mumi/messages.scm       | 6 ++++++
 mumi/web/controller.scm | 4 ++++
 2 files changed, 10 insertions(+)

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
-- 
cgit v1.2.3