[elpa] externals/eev a0cc9f2a5c: Added `find-try-sly-links'.

[ELPA Syncer]

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

    Added `find-try-sly-links'.
---
 ChangeLog     |  4 +++
 VERSION       |  4 +--
 eev-tlinks.el | 80 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-
 3 files changed, 85 insertions(+), 3 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index a185e99b48..a57451050f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2023-01-10  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eev-tlinks.el (find-try-sly-links): new function.
+
 2023-01-07  Eduardo Ochs  <eduardoochs@gmail.com>
 
        * eev-intro.el (find-saving-links-intro): reordered the intro.
diff --git a/VERSION b/VERSION
index a914215781..85b83667dd 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Sat Jan  7 16:00:04 GMT 2023
-Sat Jan  7 13:00:04 -03 2023
+Tue Jan 10 04:39:51 GMT 2023
+Tue Jan 10 01:39:51 -03 2023
diff --git a/eev-tlinks.el b/eev-tlinks.el
index fc153e7e63..7f19a6540a 100644
--- a/eev-tlinks.el
+++ b/eev-tlinks.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version:    20230104
+;; Version:    20230110
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-tlinks.el>
@@ -150,6 +150,7 @@
 ;; «.find-kla-links»                   (to "find-kla-links")
 ;; «.find-rstdoc-links»                        (to "find-rstdoc-links")
 ;; «.find-mpv-links»                   (to "find-mpv-links")
+;; «.find-try-sly-links»               (to "find-try-sly-links")
 
 
 (require 'eev-env)
@@ -3908,6 +3909,83 @@ N should be either a number or a symbol; SEXP should be 
a sexp."
 
 
 
+;; «find-try-sly-links»  (to ".find-try-sly-links")
+;; Skel: (find-find-links-links-new "try-sly" "" "")
+;; Test: (find-try-sly-links)
+;;
+(defun find-try-sly-links (&rest pos-spec-list)
+"Visit a temporary buffer containing a script for trying Sly."
+  (interactive)
+  (apply
+   'find-elinks
+   `((find-try-sly-links ,@pos-spec-list)
+     ;; Convention: the first sexp always regenerates the buffer.
+     (find-efunction 'find-try-sly-links)
+     ""
+     ,(ee-template0 (ee-adjust-red-stars "\
+ This script is incomplete!!!
+
+ Make sure that sbcl is installed.
+ Note: this block only works on Debian.
+
+ (eepitch-shell)
+ (eepitch-kill)
+ (eepitch-shell)
+sudo apt-get install sbcl
+
+ Install sly. Use low-level sexps instead of `M-x list-packages'.
+ Note that some of the sexps below take several seconds to run.
+
+ (package-initialize)
+ (add-to-list 'package-archives '(\"melpa\" . 
\"https://melpa.org/packages/\";))
+ (package-refresh-contents)
+ (package-install 'sly)
+
+ Download quicklisp.lisp.
+
+ (eepitch-shell)
+ (eepitch-kill)
+ (eepitch-shell)
+mkdir -p $S/https/beta.quicklisp.org/
+cd       $S/https/beta.quicklisp.org/
+ls -lAF
+rm -fv quicklisp.lisp
+rm -fv quicklisp.lisp.asc
+wget -nc 'https://beta.quicklisp.org/quicklisp.lisp'
+wget -nc 'https://beta.quicklisp.org/quicklisp.lisp.asc'
+# (find-fline \"$S/https/beta.quicklisp.org/\")
+# (find-fline \"$S/https/beta.quicklisp.org/quicklisp.lisp\")
+
+ Run quicklisp.lisp.
+ Ask it to install slynk and to change ~/.sbclrc.
+
+ (eepitch-shell)
+ (eepitch-kill)
+ (eepitch-shell)
+cd       $S/https/beta.quicklisp.org/
+sbcl --load quicklisp.lisp
+  (quicklisp-quickstart:help)
+  (quicklisp-quickstart:install)
+  (ql:quickload :slynk)
+  (ql:add-to-init-file)
+
+  ;; Inspect the changes in ~/.sbclrc:
+  ;; (find-fline \"~/.sbclrc\")
+  ;; (find-fline \"~/.sbclrc\" \"added by ql:add-to-init-file:\")
+
+ Start Sly.
+ One of its messages will (should?) be:
+ [sly] Connecting to Slynk on port 45477.
+
+ (eepitch-sly)
+ (eepitch-kill)
+ (eepitch-sly)
+
+"))
+     )
+   pos-spec-list))
+
+
 
 
 (provide 'eev-tlinks)