Lisp/SLIME: Show helm-slime-mini even with only one REPL
parent
3c347846ef
commit
f67e8899d9
|
@ -102,12 +102,14 @@
|
||||||
"<f6>" (lambda () (interactive) (async-byte-recompile-directory (file-name-directory (buffer-file-name)))))
|
"<f6>" (lambda () (interactive) (async-byte-recompile-directory (file-name-directory (buffer-file-name)))))
|
||||||
|
|
||||||
;;; Common LISP.
|
;;; Common LISP.
|
||||||
|
;; TODO: Somehow this does not work when a EXWM is focused.
|
||||||
(defun ambrevar/slime-switch-to-repl ()
|
(defun ambrevar/slime-switch-to-repl ()
|
||||||
(interactive)
|
(interactive)
|
||||||
(pcase (length slime-net-processes)
|
(pcase (length slime-net-processes)
|
||||||
(0 (slime))
|
(0 (slime))
|
||||||
(1 (if (eq (current-buffer) (slime-output-buffer))
|
(1 (if (and (eq (current-buffer) (slime-output-buffer))
|
||||||
(slime)
|
(require 'helm-slime nil 'no-error))
|
||||||
|
(helm-slime-mini)
|
||||||
(pop-to-buffer (slime-output-buffer))))
|
(pop-to-buffer (slime-output-buffer))))
|
||||||
(_ (if (require 'helm-slime nil 'noerror)
|
(_ (if (require 'helm-slime nil 'noerror)
|
||||||
(helm-slime-mini)
|
(helm-slime-mini)
|
||||||
|
|
Loading…
Reference in New Issue