lucas/ghpr.el
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix: enable editable review buffer

Browse source
This commit is contained in:
Lucas Sta Maria 2025-08-23 22:39:25 +08:00
parent 0179cd25ff
commit 5b47adb978
Signed by: lucas
GPG key ID: F07FB16A826E3B47
1 changed files with 10 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

16
ghpr-review.el
View file

@ -57,6 +57,9 @@
(0 'ghpr-review-removed-line t))) (0 'ghpr-review-removed-line t)))
"Font lock keywords for ghpr-review-mode.") "Font lock keywords for ghpr-review-mode.")
(defvar-local ghpr-review-diff-content nil
"Buffer-local variable storing the diff content for the current PR.")
(define-derived-mode ghpr-review-mode text-mode "GHPR Review" (define-derived-mode ghpr-review-mode text-mode "GHPR Review"
"Major mode for reviewing GitHub pull requests." "Major mode for reviewing GitHub pull requests."
:group 'ghpr :group 'ghpr
@ -72,22 +75,23 @@
(let ((lines (split-string text "\n"))) (let ((lines (split-string text "\n")))
(mapconcat #'ghpr--prefix-line lines "\n"))) (mapconcat #'ghpr--prefix-line lines "\n")))
(defun ghpr--open-pr/collect-contents (pr repo-name) (defun ghpr--open-pr/collect-contents (pr diff-content)
"Return a string of the title, body, and patch content separated by newlines." "Return a string of the title, body, and patch content separated by newlines."
(let* ((body (or (alist-get 'body pr) "")) (let* ((body (or (alist-get 'body pr) ""))
(number (alist-get 'number pr))
(content-parts (list (ghpr--pr-summary pr)))) (content-parts (list (ghpr--pr-summary pr))))
(when (not (string-empty-p body)) (when (not (string-empty-p body))
(push body content-parts)) (push body content-parts))
(let ((patch-content (ghpr--get-diff-content repo-name number))) (when diff-content
(when patch-content (push diff-content content-parts))
(push patch-content content-parts)))
(mapconcat 'identity (reverse content-parts) "\n\n"))) (mapconcat 'identity (reverse content-parts) "\n\n")))
(defun ghpr--open-pr/insert-contents (pr repo-name) (defun ghpr--open-pr/insert-contents (pr repo-name)
"Insert the contents of the pr into the current buffer." "Insert the contents of the pr into the current buffer."
(erase-buffer) (erase-buffer)
(let ((contents (ghpr--open-pr/collect-contents pr repo-name))) (let* ((number (alist-get 'number pr))
(diff-content (ghpr--get-diff-content repo-name number))
(contents (ghpr--open-pr/collect-contents pr diff-content)))
(setq ghpr-review-diff-content diff-content)
(insert (ghpr--prefix-lines contents)))) (insert (ghpr--prefix-lines contents))))
(defun ghpr--open-pr (pr repo-name) (defun ghpr--open-pr (pr repo-name)