;;; -*- 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)