[elpa] externals/eev c4a895a4c1: Added `eeklin', `eeklins', and `find-eev2023replsvideo'.

[ELPA Syncer]

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

    Added `eeklin', `eeklins', and `find-eev2023replsvideo'.
---
 ChangeLog         | 11 ++++++++++
 VERSION           |  4 ++--
 eev-intro.el      | 22 +++++++++++---------
 eev-kla.el        | 61 ++++++++++++++++++++++++++++++++++++++++++++++---------
 eev-tlinks.el     |  5 ++++-
 eev-videolinks.el | 26 +++++++++++++++++++++++-
 6 files changed, 105 insertions(+), 24 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index fd5b97bcaf..588610c93f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,14 @@
+2023-12-03  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eev-videolinks.el (find-eev2023replsvideo): new function.
+       (ee-1stclassvideos-info): added an entry for "eev2023repls".
+
+2023-12-02  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eev-kla.el (ee-find-einfo-link, ee-find-eintro-link)
+       (ee-kl-sexp-klin, eeklin, eeklins): new functions.
+       (klin, klins): new aliases - suggested but commented out.
+
 2023-11-06  Eduardo Ochs  <eduardoochs@gmail.com>
 
        * eev-tlinks.el (ee-code-show2): rewritten.
diff --git a/VERSION b/VERSION
index bf271a1b6c..6eac214005 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Tue Nov  7 01:10:36 GMT 2023
-Mon Nov  6 22:10:36 -03 2023
+Sun Dec  3 03:15:06 GMT 2023
+Sun Dec  3 00:15:06 -03 2023
diff --git a/eev-intro.el b/eev-intro.el
index 667075e6da..160be97086 100644
--- a/eev-intro.el
+++ b/eev-intro.el
@@ -14951,15 +14951,17 @@ In the other examples of this tutorial I will suppose 
that you
 have run the `defalias'es below:
 
   ;; From: (find-kla-intro \"4. Aliases\")
-  (defalias 'kla  'eekla)
-  (defalias 'kla0 'eekla0)
-  (defalias 'klas 'eeklas)
-  (defalias 'klf  'eeklf)
-  (defalias 'klfs 'eeklfs)
-  (defalias 'klt  'eeklt)
-  (defalias 'klts 'eeklts)
-  (defalias 'kli  'ee-kl-insert)
-  (defalias 'kla2 'eekla2)
+  (defalias 'kla   'eekla)
+  (defalias 'kla0  'eekla0)
+  (defalias 'klas  'eeklas)
+  (defalias 'klf   'eeklf)
+  (defalias 'klfs  'eeklfs)
+  (defalias 'klt   'eeklt)
+  (defalias 'klts  'eeklts)
+  (defalias 'klin  'eeklin)
+  (defalias 'klins 'eeklins)
+  (defalias 'kli   'ee-kl-insert)
+  (defalias 'kla2  'eekla2)
 
 To make these aliases permanent, copy them to your ~/.emacs.
 Without these aliases everything in eev-kla.el will still work,
@@ -16332,7 +16334,7 @@ Elisp objects include:
   lists, like (6 20), (* 2 3), and (+ (* 2 3) (* 4 5)).
 
 The ones listed above are the only ones that we will treat in this
-introduction. For more on the other types of list objects, see:
+introduction. For more on the other types of lisp objects, see:
 
   (find-elnode \"Lisp Data Types\")
   (find-elnode \"Programming Types\")
diff --git a/eev-kla.el b/eev-kla.el
index 398a25b749..eafe2b1383 100644
--- a/eev-kla.el
+++ b/eev-kla.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version:    20230513
+;; Version:    20231202
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://anggtwu.net/eev-current/eev-kla.el>
@@ -39,6 +39,7 @@
 ;; «.ee-kl-r-c-d»              (to "ee-kl-r-c-d")
 ;; «.shorter-fnames»           (to "shorter-fnames")
 ;; «.generate-sexps»           (to "generate-sexps")
+;; «.generate-sexps-klin»      (to "generate-sexps-klin")
 ;; «.ee-kl-kill»               (to "ee-kl-kill")
 ;; «.kill-sexps»               (to "kill-sexps")
 ;; «.ee-kl-insert»             (to "ee-kl-insert")
@@ -390,6 +391,33 @@ If (ee-kl-lrcds FNAME) doesn't return any matching 
`lrcd's, return nil."
   (list 'to anchor region))
 
 
+;; «generate-sexps-klin»  (to ".generate-sexps-klin")
+;; See: (find-eev "eev-hlinks.el" "hprog")
+;;      (find-efunction 'ee-find-info-links)
+;;      (find-efunction 'ee-find-intro-links)
+;;
+(defun ee-find-einfo-link (str)
+  "An internal function used by `ee-kl-sexp-klin'."
+  (let ((pos-spec-list (if str (list str))))
+    (if (ee-info-shortp)
+       `(,(ee-info-shortf) ,(ee-info-node) ,@pos-spec-list)
+      `(find-node ,(ee-info-fullnode),@pos-spec-list))))
+
+(defun ee-find-eintro-link (str)
+  "An internal function used by `ee-kl-sexp-klin'."
+  (let* ((stem (ee-intro-stem))
+        (find-xxx-intro (ee-intern "find-%s-intro" stem))
+        (pos-spec-list (if str (list str))))
+    `(,find-xxx-intro ,@pos-spec-list)))
+
+(defun ee-kl-sexp-klin (&optional str)
+  "<K>ill <l>ink to a <in>fo or <in>tro - make sexp."
+  (cond ((ee-info-bufferp)  (ee-find-einfo-link  str))
+       ((ee-intro-bufferp) (ee-find-eintro-link str))
+       (t (error "Not in info or in an intro!"))))
+
+
+
 
 ;;;                  _    _       _    _ _ _ 
 ;;;   ___  ___      | | _| |     | | _(_) | |
@@ -468,6 +496,17 @@ Put in the kill ring a link to the preceding anchor."
   (interactive)
   (ee-kl-kill (ee-kl-sexp-klts)))
 
+(defun eeklin ()
+  "<K>ill <l>ink to <in>fo or <in>tro."
+  (interactive)
+  (ee-kl-kill (ee-kl-sexp-klin nil)))
+
+(defun eeklins ()
+  "<K>ill <l>ink to <in>fo or <in>tro and a <s>tring."
+  (interactive)
+  (ee-kl-kill (ee-kl-sexp-klin (ee-kl-region))))
+
+
 
 
 ;;;                  _    _       _                     _   
@@ -560,15 +599,17 @@ When not at BOL, move to the beginning of the next line."
 ;; «aliases»  (to ".aliases")
 ;; See: (find-kla-intro "4. Aliases")
 ;; I use these aliases:
-;; (defalias 'kla  'eekla)
-;; (defalias 'kla0 'eekla0)
-;; (defalias 'klas 'eeklas)
-;; (defalias 'klf  'eeklf)
-;; (defalias 'klfs 'eeklfs)
-;; (defalias 'klt  'eeklt)
-;; (defalias 'klts 'eeklts)
-;; (defalias 'kli  'ee-kl-insert)
-;; (defalias 'kla2 'eekla2)
+;; (defalias 'kla   'eekla)
+;; (defalias 'kla0  'eekla0)
+;; (defalias 'klas  'eeklas)
+;; (defalias 'klf   'eeklf)
+;; (defalias 'klfs  'eeklfs)
+;; (defalias 'klt   'eeklt)
+;; (defalias 'klts  'eeklts)
+;; (defalias 'klin  'eeklin)
+;; (defalias 'klins 'eeklins)
+;; (defalias 'kli   'ee-kl-insert)
+;; (defalias 'kla2  'eekla2)
 
 (provide 'eev-kla)
 
diff --git a/eev-tlinks.el b/eev-tlinks.el
index a008ed9126..25ff6ee26c 100644
--- a/eev-tlinks.el
+++ b/eev-tlinks.el
@@ -4148,7 +4148,10 @@ cd     /tmp/wget-recursive/
 tar              -cvf /tmp/wget-recursive.tar .
 tar -C $S/https/ -xvf /tmp/wget-recursive.tar
 
-# (find-fline \"{lurl}\")
+# (find-fline     \"{lurl}\")
+# (find-sh-at-dir \"{lurl}\" \"find * | sort\")
+# (find-sh \"find /tmp/wget-recursive/ | sort\")
+# (find-sh \"find {lurl} | sort\")
 ")
        )
      pos-spec-list)))
diff --git a/eev-videolinks.el b/eev-videolinks.el
index 3d78750117..a5a2dc6383 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:    20230422
+;; Version:    20231203
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://anggtwu.net/eev-current/eev-videolinks.el>
@@ -71,6 +71,7 @@
 ;;   «.find-2022tikzvideo»             (to "find-2022tikzvideo")
 ;;   «.find-eev2022klavideo»           (to "find-eev2022klavideo")
 ;;   «.find-eev2022pyvideo»            (to "find-eev2022pyvideo")
+;;   «.find-eev2023replsvideo»         (to "find-eev2023replsvideo")
 ;; «.more-info»                                (to "more-info")
 ;; «.ee-1stclassvideos-info»           (to "ee-1stclassvideos-info")
 ;;   «.eev2019»                                (to "eev2019")
@@ -104,6 +105,7 @@
 ;;   «.2022tikz»                       (to "2022tikz")
 ;;   «.eev2022kla»                     (to "eev2022kla")
 ;;   «.eev2022py»                      (to "eev2022py")
+;;   «.eev2023repls»                   (to "eev2023repls")
 ;; «.ee-1stclassvideos-field»          (to "ee-1stclassvideos-field")
 ;; «.second-class-videos»              (to "second-class-videos")
 ;;   «.code-eevvideo»                  (to "code-eevvideo")
@@ -662,6 +664,16 @@ For more info on this particular video, run:
   (interactive)
   (find-1stclassvideo-video "eev2022py" time))
 
+;; «find-eev2023replsvideo»  (to ".find-eev2023replsvideo")
+;; Info: (find-1stclassvideo-links "eev2023repls")
+;; Play: (find-eev2023replsvideo "0:00")
+(defun find-eev2023replsvideo (&optional time &rest rest)
+  "Play one of the first-class videos of eev starting at TIME.
+For more info on this particular video, run:
+  (find-1stclassvideo-links \"eev2023repls\")"
+  (interactive)
+  (find-1stclassvideo-video "eev2023repls" time))
+
 
 
 
@@ -1104,6 +1116,18 @@ For more info on this particular video, run:
      :subs    ".vtt"
      :length  "14:03"
      :comment "A video about eev-rstdoc.el.")
+    ;;
+    ;; «eev2023repls»  (to ".eev2023repls")
+    ;; Play: (find-eev2023replsvideo "0:00")
+    ;; Index: (find-1stclassvideoindex "eev2023repls")
+    ("eev2023repls"
+     :title "REPLs in strange places: Lua, LaTeX, LPeg, LPegRex, TikZ (@ 
EmacsConf 2023)"
+     :mp4   "http://anggtwu.net/eev-videos/emacsconf2023-repls.mp4";
+     :yt    "http://www.youtube.com/watch?v=IDBQo_YYfA8";
+     :page  "http://anggtwu.net/emacsconf2023.html";
+     :date    "2023dec02"
+     :length  "59:11"
+     :comment "My presentation at the EmacsConf2023.")
     ))