Add flymake shortcuts

1 files changed, 10 insertions, 1 deletions

diff --git a/emacs/.config/emacs-kj/lisp/kj-bindings.el b/emacs/.config/emacs-kj/lisp/kj-bindings.el
index b60db7a..2b25a03 100644
--- a/emacs/.config/emacs-kj/lisp/kj-bindings.el
+++ b/emacs/.config/emacs-kj/lisp/kj-bindings.el
@@ -13,9 +13,18 @@
    ("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 c i" . insert-char)
    ("C-c w u" . winner-undo)
    ("C-c w U" . winner-redo)
-   ("C-<tab>" . completion-at-point)))
+   ("C-<tab>" . completion-at-point))
+
+  :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)