1 files changed, 34 insertions, 0 deletions
diff --git a/emacs/.config/emacs/lisp/kj-bindings.el b/emacs/.config/emacs/lisp/kj-bindings.el
new file mode 100644
index 0000000..e01b659
--- /dev/null
+++ b/emacs/.config/emacs/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 a g" . magit-list-repositories)
+   ("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)