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

fix: store entire base content

Browse source
This commit is contained in:
Lucas Sta Maria 2025-08-27 16:43:48 +08:00
parent a265292b9e
commit 3044a2611a
Signed by: lucas
GPG key ID: F07FB16A826E3B47
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
ghpr-review.el
View file

@ -68,14 +68,14 @@
("^\\(> \\)$" (0 'ghpr-review-misc-line t))) ("^\\(> \\)$" (0 'ghpr-review-misc-line t)))
"Font lock keywords for ghpr-review-mode.") "Font lock keywords for ghpr-review-mode.")
(defvar-local ghpr--review-diff-content nil (defvar-local ghpr--review-base-content nil
"Buffer-local variable storing the diff content for the current PR.") "Stores the base starting content, including diff, for the current PR.")
(defvar-local ghpr--review-pr-metadata nil (defvar-local ghpr--review-pr-metadata nil
"Buffer-local variable storing the PR metadata for the current PR.") "Stores the PR metadata for the current PR.")
(defvar-local ghpr--review-repo-name nil (defvar-local ghpr--review-repo-name nil
"Buffer-local variable storing the repository name for the current PR.") "Stores the repository name for the current PR.")
(defvar ghpr-review-mode-map (defvar ghpr-review-mode-map
(let ((map (make-sparse-keymap)) (let ((map (make-sparse-keymap))
@ -111,7 +111,7 @@
"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) ""))
(content-parts (list (ghpr--pr-summary pr)))) (content-parts (list (ghpr--pr-summary pr))))
(when (not (string-empty-p body)) (when (and body (not (string-empty-p body)))
(push body content-parts)) (push body content-parts))
(when diff-content (when diff-content
(push diff-content content-parts)) (push diff-content content-parts))
@ -123,7 +123,7 @@
(let* ((number (alist-get 'number pr)) (let* ((number (alist-get 'number pr))
(diff-content (ghpr--get-diff-content repo-name number)) (diff-content (ghpr--get-diff-content repo-name number))
(contents (ghpr--open-pr/collect-contents pr diff-content))) (contents (ghpr--open-pr/collect-contents pr diff-content)))
(setq ghpr--review-diff-content diff-content) (setq ghpr--review-base-content contents)
(setq ghpr--review-pr-metadata pr) (setq ghpr--review-pr-metadata pr)
(setq ghpr--review-repo-name repo-name) (setq ghpr--review-repo-name repo-name)
(insert (ghpr--prefix-lines contents)))) (insert (ghpr--prefix-lines contents))))