(ql:quickload '(:com.inuoe.jzon
                :alexandria))

(defun collect-pullrequests ()
  (let ((text (uiop:run-program 
               "gh pr list -s closed -S \"merged:>=2023-05-22\" -L 1000 --json title,url,author"
               :output :string
               :directory (princ-to-string (ql:where-is-system :lem)))))
    (let ((list-by-authors (make-hash-table :test 'equal)))
      (loop :for item :across (com.inuoe.jzon:parse text)
            :unless (gethash "is_bot" (gethash "author" item))
            :do (let ((url (gethash "url" item))
                      (title (gethash "title" item))
                      (author (gethash "login" (gethash "author" item))))
                  (push (format nil "- ~A~%  ~A~%" title url)
                        (gethash author list-by-authors))))
      (maphash (lambda (author list)
                 (format t "~%`@~A`~%" author)
                 (mapc #'write-string list))
               list-by-authors))))

(collect-pullrequests)

@seanfarley

@Sasanidas

@BierLiebHaber

@jcs090218

@RadSpaceEd

@theangelperalta

@avitkauskas

Uh oh!

Release v2.1 #823

Description

Metadata

Metadata

Assignees

Labels

Type

Projects

Milestone

Relationships

Development

Issue actions