From b884f0d613a51051d206430fc840bf2c5929d69a Mon Sep 17 00:00:00 2001 From: Pierre Neidhardt Date: Wed, 13 Jan 2021 11:53:03 +0100 Subject: [PATCH] Helm-SLY: Customize connection/buffer display formatting. --- .emacs.d/lisp/init-sly.el | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/.emacs.d/lisp/init-sly.el b/.emacs.d/lisp/init-sly.el index be97eadb..954dddab 100644 --- a/.emacs.d/lisp/init-sly.el +++ b/.emacs.d/lisp/init-sly.el @@ -76,6 +76,17 @@ If REFRESH is non-nil, rebuild the environment." (define-key sly-mrepl-mode-map (kbd "C-c C-x c") 'helm-sly-list-connections))) (when (require 'helm-sly nil :noerror) + (defun ambrevar/helm-sly-format-connection (connection buffer) + (let ((fstring "%s%2s %s")) + (format fstring + (if (eq sly-default-connection connection) + "*" + " ") + (helm-sly-connection-number connection) + (replace-regexp-in-string + "*$" "" + (replace-regexp-in-string "*sly-mrepl for " "" (buffer-name buffer)))))) + (setq helm-sly-connection-formatter #'ambrevar/helm-sly-format-connection) (global-helm-sly-mode) (add-to-list 'helm-source-names-using-follow "Lisp xrefs"))