[elpa] externals/eev c999fc0085: New function: `eek2'.

[ELPA Syncer]

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

    New function: `eek2'.
---
 ChangeLog         |  8 ++++++++
 VERSION           |  4 ++--
 eev-blinks.el     | 25 ++++++++++++++++++++++++-
 eev-tlinks.el     |  1 +
 eev-videolinks.el |  1 +
 5 files changed, 36 insertions(+), 3 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index d0bb3fe57c..f842900022 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2024-12-14  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eev-blinks.el (eek2, ee-eek2): new functions.
+
+2024-12-10  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eev-tlinks.el (find-yttranscript-links): small changes.
+
 2024-12-07  Eduardo Ochs  <eduardoochs@gmail.com>
 
        * eev-videolinks.el (ee-1stclassvideos-info): new video, with
diff --git a/VERSION b/VERSION
index c819181500..6cc69f6a3a 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Sun Dec  8 00:17:18 GMT 2024
-Sat Dec  7 21:17:18 -03 2024
+Sun Dec 15 01:29:20 GMT 2024
+Sat Dec 14 22:29:20 -03 2024
diff --git a/eev-blinks.el b/eev-blinks.el
index 73dffec2ac..661e48d965 100644
--- a/eev-blinks.el
+++ b/eev-blinks.el
@@ -21,7 +21,7 @@
 ;;
 ;; Author:     Eduardo Ochs <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version:    20241017
+;; Version:    20241214
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://anggtwu.net/eev-current/eev-blinks.el>
@@ -42,6 +42,7 @@
 
 
 ;; «.eek»                      (to "eek")
+;; «.eek2»                     (to "eek2")
 ;; «.ee-goto-position»         (to "ee-goto-position")
 ;; «.ee-goto-rest»             (to "ee-goto-rest")
 ;;   «.curved-single-quotes»   (to "curved-single-quotes")
@@ -130,6 +131,28 @@ An example: (eek \"C-x 4 C-h\")"
   (apply 'ee-goto-position pos-spec-list))
 
 
+;; «eek2»  (to ".eek2")
+(defun eek2 (str &optional norecord)
+  "Execute STR as a keyboard macro. See `edmacro-mode' for the exact format.\n
+This is a variant of `eek' that pushes events into `unread-command-events'.
+An example: (eek2 \"C-x 4 C-h\")"
+  (interactive "sKeys: ")
+  (setq unread-command-events
+       (nconc unread-command-events (ee-eek2 str))))
+
+;; See: (find-elnode "Event Input Misc" "Variable: unread-command-events")
+;;      (find-elnode "Event Input Misc" "(no-record . EVENT)")
+;;      https://lists.gnu.org/archive/html/eev/2024-12/msg00003.html
+;; Compare: '((t . ?\C-h) (t . ?i))
+;;           (ee-eek2 "C-h i")
+;;           (ee-eek2 "C-h i" 'no-record)
+(defun ee-eek2 (str &optional norecord)
+  "An internal function used by `eek2'."
+  (cl-loop for ev in (listify-key-sequence (read-kbd-macro str))
+          collect (cons (or norecord t) ev)))
+
+
+
 
 
 ;;;                                                _ _     _       
diff --git a/eev-tlinks.el b/eev-tlinks.el
index 4a3fb6bf74..3ad5957153 100644
--- a/eev-tlinks.el
+++ b/eev-tlinks.el
@@ -4253,6 +4253,7 @@ d       = lambda n: n // 60
 mmss    = lambda n:      \"%d:%02d\" %           (d(n), m(n))
 hhmmss  = lambda n: \"%d:%02d:%02d\" % (d(d(n)),m(d(n)),m(n))
 timestr = lambda n: mmss(n) if n < 3600 else hhmmss(n)
+sexp    = lambda n,text: '%s %s' % (timestr(floor(n)), text)
 sexp    = lambda n,text: '%s(%s \"%s\" \"%s\")' % (p, f, timestr(floor(n)), 
text)
 
 p       = \"% \"
diff --git a/eev-videolinks.el b/eev-videolinks.el
index 7a0b3ec6b6..1f94ada804 100644
--- a/eev-videolinks.el
+++ b/eev-videolinks.el
@@ -956,6 +956,7 @@ of the videos and play them with mpv. Compare with
      :date    "2024dec07"
      :length  "30:33"
      :subs    ".vtt"
+     :index   t
      :comment "A non-technical video about teaching Emacs and eev to Brazilian 
students.")
     ))