From c745ed7ad258362e6490287c5551afa8947dca69 Mon Sep 17 00:00:00 2001 From: StrawberryTea Date: Thu, 30 Jan 2025 10:43:07 -0500 Subject: [PATCH] gptel: add gptel-context-buffer-mode-map --- modes/gptel/evil-collection-gptel.el | 16 ++++++++++++++-- 1 file changed, 14 insertions(+), 2 deletions(-) diff --git a/modes/gptel/evil-collection-gptel.el b/modes/gptel/evil-collection-gptel.el index d49c4d74..3acceff0 100644 --- a/modes/gptel/evil-collection-gptel.el +++ b/modes/gptel/evil-collection-gptel.el @@ -29,7 +29,9 @@ (require 'evil-collection) (require 'gptel nil t) -(defconst evil-collection-gptel-maps '(gptel-mode-map)) + +(defconst evil-collection-gptel-maps + '(gptel-mode-map gptel-context-buffer-mode-map)) (defcustom evil-collection-gptel-want-ret-to-send t "When non nil, RET sends query to LLM." @@ -60,7 +62,17 @@ (when evil-collection-gptel-want-shift-ret-to-send (evil-collection-define-key '(normal visual) 'gptel-mode-map (kbd "S-RET") 'gptel-send - (kbd "") 'gptel-send)))) + (kbd "") 'gptel-send))) + + (with-eval-after-load 'gptel-context + (evil-collection-define-key 'normal 'gptel-context-buffer-mode-map + "j" 'gptel-context-next + "k" 'gptel-context-previous + "d" 'gptel-context-flag-deletion + "q" 'gptel-context-quit + "ZQ" 'gptel-context-quit + "ZZ" 'gptel-context-confirm + "RET" 'gptel-context-visit))) (provide 'evil-collection-gptel) ;;; evil-collection-gptel.el ends here