TakeV/spacemacs
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

[clojure] add c-k c-j bindings company dropdown menu in repl

Browse source 
Make c-j and c-k bind to down and up in company dropdown menu when it shows up
in clojure repl.
This commit is contained in:
Thanh Vuong 2019-09-16 23:54:14 -06:00 committed by smile13241324
parent efa7d4245f
commit d71b0a4b87
2 changed files with 21 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
layers/+lang/clojure/funcs.el
View file

@ -207,3 +207,17 @@ in your Spacemacs configuration:
cider-repl-mode
cider-clojure-interaction-mode))
,@body))
(defun spacemacs//clj-repl-wrap-c-j ()
"Dynamically dispatch c-j to company or repl functions."
(interactive)
(if (company-tooltip-visible-p)
(company-select-next)
(cider-repl-next-input)))
(defun spacemacs//clj-repl-wrap-c-k ()
"Dynamically dispatch c-k to company or repl functions."
(interactive)
(if (company-tooltip-visible-p)
(company-select-previous)
(cider-repl-previous-input)))

10
layers/+lang/clojure/packages.el
View file

@ -227,9 +227,13 @@
(kbd "C-k") 'cider-repl-previous-input
(kbd "RET") 'cider-repl-return)
(evil-define-key 'insert cider-repl-mode-map
(kbd "C-j") 'cider-repl-next-input
(kbd "C-k") 'cider-repl-previous-input)
(if (package-installed-p 'company)
(evil-define-key 'insert cider-repl-mode-map
(kbd "C-j") 'spacemacs//clj-repl-wrap-c-j
(kbd "C-k") 'spacemacs//clj-repl-wrap-c-k)
(evil-define-key 'insert cider-repl-mode-map
(kbd "C-j") 'cider-repl-next-input
(kbd "C-k") 'cider-repl-previous-input))
(when clojure-enable-fancify-symbols
(clojure/fancify-symbols 'cider-repl-mode)