search

lem-project / lem

Common Lisp editor/IDE with high expansibility
http://lem-project.github.io/
MIT License
2.39k stars 175 forks source link

Release v2.1 #823

Closed cxxxr closed 1 year ago

cxxxr commented 1 year ago
aykaramba commented 1 year ago

This is awesome! Just downloaded and compiled. So far, works great!

cxxxr commented 1 year ago 
(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)

@vindarel

@seanfarley

@Sasanidas

@BierLiebHaber

@cxxxr

@jsparkes

@VitoVan

@Neshamon

@jcs090218

@RadSpaceEd

@theangelperalta

@avitkauskas

@snmsts

@t-sin