[elpa] externals/eev 5fe12b4c18: Added `eepitch-sly'.

[ELPA Syncer]

branch: externals/eev
commit 5fe12b4c18c7e0beee247be17726b72d6ecb051c
Author: Eduardo Ochs <eduardoochs@gmail.com>
Commit: Eduardo Ochs <eduardoochs@gmail.com>

    Added `eepitch-sly'.
---
 ChangeLog    |  4 ++++
 VERSION      |  4 ++--
 eepitch.el   | 23 ++++++++++++++++++++++-
 eev-code.el  |  3 ++-
 eev-intro.el |  9 ++++++---
 eev-kla.el   |  2 +-
 6 files changed, 37 insertions(+), 8 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 01ff06408d..e99f523650 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2022-08-01  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eepitch.el (find-slyprocess, eepitch-sly): new functions.
+
 2022-06-26  Eduardo Ochs  <eduardoochs@gmail.com>
 
        * eev-kla.el (ee-kla-demo-write-file)
diff --git a/VERSION b/VERSION
index 2797b75a98..ad4272864d 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Wed Jun 29 03:49:53 GMT 2022
-Wed Jun 29 00:49:53 -03 2022
+Mon Aug  1 03:56:06 GMT 2022
+Mon Aug  1 00:56:06 -03 2022
diff --git a/eepitch.el b/eepitch.el
index dbecc894b3..58de9d651f 100644
--- a/eepitch.el
+++ b/eepitch.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version:    20220416
+;; Version:    20220801
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eepitch.el>
@@ -48,6 +48,7 @@
 ;; «.other-terms»              (to "other-terms")
 ;;   «.eepitch-ansiterm»       (to "eepitch-ansiterm")
 ;;   «.eepitch-vterm»          (to "eepitch-vterm")
+;;   «.eepitch-sly»            (to "eepitch-sly")
 ;;
 ;; «.eepitch-langs»            (to "eepitch-langs")
 
@@ -899,6 +900,26 @@ The arguments are explained here:
   (prog1 (eepitch `(find-vtermprocess ,program ,name0))
     (setq eepitch-line 'eepitch-line-vterm)))
 
+;; «eepitch-sly»  (to ".eepitch-sly")
+;; This is a prototype. See:
+;; https://github.com/joaotavora/sly/issues/527
+;;
+(defun find-slyprocess ()
+  "Go to a Sly REPL buffer, This function is used by `eepitch-sly'."
+  (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))))
+
+(defun eepitch-sly () (interactive)
+  (eepitch '(find-slyprocess)))
+
 
 
 ;;;  _                                                  
diff --git a/eev-code.el b/eev-code.el
index 39e803afae..2f57258d78 100644
--- a/eev-code.el
+++ b/eev-code.el
@@ -126,7 +126,8 @@ Examples: (ee-areplace '((1 . one) (2 . two) (3 . three)) 2 
'foo)
 ;;;                                                  |_|                     
 ;;
 ;; «code-c-d-pairs» (to ".code-c-d-pairs")
-;; Used by: (find-eev "eev-elinks.el" "ee-code-c-d-filter")
+;; Explained here: (find-eev "eev-elinks.el" "ee-code-c-d-filter")
+;;      Called by: (find-efunction 'code-c-d "ee-code-c-d-add-pair")
 
 (defvar ee-code-c-d-pairs nil
   "Each (code-c-d C D) call generates an entry (C (ee-expand D)) here.
diff --git a/eev-intro.el b/eev-intro.el
index 21a0075561..141af3b1a8 100644
--- a/eev-intro.el
+++ b/eev-intro.el
@@ -10339,9 +10339,11 @@ ee
 
 2. `ee'
 =======
-\[Explain how several interpreters can be programmed to accept
-an `ee' command to execute temporary scripts\]
+\[TODO: Write this section! Explain how several interpreters can
+be programmed to accept an `ee' command to execute temporary
+scripts...]
 
+  See (obs: this is very old!):
   http://angg.twu.net/eev-article.html#making-progs-receive-cmds
 
   (find-eev \"eev-langs.el\")
@@ -10621,7 +10623,8 @@ Before eepitch had been invented eev had two other ways 
to send
 commands to external shell-like programs. The first way,
 described here,
 
-  (find-prepared-intro \"\\n`ee'\\n\")
+  (find-prepared-intro)
+  (find-prepared-intro \"2. `ee'\")
 
 was technically very simple: running `M-x eev' would save a
 series of commands - usually the contents of the region - into a
diff --git a/eev-kla.el b/eev-kla.el
index 5f10313522..4b0a16b650 100644
--- a/eev-kla.el
+++ b/eev-kla.el
@@ -224,7 +224,7 @@
   (ee-copy-preceding-tag-to-kill-ring))
 
 (defun ee-kl-region ()
-  (if (not (use-region-p)) (error "The region is not active!"))
+  ; (if (not (use-region-p)) (error "The region is not active!"))
   (buffer-substring-no-properties (point) (mark)))
 
 (defun ee-kl-kill (sexp)