[elpa] externals/eev a53d2953a1 2/2: Small changes in (find-subed-mpv-links).

[ELPA Syncer]

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

    Small changes in (find-subed-mpv-links).
---
 ChangeLog     |  3 +++
 VERSION       |  4 ++--
 eev-blinks.el |  5 ++---
 eev-tlinks.el | 47 +++++++++++++++++++++++++++--------------------
 4 files changed, 34 insertions(+), 25 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 55f0914e17..ef6bcab18a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2024-05-12  Eduardo Ochs  <eduardoochs@gmail.com>
 
+       * eev-blinks.el (ee-buffer-local-variables): use
+       `buffer-local-variables'.
+
        * eev-tlinks.el (find-subed-mpv-links): new function.
 
        * eev-testblocks.el (ee-insert-test-subed-vtt-mode): new function.
diff --git a/VERSION b/VERSION
index 1db9011e1d..da82bcc82e 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Sun May 12 05:02:07 GMT 2024
-Sun May 12 02:02:07 -03 2024
+Sun May 12 06:44:37 GMT 2024
+Sun May 12 03:44:37 -03 2024
diff --git a/eev-blinks.el b/eev-blinks.el
index c06e3cdcb8..2718d70965 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:    20240308
+;; Version:    20240512
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://anggtwu.net/eev-current/eev-blinks.el>
@@ -1585,8 +1585,7 @@ Example: (find-ekeymapdescr (ee-minor-mode-keymap 
'eev-mode))"
 
 (defun ee-buffer-local-variables ()
   "Like `(buffer-local-variables)', but sorts the entries alphabetically."
-  (sort (buffer-local-variables)
-       (lambda (a b) (string< (car a) (car b)))))
+  (ee-sort-pairs (buffer-local-variables)))
 
 ;; Broken? See: (find-efile "international/ccl.el")
 (defun find-eccldump (ccl-code &rest pos-spec-list)
diff --git a/eev-tlinks.el b/eev-tlinks.el
index 05dfbe5ce8..3d97fe822f 100644
--- a/eev-tlinks.el
+++ b/eev-tlinks.el
@@ -5255,21 +5255,24 @@ print({funname}(42))
 
 
 ;; «find-subed-mpv-links»  (to ".find-subed-mpv-links")
-;; Skel: (find-find-links-links-new "subed-mpv" "" "")
+;; Skel: (find-find-links-links-new "subed-mpv" "emacs-width" "ee-buffer-name")
 ;; Test: (find-subed-mpv-links)
 ;;
-(defun find-subed-mpv-links (&rest pos-spec-list)
+
+(defun find-subed-mpv-links (&optional emacs-width &rest pos-spec-list)
 "Visit a temporary buffer containing hyperlinks for subed-mpv."
   (interactive)
-  (apply
-   'find-elinks
-   `((find-subed-mpv-links ,@pos-spec-list)
-     ;; Convention: the first sexp always regenerates the buffer.
-     (find-efunction 'find-subed-mpv-links)
-     (find-efunction 'ee-insert-test-subed-vtt-mode)
-     (find-eevfile "eev-testblocks.el" "ee-insert-test-subed-vtt-mode")
-     ""
-     ,(ee-template0 "\
+  (setq emacs-width (or emacs-width 140))
+  (let* ((ee-buffer-name "{ee-buffer-name}"))
+    (apply
+     'find-elinks
+     `((find-subed-mpv-links ,emacs-width ,@pos-spec-list)
+       (find-subed-mpv-links "{emacs-width}")
+       (find-efunction 'find-subed-mpv-links)
+       (find-efunction 'ee-insert-test-subed-vtt-mode)
+       (find-eevfile "eev-testblocks.el" "ee-insert-test-subed-vtt-mode")
+       ""
+       ,(ee-template0 "\
 
 1. Get the video
 ================
@@ -5330,21 +5333,25 @@ To load subed from another place, skip the
 
 4. A test block in a .vtt
 =========================
-If everything is right then opening the \"a.vtt\" below with
-the fourth sexp below will put it in subed-vtt-mode. To turn
-`subed-auto-find-video' on or off, run one of the `setq's.
-
-  (setq subed-auto-find-video t)
-  (setq subed-auto-find-video nil)
-  (find-fline \"/tmp/subed-test/\")
-  (find-fline \"/tmp/subed-test/a.vtt\")
+If everything is right then opening the \"a.vtt\" with the
+last sexp below will put it in subed-vtt-mode. Many of the
+sexps below are optional.
+
+ (setq subed-auto-find-video t)
+ (setq subed-auto-find-video nil)
+ (setq subed-mpv-arguments '(\"--osd-level=2\" \"--geometry=320x200-0+0\"))
+ (set-frame-parameter (selected-frame) 'fullscreen 'fullheight)
+ (set-frame-position (selected-frame) 0 0)
+ (set-frame-parameter (selected-frame) 'width {emacs-width})
+ (find-fline \"/tmp/subed-test/\")
+ (find-fline \"/tmp/subed-test/a.vtt\")
 
 Typing `M-x eeit' between two subtitles will insert a big test block
 in the .vtt. To run that test block, just type <f8>s on its red star
 lines.
 ")
      )
-   pos-spec-list))
+   pos-spec-list)))