lang/clojure: bind cider-jack-in to clojure-mode

cider-quit kills cider-mode, rendering cider-mode-map keybinds
unavailable, so these commands have been moved to clojure-mode-map, to
ensure they're always available.

Reported by @mfiano
This commit is contained in:
Henrik Lissner 2018-10-15 16:14:37 -04:00
parent 476782e6d4
commit cade77e4a9
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -32,10 +32,11 @@
cider-repl-use-clojure-font-lock t) cider-repl-use-clojure-font-lock t)
;; TODO: Add mode-local labels when general support is in. ;; TODO: Add mode-local labels when general support is in.
(map! :map cider-mode-map (map! :localleader
:localleader (:map clojure-mode-map
:n "'" #'cider-jack-in :n "'" #'cider-jack-in
:n "\"" #'cider-jack-in-clojurescript :n "\"" #'cider-jack-in-clojurescript)
(:map cider-mode-map
;; eval ;; eval
(:prefix "e" (:prefix "e"
:n "d" #'cider-eval-defun-at-point :n "d" #'cider-eval-defun-at-point
@ -76,7 +77,7 @@
:n "r" 'cider-refresh :n "r" 'cider-refresh
:n "R" 'cider-restart :n "R" 'cider-restart
:n "B" #'cider-switch-to-repl-buffer :n "B" #'cider-switch-to-repl-buffer
:n "c" #'cider-repl-clear-buffer)) :n "c" #'cider-repl-clear-buffer)))
(when (featurep! :feature evil +everywhere) (when (featurep! :feature evil +everywhere)
(add-hook 'cider-repl-mode-hook #'evil-normalize-keymaps))) (add-hook 'cider-repl-mode-hook #'evil-normalize-keymaps)))