[elpa] externals/eev d4f760557d: Small changes in the support for Common Lisp.

[ELPA Syncer]

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

    Small changes in the support for Common Lisp.
---
 ChangeLog     |  17 ++++++++++
 VERSION       |   4 +--
 eev-elinks.el |  15 ++++++++-
 eev-plinks.el |   3 +-
 eev-tlinks.el | 100 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++-
 5 files changed, 134 insertions(+), 5 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index eba6520a31..d8f60819e5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,20 @@
+2024-09-22  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eev-elinks.el (ee-lisp-symbol-around-point)
+       (ee-lisp-symbol-around-point-ask): new functions.
+
+       * eev-plinks.el (find-clhsdoci): use
+       `ee-lisp-symbol-around-point-ask'.
+
+       * eev-tlinks.el (find-quicklisp-links, find-sbcl-links): use
+       `ee-lisp-symbol-around-point-ask'.
+
+2024-09-21  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eev-tlinks.el (ee-dot-emacs-sly): small changes.
+       (find-quicklisp-links): new function.
+       (find-sbcl-links): new function.
+
 2024-09-20  Eduardo Ochs  <eduardoochs@gmail.com>
 
        * eev-plinks.el (find-wget0, find-wget, find-wget-elisp)
diff --git a/VERSION b/VERSION
index f8942c4fa7..09b0970bf6 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Sat Sep 21 01:24:46 GMT 2024
-Fri Sep 20 22:24:46 -03 2024
+Sun Sep 22 03:44:43 GMT 2024
+Sun Sep 22 00:44:43 -03 2024
diff --git a/eev-elinks.el b/eev-elinks.el
index 43639977be..141f0435df 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:    20240623
+;; Version:    20240922
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://anggtwu.net/eev-current/eev-elinks.el>
@@ -180,6 +180,19 @@ This function is not very smart - it doesn't understand 
section names."
 
 (defun ee-1stclassvideos ()
   (sort (mapcar 'car ee-1stclassvideos-info) 'string<))
+
+(defun ee-lisp-symbol-around-point ()  
+"Return the Lisp symbol around point.
+This function is not very smart."
+  (interactive)
+  (ee-stuff-around-point "A-Za-z0-9-+_:*"))
+
+(defun ee-lisp-symbol-around-point-ask (&optional prompt)
+"Ask for a Lisp symbol; the default is the Lisp symbol at point."
+  (interactive)
+  (read-string (or prompt "Symbol: ")
+              (ee-lisp-symbol-around-point)))
+
   
 
 
diff --git a/eev-plinks.el b/eev-plinks.el
index b8bed9cbf5..d97e39f472 100644
--- a/eev-plinks.el
+++ b/eev-plinks.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version:    20240920
+;; Version:    20240922
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://anggtwu.net/eev-current/eev-plinks.el>
@@ -663,6 +663,7 @@ See: (find-strange-functions-intro)"
 (defun find-clhsdoci (clhsname &rest rest)
   "Open the page of the Common Lisp Hyperspec corresponding to CLHSNAME.
 This function uses `ee-clhs-lookup-index' and `find-clhsdoc'."
+  (interactive (list (ee-lisp-symbol-around-point-ask)))
   (let* ((str0 (ee-clhs-lookup-index clhsname))
         (str (replace-regexp-in-string "\\.html?$" "" str0)))
     (find-clhsdoc str)))
diff --git a/eev-tlinks.el b/eev-tlinks.el
index c41ecc8145..29d160fca7 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:    20240913
+;; Version:    20240922
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://anggtwu.net/eev-current/eev-tlinks.el>
@@ -184,6 +184,8 @@
 ;; «.find-maximamsg-links»             (to "find-maximamsg-links")
 ;; «.find-maximamsg»                   (to "find-maximamsg")
 ;; «.find-qdraw-links»                 (to "find-qdraw-links")
+;; «.find-quicklisp-links»             (to "find-quicklisp-links")
+;; «.find-sbcl-links»                  (to "find-sbcl-links")
 ;; «.find-linki-links»                 (to "find-linki-links")
 ;; «.find-gitdoc-links»                        (to "find-gitdoc-links")
 ;; «.find-luainit-links»               (to "find-luainit-links")
@@ -4054,6 +4056,9 @@ is nil, use the result of (ee-1stclassvideos)."
 (defun ee-dot-emacs-sly (&rest rest) "\
 ;; See: (find-try-sly-intro \"3. Adjust your ~/.emacs\")
 (code-c-d \"ql\" \"~/quicklisp/\")
+(code-c-d \"qlreleases\" \"~/quicklisp/dists/quicklisp/installed/releases/\")
+(code-c-d \"qlsystems\"  \"~/quicklisp/dists/quicklisp/installed/systems/\")
+(code-c-d \"qlsoftware\" \"~/quicklisp/dists/quicklisp/software/\")
 (code-c-d \"sly\" (ee-locate-library \"sly.el\") \"sly\")
 (code-c-d \"slynk\" (ee-slyfile \"slynk/\"))
 ")
@@ -5436,6 +5441,99 @@ myqdraw([xr({xr}),yr({yr})], myexs());
 
 
 
+;; «find-quicklisp-links»  (to ".find-quicklisp-links")
+;; Skel: (find-find-links-links-new "quicklisp" "pkg" "")
+;; Test: (find-quicklisp-links)
+;;       (find-quicklisp-links "cffi")
+;;
+(defun find-quicklisp-links (&optional pkg &rest pos-spec-list)
+"Visit a temporary buffer containing hyperlinks for quicklisp."
+  (interactive (list (ee-lisp-symbol-around-point-ask "Package name: ")))
+  (setq pkg (or pkg "{pkg}"))
+  (apply
+   'find-elinks
+   `((find-quicklisp-links ,pkg ,@pos-spec-list)
+     ;; Convention: the first sexp always regenerates the buffer.
+     (find-efunction 'find-quicklisp-links)
+     ""
+     (find-try-sly-intro "3. Adjust your ~/.emacs")
+     (find-try-sly-intro "4. Download quicklisp.lisp")
+     (find-fline "~/.sbclrc")
+     ""
+     ,(ee-template0 "\
+# (find-qlfile \"\")
+# (find-qlsh \"find * | sort\")
+# (find-qlsh \"find * | sort | grep {pkg}\")
+# (find-qlreleasesfile \"\" \"{pkg}.txt\")
+# (find-qlreleasesfile \"{pkg}.txt\")
+# (find-qlsoftwarefile \"\" \"{pkg}\")
+# https://{pkg}.common-lisp.dev/
+
+ (eepitch-sbcl)
+ (eepitch-kill)
+ (eepitch-sbcl)
+(load #P\"~/quicklisp/setup.lisp\")
+
+;; https://www.quicklisp.org/beta/#basic-commands
+;; https://www.quicklisp.org/beta/#installation
+(ql:system-apropos \"{pkg}\")
+(ql:quickload \"{pkg}\")
+(ql:install \"{pkg}\")
+(ql:uninstall \"{pkg}\")
+
+
+ More actions:
+ (find-es \"lisp\" \"quicklisp\")
+ (find-es \"lisp\" \"eev-quicklisp\")
+
+")
+     )
+   pos-spec-list))
+
+
+
+;; «find-sbcl-links»  (to ".find-sbcl-links")
+;; Skel: (find-find-links-links-new "sbcl" "name" "")
+;; Test: (find-sbcl-links 'require)
+;;
+(defun find-sbcl-links (&optional name &rest pos-spec-list)
+"Visit a temporary buffer containing hyperlinks for sbcl."
+  (interactive (list (ee-lisp-symbol-around-point-ask)))
+  (setq name (or name "{name}"))
+  (apply
+   'find-elinks-elisp
+   `((find-sbcl-links ',name ,@pos-spec-list)
+     ;; Convention: the first sexp always regenerates the buffer.
+     (find-efunction 'find-sbcl-links)
+     ""
+     ,(ee-template0 "\
+;; (find-clhsdoci \"{name}\")
+;; (find-sbclnode \"Function Index\" \" {name}:\")
+;; (find-sbclgrep \"grep --color=auto -niRH --null -e '{name}' *\")
+;; (find-sbclgrep \"grep --color=auto -niRH --null -e 'defun {name}' *\")
+;; (find-sbclsh \"find * | sort\")
+;; (find-sbclsh \"find * | sort | grep {name}\")
+;; (find-quicklisp-links \"{name}\")
+;; (find-try-sly-intro)
+
+ (eepitch-sbcl)
+ (eepitch-kill)
+ (eepitch-sbcl)
+(apropos \"{name}\")
+(describe '{name})
+
+ (eepitch-sly)
+ (eepitch-kill)
+ (eepitch-sly)
+(apropos \"{name}\")
+(describe '{name})
+")
+     )
+   pos-spec-list))
+
+
+
+
 
 
 ;; «find-linki-links»  (to ".find-linki-links")