initial commit

1 files changed, 125 insertions, 0 deletions

diff --git a/elfeed-custom-feeds-github.el b/elfeed-custom-feeds-github.el
new file mode 100644
index 0000000..660350d
--- /dev/null
+++ b/elfeed-custom-feeds-github.el
@@ -0,0 +1,125 @@
+;;; elfeed-custom-feeds-github.el --- GitHub PR feed generator for Elfeed -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2025
+
+;; SPDX-License-Identifier: GPL-3.0-or-later
+
+;;; Commentary:
+
+;; GitHub pull request feed generator for Elfeed with custom queries.
+
+;;; Code:
+
+(require 'elfeed)
+(require 'url)
+(require 'json)
+(require 'cl-lib)
+
+(defgroup elfeed-custom-feeds-github nil
+  "GitHub PR feed generator for Elfeed."
+  :group 'elfeed
+  :prefix "elfeed-custom-github-")
+
+(defcustom elfeed-custom-github-pr-queries
+  '(("emacs-mirror/emacs" "" "Emacs")
+    ("atlas-engineer/nyxt" "is:open" "Nyxt")
+    ("qutebrowser/qutebrowser" "label:\"bug: behavior\"" "qutebrowser behavior bug"))
+  "List of (repo query display-name) tuples for GitHub PR monitoring."
+  :type '(repeat (list (string :tag "Repository")
+                       (string :tag "Query")
+                       (string :tag "Display Name")))
+  :group 'elfeed-custom-feeds-github)
+
+(defcustom elfeed-custom-github-request-delay 1.0
+  "Delay in seconds between GitHub API requests to avoid rate limiting."
+  :type 'number
+  :group 'elfeed-custom-feeds-github)
+
+(defun elfeed-custom-feeds-github--fetch-prs (repo query display-name callback delay)
+  "Fetch PRs for REPO matching QUERY after DELAY seconds and call CALLBACK with results."
+  (let ((url (format "https://api.github.com/search/issues?q=repo:%s+is:pr+%s&sort=created&order=desc&per_page=20"
+                     repo (url-hexify-string query)))
+        (cb callback)
+        (r repo)
+        (dn display-name))
+    (run-at-time delay nil
+                 (lambda ()
+                   (url-retrieve url
+                                 (lambda (status)
+                                   (if (plist-get status :error)
+                                       (message "Error fetching GitHub PRs %s [%s]: %s" r dn (plist-get status :error))
+                                     (goto-char (point-min))
+                                     (re-search-forward "\n\n")
+                                     (let* ((json-object-type 'alist)
+                                            (json-array-type 'list)
+                                            (response (json-read))
+                                            (items (alist-get 'items response)))
+                                       (funcall cb r dn items))))
+                                 nil t)))))
+
+(defun elfeed-custom-feeds-github--prs-to-elfeed (repo display-name prs)
+  "Convert GitHub PRS to elfeed entries for REPO with DISPLAY-NAME."
+  (let ((feed-url (format "https://github.com/%s/pulls" repo))
+        (new-count 0)
+        (new-entries ()))
+    (let ((feed (elfeed-db-get-feed feed-url)))
+      (setf (elfeed-feed-url feed) feed-url
+            (elfeed-feed-title feed) (format "GitHub: %s [%s]" repo display-name)))
+    
+    (dolist (pr prs)
+      (let* ((number (alist-get 'number pr))
+             (title-text (alist-get 'title pr))
+             (html-url (alist-get 'html_url pr))
+             (state (alist-get 'state pr))
+             (updated (alist-get 'updated_at pr))
+             (created (alist-get 'created_at pr))
+             (user (alist-get 'login (alist-get 'user pr)))
+             (body (or (alist-get 'body pr) "No description provided."))
+             (labels (mapcar (lambda (label) (alist-get 'name label))
+                             (alist-get 'labels pr)))
+             (entry-id html-url)
+             (title (format "#%d: %s" number title-text))
+             (date (float-time (date-to-time updated)))
+             (content (format "<h2>PR #%d: %s</h2>\n<p><strong>State:</strong> %s</p>\n<p><strong>Author:</strong> %s</p>\n<p><strong>Created:</strong> %s</p>\n<p><strong>Updated:</strong> %s</p>\n%s\n<h3>Description:</h3>\n<pre>%s</pre>"
+                              number title-text state user created updated
+                              (if labels
+                                  (format "<p><strong>Labels:</strong> %s</p>"
+                                          (mapconcat 'identity labels ", "))
+                                "")
+                              (replace-regexp-in-string "<" "&lt;" 
+                                                        (replace-regexp-in-string ">" "&gt;" body)))))
+        (unless (elfeed-db-get-entry entry-id)
+          (let ((entry (elfeed-entry--create
+                        :id entry-id
+                        :title title
+                        :link html-url
+                        :date date
+                        :content content
+                        :content-type 'html
+                        :feed-id feed-url
+                        :tags '(unread github))))
+            (push entry new-entries)
+            (setq new-count (1+ new-count))))))
+    
+    (when new-entries
+      (elfeed-db-add (nreverse new-entries)))
+    
+    (message "GitHub feed %s [%s]: %d new entries" repo display-name new-count)
+    (when (get-buffer "*elfeed-search*")
+      (with-current-buffer "*elfeed-search*"
+        (elfeed-search-update--force)))))
+
+;;;###autoload
+(defun elfeed-custom-feeds-github-update ()
+  "Update all GitHub PR feeds."
+  (interactive)
+  (cl-loop for (repo query display-name) in elfeed-custom-github-pr-queries
+           for i from 0
+           for delay = (* i elfeed-custom-github-request-delay)
+           do (elfeed-custom-feeds-github--fetch-prs repo query display-name
+                                                     #'elfeed-custom-feeds-github--prs-to-elfeed 
+                                                     delay)))
+
+(provide 'elfeed-custom-feeds-github)
+
+;;; elfeed-custom-feeds-github.el ends here