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

SLY: Fix ambrevar/helm-selector-sly-non-ambrevar.

master
Pierre Neidhardt 2021-04-20 11:14:06 +02:00
parent 2d24e9c81f
commit 983c166dd2
2 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.emacs.d/lisp/init-exwm.el
View File

@ -124,6 +124,7 @@ KEYS is passed to `kbd'."
(ambrevar/exwm-global-set-key "s-p" #'helm-pass))
(autoload 'ambrevar/slime-to-repl "lisp")
(autoload 'ambrevar/helm-selector-sly-non-ambrevar "init-sly")
(ambrevar/exwm-global-set-key "s-<backspace>" #'ambrevar/helm-selector-sly-non-ambrevar)
;; TODO: Apparently, S-s-<backspace> is not recognized.
(ambrevar/exwm-global-set-key "M-s-<backspace>" #'ambrevar/helm-selector-sly-non-ambrevar-other-window)

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

@ -84,13 +84,16 @@
:predicate #'ambrevar/helm-sly-buffer-non-ambrevar-p
:make-buffer-fn (lambda () ; Copied from helm-selector-sly.el.
(interactive)
(if (and (null sly-net-processes)
(< 1 (length sly-lisp-implementations)))
(let ((current-connection (car (sly--purge-connections))))
(if (and current-connection
(sly-mrepl--find-buffer current-connection)
(ambrevar/helm-sly-buffer-non-ambrevar-p
(sly-mrepl--find-buffer current-connection)))
;; Make sure to call interactively so that last
;; connection is reused.
(call-interactively #'sly)
(let ((current-prefix-arg '-))
(call-interactively #'sly))
;; Make sure to call interactively so that last
;; connection is reused.
(call-interactively #'sly)))
(call-interactively #'sly)))))
:helm-sources #'ambrevar/helm-sly-mini-non-ambrevar))
(defun ambrevar/helm-selector-sly-non-ambrevar-other-window ()