Port helm-available-repls to spacemacs-ivy layer.

This commit is contained in:
person808 2016-01-22 18:38:14 -10:00 committed by Eivind Fonn
parent 4b0b5559a0
commit efaef81ca5
1 changed files with 11 additions and 0 deletions

View File

@ -239,6 +239,7 @@ Helm hack."
:config
(progn
(spacemacs/set-leader-keys
"a'" 'spacemacs/ivy-available-repls
"fr" 'ivy-recentf
"ir" 'ivy-resume
"bb" 'ivy-switch-buffer)
@ -256,6 +257,16 @@ Helm hack."
(global-set-key (kbd "C-c C-r") 'ivy-resume)
(global-set-key (kbd "<f6>") 'ivy-resume)
(defun spacemacs/ivy-available-repls ()
"Show available repls."
(interactive)
(ivy-read "Repls: "
(mapcar #'car spacemacs-repl-list)
:action (lambda (candidate)
(let ((repl (cdr (assoc candidate spacemacs-repl-list))))
(require (car repl))
(call-interactively (cdr repl))))))
(defun spacemacs//hjkl-completion-navigation (&optional arg)
"Set navigation on `jklh'. ARG non nil means Vim like movements."
(cond