SLY: Fix ambrevar/helm-selector-sly-non-ambrevar.
parent
2d24e9c81f
commit
983c166dd2
|
@ -124,6 +124,7 @@ KEYS is passed to `kbd'."
|
||||||
(ambrevar/exwm-global-set-key "s-p" #'helm-pass))
|
(ambrevar/exwm-global-set-key "s-p" #'helm-pass))
|
||||||
|
|
||||||
(autoload 'ambrevar/slime-to-repl "lisp")
|
(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)
|
(ambrevar/exwm-global-set-key "s-<backspace>" #'ambrevar/helm-selector-sly-non-ambrevar)
|
||||||
;; TODO: Apparently, S-s-<backspace> is not recognized.
|
;; TODO: Apparently, S-s-<backspace> is not recognized.
|
||||||
(ambrevar/exwm-global-set-key "M-s-<backspace>" #'ambrevar/helm-selector-sly-non-ambrevar-other-window)
|
(ambrevar/exwm-global-set-key "M-s-<backspace>" #'ambrevar/helm-selector-sly-non-ambrevar-other-window)
|
||||||
|
|
|
@ -84,13 +84,16 @@
|
||||||
:predicate #'ambrevar/helm-sly-buffer-non-ambrevar-p
|
:predicate #'ambrevar/helm-sly-buffer-non-ambrevar-p
|
||||||
:make-buffer-fn (lambda () ; Copied from helm-selector-sly.el.
|
:make-buffer-fn (lambda () ; Copied from helm-selector-sly.el.
|
||||||
(interactive)
|
(interactive)
|
||||||
(if (and (null sly-net-processes)
|
(let ((current-connection (car (sly--purge-connections))))
|
||||||
(< 1 (length sly-lisp-implementations)))
|
(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 '-))
|
(let ((current-prefix-arg '-))
|
||||||
(call-interactively #'sly))
|
(call-interactively #'sly)))))
|
||||||
;; Make sure to call interactively so that last
|
|
||||||
;; connection is reused.
|
|
||||||
(call-interactively #'sly)))
|
|
||||||
:helm-sources #'ambrevar/helm-sly-mini-non-ambrevar))
|
:helm-sources #'ambrevar/helm-sly-mini-non-ambrevar))
|
||||||
|
|
||||||
(defun ambrevar/helm-selector-sly-non-ambrevar-other-window ()
|
(defun ambrevar/helm-selector-sly-non-ambrevar-other-window ()
|
||||||
|
|
Loading…
Reference in New Issue