diff options
Diffstat (limited to 'emacs/.config/emacs-v2/lisp/kj-bindings.el')
-rw-r--r-- | emacs/.config/emacs-v2/lisp/kj-bindings.el | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/emacs/.config/emacs-v2/lisp/kj-bindings.el b/emacs/.config/emacs-v2/lisp/kj-bindings.el new file mode 100644 index 0000000..0c0ba47 --- /dev/null +++ b/emacs/.config/emacs-v2/lisp/kj-bindings.el @@ -0,0 +1,34 @@ +;;; -*- lexical-binding: t; -*- + +(use-package emacs :elpaca nil + :bind + (("C-w" . kj/kill-word-or-region) + ("C-c s" . kj/shell-here) + ("C-c t" . eshell) + ("C-c ." . kj/eshell-here) + ("C-c c" . org-capture) + ("M-o" . other-window) + ("C-c a m" . notmuch) + ("C-c M" . smerge-ediff) + ("C-c b r" . revert-buffer) + ("C-c r l" . consult-flymake) + ("C-c r f" . eglot-format) + ("C-c r g" . recompile) + ("C-c r a" . eglot-code-actions) + ("C-c r r" . eglot-rename) + ("C-c r n" . flymake-goto-next-error) + ("C-c r p" . flymake-goto-prev-error) + ("C-c w u" . winner-undo) + ("C-c w U" . winner-redo) + ("C-<tab>" . completion-at-point) + ;; Replace downcase-word binding. + ("M-l" . iso-transl-ctl-x-8-map)) + + :config + (defvar kj/flymake-repeat-map (make-sparse-keymap "flymake")) + (define-repeating-key kj/flymake-repeat-map "n" flymake-goto-next-error "next error") + (define-repeating-key kj/flymake-repeat-map "p" flymake-goto-prev-error "prev error") + (define-key kj/flymake-repeat-map (kbd "C-g") '("quit" . ignore)) + ) + +(provide 'kj-bindings) |