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

fix: add review quitting

Browse source
This commit is contained in:
Lucas Sta Maria 2025-08-26 21:34:42 +08:00
parent c49a89705f
commit ac1757c0a0
Signed by: lucas
GPG key ID: F07FB16A826E3B47
1 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
ghpr-review.el
View file

@ -84,6 +84,7 @@
(define-key prefix-map (kbd "C-a") 'ghpr-review-approve) (define-key prefix-map (kbd "C-a") 'ghpr-review-approve)
(define-key prefix-map (kbd "C-r") 'ghpr-review-reject-changes) (define-key prefix-map (kbd "C-r") 'ghpr-review-reject-changes)
(define-key prefix-map (kbd "C-o") 'ghpr-review-checkout-branch) (define-key prefix-map (kbd "C-o") 'ghpr-review-checkout-branch)
(define-key prefix-map (kbd "C-k") 'ghpr-review-quit)
(define-key map (kbd "C-c") prefix-map) (define-key map (kbd "C-c") prefix-map)
map) map)
"Keymap for `ghpr-review-mode'.") "Keymap for `ghpr-review-mode'.")
@ -410,6 +411,12 @@ Collects review body and inline comments from current buffer."
(error "No PR metadata found in buffer")) (error "No PR metadata found in buffer"))
(ghpr--checkout-pr-branch ghpr--review-pr-metadata)) (ghpr--checkout-pr-branch ghpr--review-pr-metadata))
(defun ghpr-review-quit ()
"Quit and close the review buffer with confirmation."
(interactive)
(when (yes-or-no-p "Quit review? ")
(kill-buffer (current-buffer))))
(provide 'ghpr-review) (provide 'ghpr-review)
;;; ghpr-review.el ends here ;;; ghpr-review.el ends here