[elpa] externals/eev 87efec7c47: Added `find-melpa-links'.

[ELPA Syncer]

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

    Added `find-melpa-links'.
---
 ChangeLog         | 13 ++++++++++
 VERSION           |  4 +--
 eev-elinks.el     |  4 ++-
 eev-intro.el      | 11 +++++---
 eev-kla.el        |  7 ++---
 eev-tlinks.el     | 78 +++++++++++++++++++++++++++++++++++++++++++++++++++++--
 eev-videolinks.el |  7 ++++-
 7 files changed, 111 insertions(+), 13 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 1d9c7c7217..0fc570add7 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,16 @@
+2023-05-13  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eev-tlinks.el (find-melpa-links): New function.
+
+       * eev-elinks.el (ee-find-epackage-links0): use `find-melpa-links'.
+
+2023-04-22  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eev-tlinks.el (code-etv2, find-code-etv2, ee-code-etv2): new
+       functions.
+
+       * eev-videolinks.el (ee-1stclassvideos-pagestem): new function.
+
 2023-04-21  Eduardo Ochs  <eduardoochs@gmail.com>
 
        * eev-blinks.el (ee-find-eww-preprocess-url): new function.
diff --git a/VERSION b/VERSION
index c2a7d29380..56e6830e1f 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Sat Apr 22 03:22:59 GMT 2023
-Sat Apr 22 00:22:59 -03 2023
+Mon May 15 05:50:41 GMT 2023
+Mon May 15 02:50:41 -03 2023
diff --git a/eev-elinks.el b/eev-elinks.el
index f2d20b1dc8..c40c6c3d9e 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:    20230127
+;; Version:    20230513
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://anggtwu.net/eev-current/eev-elinks.el>
@@ -1307,6 +1307,8 @@ If D is t then try to use `ee-package-dir' to get the 
directory."
 # (code-c-d \"{c}\" \"{d}\")
 # (find-{c}file \"\")
 
+# (find-melpa-links)
+
 # http://elpa.gnu.org/packages/{pkg}.html
 # http://elpa.nongnu.org/nongnu/{pkg}.html
 # http://melpa.org/#/{pkg}
diff --git a/eev-intro.el b/eev-intro.el
index b1ababf2fa..f8dc1a13ac 100644
--- a/eev-intro.el
+++ b/eev-intro.el
@@ -14751,7 +14751,9 @@ It is meant as both a tutorial and a sandbox.
     (find-eev-quick-intro \"4. Creating Elisp Hyperlinks\")
     (find-eev-quick-intro \"4.1. `find-here-links'\")
 
-  Video: (find-eev2022klavideo \"0:00\")
+  Video: (find-1stclassvideo-links \"eev2022kla\")
+         (find-1stclassvideolsubs \"eev2022kla\")
+         (find-eev2022klavideo \"0:00\")
 
 
 
@@ -14764,7 +14766,7 @@ When we run this `code-c-d',
 it defines several functions; one of them is a function called
 `find-foofile', that points to the directory \"/tmp/FOO/\".
 
-We will refer to the first argument of the `code-c-d', \"foo\" as
+I will refer to the first argument of the `code-c-d', \"foo\" as
 the `code', or the `c', and to the second argument, \"/tmp/FOO/\"
 as the `directory', or the `d'.
 
@@ -14898,7 +14900,7 @@ that would do that is this one:
 That key sequence is explained here:
 
   (find-saving-links-intro)
-  (find-saving-links-intro \"2.3. The base case 3\")
+  (find-saving-links-intro \"5.3. The base case 3\")
 
 
 
@@ -14948,7 +14950,7 @@ So we will see it in detail.
 In the other examples of this tutorial I will suppose that you
 have run the `defalias'es below:
 
-  ;; From: (find-kla-intro \"2. Aliases\")
+  ;; From: (find-kla-intro \"4. Aliases\")
   (defalias 'kla  'eekla)
   (defalias 'kla0 'eekla0)
   (defalias 'klas 'eeklas)
@@ -15356,6 +15358,7 @@ redefine it to add more features to it.
 (TODO: document this! See:)
 
   (find-eev \"eev-kla.el\" \"eekla2\")
+  (find-eev2022klavideo \"06:07\")
 
 
 
diff --git a/eev-kla.el b/eev-kla.el
index 1c746abbcf..398a25b749 100644
--- a/eev-kla.el
+++ b/eev-kla.el
@@ -19,14 +19,14 @@
 ;;
 ;; Author:     Eduardo Ochs <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version:    20230128
+;; Version:    20230513
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://anggtwu.net/eev-current/eev-kla.el>
 ;;       htmlized: <http://anggtwu.net/eev-current/eev-kla.el.html>
 ;;       See also: <http://anggtwu.net/eev-current/eev-beginner.el.html>
-;;                 <http://anggtwu.net/eev-intros/find-eev-intro.html>
-;;                                                (find-eev-intro)
+;;                 <http://anggtwu.net/eev-intros/find-kla-intro.html>
+;;                                               (find-kla-intro)
 
 ;; «.a-test»                   (to "a-test")
 ;; «.more-tests»               (to "more-tests")
@@ -511,6 +511,7 @@ Put in the kill ring a link to the preceding anchor."
 ;;;                               
 ;; «eekla2»  (to ".eekla2")
 ;; See: (find-kla-intro "14. Bidirectional hyperlinks")
+;;      (find-eev2022klavideo "06:07")
 ;; Based on:
 ;;   (find-eev "eev-flash.el" "specs")
 ;;   (find-eev "eev-tlinks.el" "ee-copy-rest" "eeflash-copy")
diff --git a/eev-tlinks.el b/eev-tlinks.el
index 37f7e852d1..b889c45ef1 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:    20230128
+;; Version:    20230422
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://anggtwu.net/eev-current/eev-tlinks.el>
@@ -151,7 +151,9 @@
 ;; «.find-rstdoc-links»                        (to "find-rstdoc-links")
 ;; «.find-mpv-links»                   (to "find-mpv-links")
 ;; «.find-try-sly-links»               (to "find-try-sly-links")
+;; «.find-melpa-links»                 (to "find-melpa-links")
 ;; «.find-emacsclient-links»           (to "find-emacsclient-links")
+;; «.code-etv2»                                (to "code-etv2")
 
 
 (require 'eev-env)
@@ -3225,7 +3227,7 @@ This function is used by `ee-0x0-upload-region'."
 ;;
 ;; Index: (find-1stclassvideoindex             \"{c}\")
 ;;        http://anggtwu.net/.emacs.videos.html#{c}
-;;        (find-angg         \".emacs.videos\"   \"{c}\")
+;;        (find-angg        \".emacs.videos\"    \"{c}\")
 ;;        (find-angg-es-links)
 {dlsubs}\
 
@@ -4092,6 +4094,42 @@ load(\"startsly\");
 
 
 
+
+;; «find-melpa-links»  (to ".find-melpa-links")
+;; Skel: (find-find-links-links-new "melpa" "" "")
+;; Test: (find-melpa-links)
+;;
+(defun find-melpa-links (&rest pos-spec-list)
+"Visit a temporary buffer containing hyperlinks for melpa."
+  (interactive)
+  (apply
+   'find-elinks-elisp
+   `((find-melpa-links ,@pos-spec-list)
+     ;; Convention: the first sexp always regenerates the buffer.
+     (find-efunction 'find-melpa-links)
+     ""
+     ,(ee-template0 "\
+;; See:
+;; https://melpa.org/#/getting-started
+;; https://www.emacswiki.org/emacs/MELPA
+;; (find-eev \"eev-tlinks.el\" \"find-try-sly-links\")
+
+;; From: (find-melpa-links)
+(require 'package)
+(add-to-list 'package-archives
+  '(\"melpa\" . \"https://melpa.org/packages/\";))
+
+;; Test:
+;; (package-initialize)
+;; (package-refresh-contents)
+;; (find-epackages)
+")
+     )
+   pos-spec-list))
+
+
+
+
 ;; «find-emacsclient-links»  (to ".find-emacsclient-links")
 ;; Skel: (find-find-links-links-new "emacsclient" "" "")
 ;; Test: (find-emacsclient-links)
@@ -4130,6 +4168,42 @@ emacsclient --eval '(find-livesofanimalspage 3)'
 
 
 
+;; «code-etv2»  (to ".code-etv2")
+;; Skel: (find-code-xxx-links "etv2" "envvar dir outer" "")
+;; Test: (find-code-etv2 "SHOW2DIR" "~/LUA/" "Show2-outer")
+;;       (find-code-etv2)
+;;  See: http://anggtwu.net/Show2.html
+;;       (find-angg "LUA/Show2.lua" "Show")
+;;       (find-angg "LUA/Show2.lua" "Show" "dir =")
+;; These functions will change soon!!!
+;;
+(defun      code-etv2 (&optional    envvar dir outer)
+  (eval (ee-read      (ee-code-etv2 envvar dir outer))))
+(defun find-code-etv2 (&optional    envvar dir outer)
+  (find-estring-elisp (ee-code-etv2 envvar dir outer)))
+(defun   ee-code-etv2 (&optional    envvar dir outer)
+  (setq envvar (or envvar "{envvar}"))
+  (setq dir    (or dir    "{dir}"))
+  (setq outer  (or outer  "{outer}"))
+  (ee-template0 "\
+;; (find-code-etv2 \"{envvar}\" \"{dir}\" \"{outer}\")
+;;      (code-etv2 \"{envvar}\" \"{dir}\" \"{outer}\")
+;; (find-efunction 'find-code-etv2)
+;;
+;; See: http://anggtwu.net/Show2.html
+;;      http://anggtwu.net/LUA/Show2.lua.html
+;;             (find-angg \"LUA/Show2.lua\")
+;; Try: (find-code-etv2 \"SHOW2DIR\" \"/tmp/\" \"Show2\")
+;;      (find-code-etv2 \"ELPEGDIR\" \"~/LUA/\" \"Show2-outer2\")
+;;      (find-code-etv2)
+;;
+(defun tb  () (interactive) (find-ebuffer (eepitch-target-buffer)))
+(defun v   () (interactive) (find-pdftools-page \"{dir}{outer}.pdf\"))
+(defun etv () (interactive) (find-wset \"13o2_o_o\" '(tb) '(v)))
+(setenv \"{envvar}\" (ee-expand \"{dir}\"))
+"))
+
+
 
 
 (provide 'eev-tlinks)
diff --git a/eev-videolinks.el b/eev-videolinks.el
index dae990583d..3d78750117 100644
--- a/eev-videolinks.el
+++ b/eev-videolinks.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version:    20230127
+;; Version:    20230422
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://anggtwu.net/eev-current/eev-videolinks.el>
@@ -1118,6 +1118,7 @@ For more info on this particular video, run:
 ;; (ee-1stclassvideos-field    "eev2021" :mp4)
 ;; (ee-1stclassvideos-field    "eev2021" :yt)
 ;; (ee-1stclassvideos-mp4stem  "eev2021")
+;; (ee-1stclassvideos-pagestem "eev2022py")
 ;; (ee-1stclassvideos-localmp4 "eev2021")
 ;; (ee-1stclassvideos-mp4found "eev2021")
 ;; (ee-1stclassvideos-hash     "eev2021")
@@ -1130,6 +1131,10 @@ For more info on this particular video, run:
   (let ((mp4 (ee-1stclassvideos-field c :mp4)))
      (replace-regexp-in-string "^.*/\\([^/]*\\)\\.mp4$" "\\1" mp4)))
 
+(defun ee-1stclassvideos-pagestem (c)
+  (let ((url (ee-1stclassvideos-field c :page)))
+     (replace-regexp-in-string "^.*/\\([^/]*\\)\\.html$" "\\1" url)))
+
 (defun ee-1stclassvideos-hash (c)
   (let ((yt (ee-1stclassvideos-field c :yt)))
      (replace-regexp-in-string "^.*=\\([^=]*\\)$" "\\1" yt)))