Zander671/emacs-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

User newer key binding functions

Browse Source
This commit is contained in:
Alexander Rosenberg 2024-10-31 18:19:54 -07:00
parent 6708db3bdc
commit a5e9144d63
Signed by: Zander671
GPG Key ID: 5FD0394ADBD72730
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
init.el
View File

@ -315,6 +315,7 @@ PRED is nil, the value of `my/kill-some-buffers-default-pred' is used."
(setq all-action nil) (setq all-action nil)
(dolist (buffer ask-again-buffers) (dolist (buffer ask-again-buffers)
(act-on (ask-about buffer nil) buffer nil))))) (act-on (ask-about buffer nil) buffer nil)))))
(keymap-global-set "C-x K" 'my/kill-some-buffers)
(use-package tab-bar (use-package tab-bar
:ensure nil :ensure nil
@ -490,7 +491,7 @@ directory. Otherwise, run `find-file' on that file."
'evil-cp-append 'evil-cp-append
'evil-cp-insert-at-beginning-of-form 'evil-cp-insert-at-beginning-of-form
'evil-cp-insert-at-end-of-form) 'evil-cp-insert-at-end-of-form)
(define-key evil-cleverparens-mode-map (kbd "<normal-state> M-o") nil t) (keymap-unset evil-cleverparens-mode-map "<normal-state> M-o" t)
(defun my/-enable-evil-cleverparens () (defun my/-enable-evil-cleverparens ()
(if (member major-mode '(lisp-mode emacs-lisp-mode (if (member major-mode '(lisp-mode emacs-lisp-mode
lisp-interaction-mode)) lisp-interaction-mode))
@ -1010,13 +1011,13 @@ With PROJECT, give diagnostics for all buffers in the current project."
:lookup #'consult--lookup-candidate :lookup #'consult--lookup-candidate
:state (consult--jump-state))) :state (consult--jump-state)))
(with-eval-after-load 'flymake (with-eval-after-load 'flymake
(define-key flymake-mode-map (kbd "C-c e") 'my/diagnostic-at-point) (keymap-set flymake-mode-map "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/consult-flymake-flycheck))
(with-eval-after-load 'flycheck (with-eval-after-load 'flycheck
(define-key flycheck-mode-map (kbd "C-c e") 'my/diagnostic-at-point) (keymap-set flycheck-mode-map "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/consult-flymake-flycheck))
(with-eval-after-load 'jinx (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 ;; eldoc
(use-package eldoc (use-package eldoc
@ -1355,8 +1356,8 @@ otherwise, call `bibtex-find-text'."
(setq-local fill-prefix nil))) (setq-local fill-prefix nil)))
(advice-add 'bibtex-mode :after 'my/-bibtex-fix-fill-prefix) (advice-add 'bibtex-mode :after 'my/-bibtex-fix-fill-prefix)
(add-hook 'bibtex-mode-hook 'my/-bibtex-setup-indent) (add-hook 'bibtex-mode-hook 'my/-bibtex-setup-indent)
(define-key bibtex-mode-map (kbd "RET") 'newline-and-indent) (keymap-set bibtex-mode-map "RET" 'newline-and-indent)
(define-key bibtex-mode-map (kbd "TAB") 'my/bibtex-indent-or-find-text) (keymap-set bibtex-mode-map "TAB" 'my/bibtex-indent-or-find-text)
(evil-define-key 'normal bibtex-mode-map (evil-define-key 'normal bibtex-mode-map
(kbd "TAB") 'my/bibtex-indent-or-find-text-and-insert) (kbd "TAB") 'my/bibtex-indent-or-find-text-and-insert)