branch: externals/eev
commit 87efec7c4732d59c622c159b0f06412ef994e64d
Author: Eduardo Ochs <eduardoo...@gmail.com>
Commit: Eduardo Ochs <eduardoo...@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 <eduardoo...@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 <eduardoo...@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 <eduardoo...@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 <eduardoo...@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoo...@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 <eduardoo...@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoo...@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 <eduardoo...@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoo...@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 <eduardoo...@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoo...@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)))
