feat: add ghpr-list-prs

ghpr-api.el

@@ -23,6 +23,58 @@
 
 ;;; Code:
 
+(require 'auth-source)
+(require 'request)
+(require 'json)
+
+(defun ghpr--get-token ()
+  "Retrieve GitHub authentication token from auth-sources.
+Returns the token string if found, nil otherwise."
+  (auth-source-pick-first-password :host "api.github.com"))
+
+(defun ghpr--parse-api-pr (pr)
+  "Parse a single pull request object, keeping only essential fields."
+  (let ((base (alist-get 'base pr))
+        (user (alist-get 'user pr)))
+    `((url . ,(alist-get 'url pr))
+      (id . ,(alist-get 'id pr))
+      (diff_url . ,(alist-get 'diff_url pr))
+      (patch_url . ,(alist-get 'patch_url pr))
+      (number . ,(alist-get 'number pr))
+      (state . ,(alist-get 'state pr))
+      (locked . ,(alist-get 'locked pr))
+      (title . ,(alist-get 'title pr))
+      (body . ,(alist-get 'body pr))
+      (username . ,(alist-get 'login user))
+      (base_sha . ,(alist-get 'sha base))
+      (merge_commit_sha . ,(alist-get 'merge_commit_sha pr)))))
+
+(defun ghpr--parse-api-pr-list (pr-list)
+  "Parse a list of pull request objects, keeping only essential fields."
+  (mapcar #'ghpr--parse-api-pr pr-list))
+
+(defun ghpr--list-open-prs (repo-name)
+  "List open pull requests for REPO-NAME in owner/repo format.
+Returns a list of pull request objects on success, nil on failure."
+  (let ((token (ghpr--get-token))
+        (url (format "https://api.github.com/repos/%s/pulls?state=open" repo-name))
+        (result nil))
+    (when token
+      (request url
+        :type "GET"
+        :headers `(("Accept" . "application/vnd.github+json")
+                   ("Authorization" . ,(format "Bearer %s" token))
+                   ("X-GitHub-Api-Version" . "2022-11-28"))
+        :parser 'json-read
+        :sync t
+        :success (cl-function
+                  (lambda (&key data &allow-other-keys)
+                    (setq result (ghpr--parse-api-pr-list data))))
+        :error (cl-function
+                (lambda (&key error-thrown &allow-other-keys)
+                  (message "Error fetching pull requests: %s" error-thrown)))))
+    result))
+
 (provide 'ghpr-api)
 
 ;;; ghpr-api.el ends here