[elpa] externals/eev cb11fd45dd: New video: "2024pianoroll" ("Piano roll macros").

[ELPA Syncer]

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

    New video: "2024pianoroll" ("Piano roll macros").
---
 ChangeLog         |  5 +++++
 VERSION           |  4 ++--
 eev-blinks.el     | 20 +++++++++++++++-----
 eev-intro.el      |  6 ++----
 eev-videolinks.el | 17 ++++++++++++++++-
 5 files changed, 40 insertions(+), 12 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 5943e795c0..c7af763e20 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2024-12-31  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eev-videolinks.el (ee-1stclassvideos-info): new first-class
+       video: "2024pianoroll".
+
 2024-12-23  Eduardo Ochs  <eduardoochs@gmail.com>
 
        * eev-videolinks.el (ee-1stclassvideos-info): registered two new
diff --git a/VERSION b/VERSION
index ca1818a5c7..25011b1915 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Mon Dec 23 03:58:02 GMT 2024
-Mon Dec 23 00:58:02 -03 2024
+Wed Jan  1 00:55:01 GMT 2025
+Tue Dec 31 21:55:01 -03 2024
diff --git a/eev-blinks.el b/eev-blinks.el
index 661e48d965..4e1b358a57 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:    20241214
+;; Version:    20241227
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://anggtwu.net/eev-current/eev-blinks.el>
@@ -135,6 +135,8 @@ An example: (eek \"C-x 4 C-h\")"
 (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'.
+If STR is a string, convert it to a list with `ee-eek2';
+If STR is already a list, push it unchanged.
 An example: (eek2 \"C-x 4 C-h\")"
   (interactive "sKeys: ")
   (setq unread-command-events
@@ -145,11 +147,19 @@ An example: (eek2 \"C-x 4 C-h\")"
 ;;      https://lists.gnu.org/archive/html/eev/2024-12/msg00003.html
 ;; Compare: '((t . ?\C-h) (t . ?i))
 ;;           (ee-eek2 "C-h i")
+;;           (ee-eek2 "<f8>")
 ;;           (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)))
+(defun ee-eek2 (stringorlist &optional norecord)
+  "Convert STRINGORLIST to a list of keyboard events.
+If STRINGORLIST is a string, do something like this:\n
+  (ee-eek2 \"C-h i\")
+  ;; --> ((t . ?\\C-h) (t . ?i))\n
+If STRINGORLIST is already a list, return it unchanged.
+This is an internal function used by `eek2'."
+  (if (listp stringorlist)
+      stringorlist
+    (cl-loop for ev in (listify-key-sequence (read-kbd-macro stringorlist))
+            collect (cons (or norecord t) ev))))
 
 
 
diff --git a/eev-intro.el b/eev-intro.el
index f47e71327d..bf1a364bba 100644
--- a/eev-intro.el
+++ b/eev-intro.el
@@ -10975,11 +10975,9 @@ the right way:
 
   (find-eev \"eev-qrl.el\")
 
-That file is not loaded by default. To make Emacs always load it,
-add these lines to your ~/.emacs:
+Note that `qrl' is an alias:
 
-;; From: (find-templates-intro \"4. Adding meat\")
-(require 'eev-qrl)     ; (find-eev \"eev-qrl.el\")
+  (find-eev \"eev-aliases.el\" \"query-replace-list\")
 
 
 
diff --git a/eev-videolinks.el b/eev-videolinks.el
index b613402bda..8890a30fbc 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:    20241223
+;; Version:    20241231
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://anggtwu.net/eev-current/eev-videolinks.el>
@@ -84,6 +84,7 @@
 ;;   «.2024butler»                     (to "2024butler")
 ;;   «.2024trywithasexp»               (to "2024trywithasexp")
 ;;   «.2024bashtest»                   (to "2024bashtest")
+;;   «.2024pianoroll»                  (to "2024pianoroll")
 ;;   «.eev2024»                                (to "eev2024")
 ;; «.ee-1stclassvideos-field»          (to "ee-1stclassvideos-field")
 ;; «.second-class-videos»              (to "second-class-videos")
@@ -992,6 +993,20 @@ of the videos and play them with mpv. Compare with
      :subs    ".vtt"
      :comment "An introduction to test blocks to people who are afraid of 
them.")
     ;;
+    ;; «2024pianoroll»  (to ".2024pianoroll")
+    ;; Play: (find-2024pianorollvideo "0:00")
+    ;; Subs: (find-2024pianorollhsubs "0:00")
+    ("2024pianoroll"
+     :title "Piano roll macros"
+     :mp4   "http://anggtwu.net/eev-videos/2024-piano-roll-macros.mp4";
+     :yt    "http://www.youtube.com/watch?v=8vhynSPXJos";
+     :page  "http://anggtwu.net/2024-piano-roll-macros.html";
+     :hsubs "http://anggtwu.net/2024-piano-roll-macros.html#0:00";
+     :date    "2024dec31"
+     :length  "17:05"
+     :subs    ".vtt"
+     :comment "This video is about keyboard macros AND elisp macros!")
+    ;;
     ;; «eev2024»  (to ".eev2024")
     ;; Play: (find-eev2024video "0:00")
     ;; Subs: (find-eev2024hsubs "0:00")