From ac1757c0a07f029c280777884712244b858fb5ee Mon Sep 17 00:00:00 2001 From: Lucas Sta Maria Date: Tue, 26 Aug 2025 21:34:42 +0800 Subject: [PATCH] fix: add review quitting --- ghpr-review.el | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/ghpr-review.el b/ghpr-review.el index 3c46df6..29748d2 100644 --- a/ghpr-review.el +++ b/ghpr-review.el @@ -84,6 +84,7 @@ (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-o") 'ghpr-review-checkout-branch) + (define-key prefix-map (kbd "C-k") 'ghpr-review-quit) (define-key map (kbd "C-c") prefix-map) map) "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")) (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) ;;; ghpr-review.el ends here