From efaef81ca5f97db515cb38974171338e5509955c Mon Sep 17 00:00:00 2001 From: person808 Date: Fri, 22 Jan 2016 18:38:14 -1000 Subject: [PATCH] Port helm-available-repls to spacemacs-ivy layer. --- layers/+completion/spacemacs-ivy/packages.el | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/layers/+completion/spacemacs-ivy/packages.el b/layers/+completion/spacemacs-ivy/packages.el index 2508e887d..a48602bf5 100644 --- a/layers/+completion/spacemacs-ivy/packages.el +++ b/layers/+completion/spacemacs-ivy/packages.el @@ -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 "") '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