From a5e9144d635171c7c0c2ad2a90cd3f22577ddd4b Mon Sep 17 00:00:00 2001 From: Alexander Rosenberg Date: Thu, 31 Oct 2024 18:19:54 -0700 Subject: [PATCH] User newer key binding functions --- init.el | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/init.el b/init.el index ad08ce5..2305363 100644 --- a/init.el +++ b/init.el @@ -315,6 +315,7 @@ PRED is nil, the value of `my/kill-some-buffers-default-pred' is used." (setq all-action nil) (dolist (buffer ask-again-buffers) (act-on (ask-about buffer nil) buffer nil))))) +(keymap-global-set "C-x K" 'my/kill-some-buffers) (use-package tab-bar :ensure nil @@ -490,7 +491,7 @@ directory. Otherwise, run `find-file' on that file." 'evil-cp-append 'evil-cp-insert-at-beginning-of-form 'evil-cp-insert-at-end-of-form) - (define-key evil-cleverparens-mode-map (kbd " M-o") nil t) + (keymap-unset evil-cleverparens-mode-map " M-o" t) (defun my/-enable-evil-cleverparens () (if (member major-mode '(lisp-mode emacs-lisp-mode lisp-interaction-mode)) @@ -1010,13 +1011,13 @@ With PROJECT, give diagnostics for all buffers in the current project." :lookup #'consult--lookup-candidate :state (consult--jump-state))) (with-eval-after-load 'flymake - (define-key flymake-mode-map (kbd "C-c e") 'my/diagnostic-at-point) - (define-key flymake-mode-map (kbd "C-c E") 'my/consult-flymake-flycheck)) + (keymap-set flymake-mode-map "C-c e" 'my/diagnostic-at-point) + (keymap-set flymake-mode-map "C-c E" 'my/consult-flymake-flycheck)) (with-eval-after-load 'flycheck - (define-key flycheck-mode-map (kbd "C-c e") 'my/diagnostic-at-point) - (define-key flycheck-mode-map (kbd "C-c E") 'my/consult-flymake-flycheck)) + (keymap-set flycheck-mode-map "C-c e" 'my/diagnostic-at-point) + (keymap-set flycheck-mode-map "C-c E" 'my/consult-flymake-flycheck)) (with-eval-after-load 'jinx - (define-key jinx-mode-map (kbd "C-c e") 'my/diagnostic-at-point)) + (keymap-set jinx-mode-map "C-c e" 'my/diagnostic-at-point)) ;; eldoc (use-package eldoc @@ -1355,8 +1356,8 @@ otherwise, call `bibtex-find-text'." (setq-local fill-prefix nil))) (advice-add 'bibtex-mode :after 'my/-bibtex-fix-fill-prefix) (add-hook 'bibtex-mode-hook 'my/-bibtex-setup-indent) -(define-key bibtex-mode-map (kbd "RET") 'newline-and-indent) -(define-key bibtex-mode-map (kbd "TAB") 'my/bibtex-indent-or-find-text) +(keymap-set bibtex-mode-map "RET" 'newline-and-indent) +(keymap-set bibtex-mode-map "TAB" 'my/bibtex-indent-or-find-text) (evil-define-key 'normal bibtex-mode-map (kbd "TAB") 'my/bibtex-indent-or-find-text-and-insert)