[elpa] externals/eev 45f8210209: Rwrote some parts of `find-try-sly-links'.

[ELPA Syncer]

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

    Rwrote some parts of `find-try-sly-links'.
---
 ChangeLog     |  9 +++++++++
 VERSION       |  4 ++--
 eev-blinks.el | 12 ++++++++++--
 eev-elinks.el |  6 +++++-
 eev-tlinks.el | 59 ++++++++++++++++++++---------------------------------------
 5 files changed, 46 insertions(+), 44 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index f13d3aa50e..2dae6f9563 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,12 @@
+2023-01-18  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eev-tlinks.el (find-try-sly-links): rewrote several parts.
+
+2023-01-17  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eev-blinks.el (ee-symbol<): new function.
+       (ee-sort-symbols): new function.
+
 2023-01-16  Eduardo Ochs  <eduardoochs@gmail.com>
 
        * eev-hlinks.el (ee-efunctiondescr-re): recognize built-in
diff --git a/VERSION b/VERSION
index 75e23ebc6c..5d5e06a090 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Mon Jan 16 21:12:35 GMT 2023
-Mon Jan 16 18:12:35 -03 2023
+Wed Jan 18 05:54:12 GMT 2023
+Wed Jan 18 02:54:12 -03 2023
diff --git a/eev-blinks.el b/eev-blinks.el
index 9ab9eb4f86..c3764e4975 100644
--- a/eev-blinks.el
+++ b/eev-blinks.el
@@ -2,7 +2,7 @@
 ;; The basic hyperlinks are the ones that do not depend on templates,
 ;; and that are not created by `code-c-d' and friends.
 
-;; Copyright (C) 1999-2022 Free Software Foundation, Inc.
+;; Copyright (C) 1999-2023 Free Software Foundation, Inc.
 ;;
 ;; This file is part of GNU eev.
 ;;
@@ -21,7 +21,7 @@
 ;;
 ;; Author:     Eduardo Ochs <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version:    20221216
+;; Version:    20230117
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-blinks.el>
@@ -614,6 +614,14 @@ properties to omit."
                                collect (list x y))
           collect (cons s (ee-sort-pairs pairs))))
 
+(defun ee-symbol< (symbol1 symbol2)
+  (string< (symbol-name symbol1) (symbol-name symbol2)))
+
+;; Tests: (find-eppp global-minor-modes)
+;;        (find-eppp (ee-sort-symbols global-minor-modes))
+(defun ee-sort-symbols (symbols)
+  (sort symbols 'ee-symbol<))
+
 (defun ee-sort-pairs (pairs)
   "Sort a list of PAIRS of the the form (symbol value)."
   (let ((pair< (lambda (pair1 pair2)
diff --git a/eev-elinks.el b/eev-elinks.el
index babc56db51..7fdf95e170 100644
--- a/eev-elinks.el
+++ b/eev-elinks.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version:    20230107
+;; Version:    20230118
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-elinks.el>
@@ -1531,6 +1531,7 @@ Convert PKG - a symbol - to a package-desc structure (or 
to nil)."
      (find-efunction-links ',mode)
      (find-efunctiondescr  ',mode)
      (find-efunction       ',mode)
+     (find-hvariable ,(concat mode "-map"))
      ""
      (find-estring (documentation ',mode))
      (find-estring (documentation ',mode t))
@@ -1563,6 +1564,8 @@ Convert PKG - a symbol - to a package-desc structure (or 
to nil)."
      (find-eppp (--filter (and (boundp it) (symbol-value it)) minor-mode-list))
      (find-elinks (--map `(find-efunctiondescr ',it) minor-mode-list))
      (find-elinks (--map `(find-efunction ',it) minor-mode-list))
+     (find-node "(dash)")
+     (find-node "(dash)Index")
      ""
      (find-elnode "Active Keymaps")
      (find-elnode "Standard Keymaps")
@@ -1572,6 +1575,7 @@ Convert PKG - a symbol - to a package-desc structure (or 
to nil)."
      (find-elnode "Controlling Active Maps" "minor-mode-key-binding")
      (find-eppp (current-minor-mode-maps))
      (find-eppp minor-mode-map-alist)
+     (find-eppp (mapcar 'car minor-mode-map-alist))
      (find-eppp (-map 'car minor-mode-map-alist))
      ""
      (find-efunctiondescr 'define-minor-mode)
diff --git a/eev-tlinks.el b/eev-tlinks.el
index 96b31b2dba..9e0947ee37 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:    20230110
+;; Version:    20230118
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-tlinks.el>
@@ -3923,8 +3923,6 @@ N should be either a number or a symbol; SEXP should be a 
sexp."
      (find-efunction 'find-try-sly-links)
      ""
      ,(ee-template0 (ee-adjust-red-stars "\
- This script is incomplete!!!
-
  1. Install some Debian packages
  ===============================
  Note that the package \"hyperspec\" will install
@@ -3993,27 +3991,10 @@ sbcl --load quicklisp.lisp
  Copy the block below to your ~/.emacs:
 
 ;; From: (find-try-sly-links)
-;; Skel: (find-rstdoc-links :clhs)
-(setq ee-rstdoc-:clhs
-      '(:base      \"Front/Contents\"
-        :base-web  \"http://clhs.lisp.se/\";
-                  ;; \"http://www.lispworks.com/documentation/HyperSpec/\";
-        :base-html \"file:///usr/share/doc/hyperspec/\"
-        :base-rst  \"/BASE-RST/\"
-        :rst       \".rst\"
-        :htm       \".htm\"
-        :res       (\"#.*$\" \"\\\\?.*$\" \".html?$\" \".txt$\" \".rst$\" 
\"^file://\"
-                   \"http://clhs.lisp.se/\";
-                   \"http://www.lispworks.com/documentation/HyperSpec/\";
-                   
\"http://www.cs.cmu.edu/afs/cs/project/ai-repository/ai/html/hyperspec/HyperSpec/\";
-                   
\"http://www.ai.mit.edu/projects/iiip/doc/CommonLISP/HyperSpec/\";
-                   \"/usr/share/doc/hyperspec/\")
-        :kill      clk
-       ))
-
+;; The `code-rstdoc' below defines `find-clhsdoc':
 ;; (find-code-rstdoc :clhs)
         (code-rstdoc :clhs)
-
+;;
 ;; See:   (find-status   \"hyperspec\")
 ;;        (find-vldifile \"hyperspec.list\")
 ;;        (find-udfile   \"hyperspec/\")
@@ -4059,6 +4040,13 @@ sbcl --load quicklisp.lisp
 
 (defvar o)
 (setq o (macroexpand '(defstruct mypoint x y)))
+
+ Now try `M-.' on a symbol name, and `M-,' to go back.
+ Then try `C-c I <sexp>' - for example, `C-c I (list 2 3)'.
+ These key sequences are explained in these pages:
+   (find-node \"(sly)Finding definitions\" \"M-.\" \"sly-edit-definition\")
+   (find-node \"(sly)Inspector\" \"C-c I\" \"sly-inspect\")
+ Try also this low-level way to run the inspector:
  (eepitch-eval-at-target-window '(sly-inspect \"o\"))
 
 
@@ -4069,8 +4057,6 @@ sbcl --load quicklisp.lisp
    (mkdir \"~/.maxima/\" t)
  and then copy the block below to:
    (find-fline \"~/.maxima/startsly.lisp\")
- Note that it contains a \"test block\". See:
-   http://angg.twu.net/eepitch.html#test-blocks
 
 ;; From: (find-try-sly-links)
 ;; Based on: (find-angg \".maxima/startsly.lisp\")
@@ -4079,28 +4065,23 @@ sbcl --load quicklisp.lisp
 (ql:quickload :slynk)
 (slynk:create-server :port 56789 :dont-close t)
 
-#|
- (eepitch-sbcl)
- (eepitch-kill)
- (eepitch-sbcl)
-(load #P\"~/quicklisp/setup.lisp\")
-(ql:quickload :slynk)
 
+
+ 8. Inspect Maxima with Sly
+ ==========================
+ Note that here we have two eepitch targets,
+ and we alternate between them...
+
  (eepitch-maxima)
  (eepitch-kill)
  (eepitch-maxima)
 load(\"startsly\");
  (sly-connect \"localhost\" 56789)
  (eepitch-sly)
-
-|#
-
-
- See:
- https://gigamonkeys.com/book/lather-rinse-repeat-a-tour-of-the-repl.html
-
-
-
+(describe '$changevar)
+
+ Now go to the sly-mrepl buffer, put the point
+ on the \"MAXIMA::$CHANGEVAR\", and type `M-.'.
 
 
 "))