diff --git a/.emacs.d/lisp/init-sly-selector.el b/.emacs.d/lisp/init-sly-selector.el index b45679cb..ec30fa3f 100644 --- a/.emacs.d/lisp/init-sly-selector.el +++ b/.emacs.d/lisp/init-sly-selector.el @@ -4,7 +4,8 @@ "Return non-nil if BUFFER has a SLY connection matching `ambrevar/sly-connection-name'." (with-current-buffer buffer - (and sly-buffer-connection + (and (derived-mode-p 'sly-mrepl-mode) + sly-buffer-connection (sly-process sly-buffer-connection) (string-prefix-p ambrevar/sly-connection-name (helm-sly-connection-name sly-buffer-connection))))) @@ -15,8 +16,10 @@ (interactive) (helm :sources (list (helm-sly--c-source-connection (helm-sly--repl-buffer-candidates - nil #'ambrevar/helm-sly-buffer-p)) + nil #'ambrevar/helm-sly-buffer-p) + "Ambrevar's Lisp connections") helm-sly-new + (helm-sly-lisp-buffer-source) (helm-sly-build-buffers-source)) :buffer "*ambrevar/helm-sly-mini*"))