branch: externals/eev
commit c999fc0085ace3868e83cc508b941fc7361f67c3
Author: Eduardo Ochs <eduardoo...@gmail.com>
Commit: Eduardo Ochs <eduardoo...@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 <eduardoo...@gmail.com>
+
+ * eev-blinks.el (eek2, ee-eek2): new functions.
+
+2024-12-10 Eduardo Ochs <eduardoo...@gmail.com>
+
+ * eev-tlinks.el (find-yttranscript-links): small changes.
+
2024-12-07 Eduardo Ochs <eduardoo...@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 <eduardoo...@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoo...@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.")
))
