mirrors
/
ambevar-dotfiles
mirror of https://gitlab.com/ambrevar/dotfiles/
1
0
Fork 0
Code Issues Releases Wiki Activity

SLY: Show all sbcl-ambrevar connections in selector.

master
Pierre Neidhardt 2021-01-14 11:54:46 +01:00
parent 94e8cd5b97
commit 34a0f3fc29
1 changed files with 1 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
.emacs.d/lisp/init-sly-selector.el
View File

@ -9,20 +9,13 @@
(string-prefix-p ambrevar/sly-connection-name
(helm-sly-connection-name sly-buffer-connection)))))
(defun ambrevar/helm-sly-connection ()
"Return the connection matching `ambrevar/sly-connection-name'."
(helm-sly-buffer-connection
(cl-first (cl-remove-if-not
#'ambrevar/helm-sly-buffer-p
(buffer-list)))))
(defun ambrevar/helm-sly-mini ()
"Helm for Lisp connections and buffers using the
`ambrevar/sly-connection-name' connection."
(interactive)
(helm :sources (list (helm-sly--c-source-connection
(helm-sly--repl-buffer-candidates
(ambrevar/helm-sly-connection)))
nil #'ambrevar/helm-sly-buffer-p))
helm-sly-new
(helm-sly-build-buffers-source))
:buffer "*ambrevar/helm-sly-mini*"))