feat(ai): add Emacs-style C-c a bindings for helper functions
This commit is contained in:
@@ -199,6 +199,15 @@
|
|||||||
(message "Copied: %s" tag)))
|
(message "Copied: %s" tag)))
|
||||||
|
|
||||||
;; Add keybindings for helper functions
|
;; Add keybindings for helper functions
|
||||||
|
(defvar my-ai-helper-map (make-sparse-keymap)
|
||||||
|
"Keymap for my AI helper functions.")
|
||||||
|
|
||||||
|
(global-set-key (kbd "C-c a") my-ai-helper-map)
|
||||||
|
(define-key my-ai-helper-map (kbd "e") #'my/gptel-quick-explain-region)
|
||||||
|
(define-key my-ai-helper-map (kbd "p") #'my/gptel-proofread-region)
|
||||||
|
(define-key my-ai-helper-map (kbd "t") #'my/copy-region-as-path-tag)
|
||||||
|
(define-key my-ai-helper-map (kbd "T") #'my/copy-region-as-path-tag-absolute)
|
||||||
|
|
||||||
(map! :leader
|
(map! :leader
|
||||||
(:prefix "A"
|
(:prefix "A"
|
||||||
:desc "Quick explain" "e" #'my/gptel-quick-explain-region
|
:desc "Quick explain" "e" #'my/gptel-quick-explain-region
|
||||||
|
|||||||
Reference in New Issue
Block a user