[elpa] externals/eev ae6aef1337: Factored `find-slyprocess'.

[ELPA Syncer]

branch: externals/eev
commit ae6aef1337536e1e193ca9d2219b8aed50bb113a
Author: Eduardo Ochs <eduardoochs@gmail.com>
Commit: Eduardo Ochs <eduardoochs@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  <eduardoochs@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  <eduardoochs@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 <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@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.