summaryrefslogtreecommitdiff
path: root/emacs/.config/emacs-kj/lisp/kj-bindings.el
blob: d82706f9ad545f6eb72ccaa00e08e5cec432edd9 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
;;; -*- lexical-binding: t; -*-

(use-package emacs
  :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)