branch: externals/eev
commit ae6aef1337536e1e193ca9d2219b8aed50bb113a
Author: Eduardo Ochs <eduardoo...@gmail.com>
Commit: Eduardo Ochs <eduardoo...@gmail.com>
Factored `find-slyprocess'.
---
ChangeLog | 7 +++++++
VERSION | 4 ++--
eepitch.el | 29 +++++++++++++++++++++--------
eev-intro.el | 2 +-
4 files changed, 31 insertions(+), 11 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index b0a1646b59..181725a0f6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2022-12-28 Eduardo Ochs <eduardoo...@gmail.com>
+
+ * eepitch.el (find-slyprocess-reuse, find-slyprocess-create): new
+ functions.
+ (find-slyprocess): use `find-slyprocess-reuse' and
+ `find-slyprocess-create'.
+
2022-12-27 Eduardo Ochs <eduardoo...@gmail.com>
* eev-videolinks.el (ee-1stclassvideos-info): added an indication
diff --git a/VERSION b/VERSION
index 1f9bbb1e8a..b77a64e0ef 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Tue Dec 27 03:47:50 GMT 2022
-Tue Dec 27 00:47:50 -03 2022
+Thu Dec 29 00:29:47 GMT 2022
+Wed Dec 28 21:29:47 -03 2022
diff --git a/eepitch.el b/eepitch.el
index f24cba7ccf..b0f07e163f 100644
--- a/eepitch.el
+++ b/eepitch.el
@@ -19,7 +19,7 @@
;;
;; Author: Eduardo Ochs <eduardoo...@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoo...@gmail.com>
-;; Version: 20221123
+;; Version: 20221228
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eepitch.el>
@@ -904,19 +904,32 @@ The arguments are explained here:
;; «eepitch-sly» (to ".eepitch-sly")
;; This is a prototype. See:
;; https://github.com/joaotavora/sly/issues/527
-;;
+;; https://github.com/joaotavora/sly/issues/550
+;;
+(defun find-slyprocess-reuse ()
+ "Go to a Sly REPL buffer (when we want to reuse an old one).
+This is an internal function used by `find-slyprocess'."
+ (find-ebuffer (sly-mrepl--find-buffer) :end))
+
+(defun find-slyprocess-create ()
+ "Go to a Sly REPL buffer (when we want to create a new one).
+This is an internal function used by `find-slyprocess'."
+ (let ((sly-command-switch-to-existing-lisp 'never)
+ (sly-auto-select-connection 'never)
+ (sly-lisp-implementations '((sbcl ("sbcl"))))
+ (sly-default-lisp 'sbcl))
+ (save-window-excursion (sly)) ; TODO: fix this
+ (find-slyprocess-reuse)))
+
(defun find-slyprocess ()
"Go to a Sly REPL buffer, This function is used by `eepitch-sly'."
+ (interactive)
(require 'sly)
(sly-setup)
(if (and (sly-current-connection)
(sly-mrepl--find-buffer))
- (find-ebuffer (sly-mrepl--find-buffer) :end)
- (let ((sly-command-switch-to-existing-lisp 'never)
- (sly-auto-select-connection 'never)
- (sly-lisp-implementations '((sbcl ("sbcl"))))
- (sly-default-lisp 'sbcl))
- (sly))))
+ (find-slyprocess-reuse)
+ (find-slyprocess-create)))
(defun eepitch-sly () (interactive)
(eepitch '(find-slyprocess)))
diff --git a/eev-intro.el b/eev-intro.el
index ff45fc2ab7..3fca3ead4b 100644
--- a/eev-intro.el
+++ b/eev-intro.el
@@ -10407,7 +10407,7 @@ Etc:
\(Re)generate: (find-prepared-intro)
Source code: (find-eev \"eev-intro.el\" \"find-prepared-intro\")
More intros: (find-eev-quick-intro)
- (find-eval-intro)
+ (find-eev-intro)
(find-eepitch-intro)
This buffer is _temporary_ and _editable_.
It is meant as both a tutorial and a sandbox.
