[elpa] externals/eev e9b181fa11: Added `find-mpv-links'.

[ELPA Syncer]

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

    Added `find-mpv-links'.
---
 ChangeLog         | 10 +++++++++-
 VERSION           |  4 ++--
 eev-audiovideo.el |  3 ++-
 eev-tlinks.el     | 53 +++++++++++++++++++++++++++++++++++++++++++++++++++--
 eev-videolinks.el |  5 +++--
 5 files changed, 67 insertions(+), 8 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index e8d17aad78..a3c0621abe 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,14 @@
+2022-12-19  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eev-tlinks.el (find-mpv-links): new function.
+
+       * eev-videolinks.el (ee-1stclassvideos-info): added an indication
+       that the video "2021orgfornonusers" (now) has subtitles.
+
 2022-12-18  Eduardo Ochs  <eduardoochs@gmail.com>
 
-       * eev-hlinks.el (ee-libera-bufferp, ee-find-libera-links)
+       * eev-hlinks.el (ee-libera-bufferp, ee-find-libera-links): new
+       functions.
        (ee-fhl-main-program): added an `(:if (ee-libera-bufferp) ...)'.
 
 2022-12-16  Eduardo Ochs  <eduardoochs@gmail.com>
diff --git a/VERSION b/VERSION
index ce852891e1..722f3b31f8 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Mon Dec 19 02:29:52 GMT 2022
-Sun Dec 18 23:29:52 -03 2022
+Tue Dec 20 05:03:12 GMT 2022
+Tue Dec 20 02:03:12 -03 2022
diff --git a/eev-audiovideo.el b/eev-audiovideo.el
index 5e1ab3fc6e..896a282fbd 100644
--- a/eev-audiovideo.el
+++ b/eev-audiovideo.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version:    20220608
+;; Version:    20221219
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-audiovideo.el>
@@ -470,6 +470,7 @@ See: (find-audiovideo-intro \"`eev-avadj-mode'\")"
 ;;;           |_|                                      
 ;;
 ;; «find-mpv-video»  (to ".find-mpv-video")
+;; See: (find-eev "eev-tlinks.el" "find-mpv-links")
 ;;
 (defvar ee-mpv-program "mpv")
 
diff --git a/eev-tlinks.el b/eev-tlinks.el
index a9ad0576f2..f1a8d2b387 100644
--- a/eev-tlinks.el
+++ b/eev-tlinks.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version:    20221203
+;; Version:    20221219
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-tlinks.el>
@@ -137,6 +137,7 @@
 ;; «.find-eejump-links»                        (to "find-eejump-links")
 ;; «.find-kla-links»                   (to "find-kla-links")
 ;; «.find-rstdoc-links»                        (to "find-rstdoc-links")
+;; «.find-mpv-links»                   (to "find-mpv-links")
 
 
 (require 'eev-env)
@@ -1353,6 +1354,7 @@ echo {e} '{url}' >> ~/.psne.log
 # (find-psne-intro \"1. Local copies of files from the internet\")
 # (find-video-links-intro \"5. Local copies\")
 # (find-video-links-intro \"5.1. Subtitles\")
+# http://angg.twu.net/eev-videos.html
 
  (sh-mode)
  (eepitch-shell2)
@@ -3217,6 +3219,9 @@ This function is used by `ee-0x0-upload-region'."
 ;; (find-eev \"eev-videolinks.el\" \"first-class-videos\")
 ;; (find-eev \"eev-videolinks.el\" \"second-class-videos\")
 
+
+;;-- Some super-technical things:
+
 ;; Setup (as a 2nd-class video):
  ' (find-ssr-links     \"{c}\" \"{mp4stem}\" \"{hash}\")
  ' (code-eevvideo      \"{c}\" \"{mp4stem}\" \"{hash}\")
@@ -3274,7 +3279,8 @@ For more info on this particular video, run:
         (template11 ";;
 ;; You have a local copy of this video.
 ;; The upstream copy of this video has subtitles.
-;; If you don't have a local copy of its subtitles, run this:
+;; If you don't have a local copy of its subtitles, or if you
+;; want to update the local copy of the subtitles, run this:
 ;;        (find-psne-1stclassvideo-links \"{c}\")
 ;;    or: (find-psne-eevvideo-links \"{mp4stem}\" \"{exts}\")\n"))
     (if mp4found
@@ -3836,6 +3842,49 @@ N should be either a number or a symbol; SEXP should be 
a sexp."
        pos-spec-list))))
 
 
+;; «find-mpv-links»  (to ".find-mpv-links")
+;; Skel: (find-find-links-links-new "mpv" "" "")
+;; Test: (find-mpv-links)
+;; See: https://lists.gnu.org/archive/html/eev/2022-12/msg00019.html
+;;
+(defun find-mpv-links (&rest pos-spec-list)
+"Visit a temporary buffer containing code for configuring mpv."
+  (interactive)
+  (apply
+   'find-elinks-elisp
+   `((find-mpv-links ,@pos-spec-list)
+     ;; Convention: the first sexp always regenerates the buffer.
+     (find-efunction 'find-mpv-links)
+     ""
+     ,(ee-template0 "\
+;; See:  (find-evariable 'ee-mpv-video-options)
+;;       (find-evardescr 'ee-mpv-video-options)
+;; Idea: use commands like `M-x mf' and `M-x ms', defined below,
+;;       to change, or (sort of) toggle, how eev calls mpv.
+;;       To use this, copy the block below to your init file,
+;;       modifying it to adjust the options and their values.
+
+;; From: (find-mpv-links)
+;; See:  http://angg.twu.net/eev-videos.html#mpv-keys
+
+(defun mf ()
+  \"Make mpv use (real) full screen.\"
+  (interactive)
+  (setq ee-mpv-video-options '(\"--fs\" \"--osd-level=2\")))
+
+(defun ms ()
+  \"Make mpv use a \\\"smaller full screen\\\".\"
+  (interactive)
+  (setq ee-mpv-video-options
+       '(\"--fs\" \"--osd-level=2\"
+         \"--video-margin-ratio-bottom=0.15\"
+         \"--sub-font-size=35\")))
+")
+     )
+   pos-spec-list))
+
+
+
 
 
 (provide 'eev-tlinks)
diff --git a/eev-videolinks.el b/eev-videolinks.el
index 49c4d9e72b..2c00c2f817 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:    20221204
+;; Version:    20221219
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-videolinks.el>
@@ -927,7 +927,8 @@ For more info on this particular video, run:
      :yt    "http://www.youtube.com/watch?v=Eh5Wz9Vh_XM";
      :page  "http://angg.twu.net/2021-org-for-non-users.html";
      :date    "2021dec11"
-     :length  "10:08"
+     :length  "16:36"
+     :subs    ".vtt"
      :comment "On why Org and eev follow opposite principles.")
     ;;
     ;; «2021ffll»  (to ".2021ffll")