(use-modules (srfi srfi-1)
             (ice-9 match)
             (kolam http))

(define %graphql-endpoint
  "https://issues.guix.gnu.org/graphql")

(define %graphql-document
  '(document
    (query (#(issues #:search "is:open")
            number
            title
            (messages
             message_id)))))

(for-each (lambda (issue)
            (format #t "#~a: ~a~%"
                    (assoc-ref issue "number")
                    (assoc-ref issue "title")))
          (filter (lambda (issue)
                    (match (assoc-ref issue "messages")
                      (#(opening-post) #t)
                      (_ #f)))
                  (vector->list
                   (assoc-ref (graphql-http-get %graphql-endpoint %graphql-document)
                              "issues"))))