Add mumi-search-issues

1 files changed, 19 insertions, 1 deletions

diff --git a/guix-qa-frontpage/mumi.scm b/guix-qa-frontpage/mumi.scm
index 375fa6b..4fd2f10 100644
--- a/guix-qa-frontpage/mumi.scm
+++ b/guix-qa-frontpage/mumi.scm
@@ -23,11 +23,29 @@
   #:use-module ((guix-data-service utils) #:select (chunk-for-each!))
   #:use-module ((guix-build-coordinator utils)
                 #:select (retry-on-error))
-  #:export (mumi-issue-tags
+  #:export (mumi-search-issues
+
+            mumi-issue-tags
             mumi-issue-open?
 
             mumi-bulk-issues))
 
+(define (mumi-search-issues query)
+  (with-exception-handler
+      (lambda (exn)
+        (simple-format
+         (current-error-port)
+         "exception when searching issues: ~A\n"
+         exn)
+        #f)
+    (lambda ()
+      (let ((response
+             (graphql-http-get "https://issues.guix.gnu.org/graphql"
+                               `(document (query (#(issues #:search ,query) number title date))))))
+        (assoc-ref response
+                   "issues")))
+    #:unwind? #t))
+
 (define (mumi-issue-tags number)
   (with-exception-handler
       (lambda (exn)