[elpa] externals/eev dc209be2c7: Handle video positions better in `M-h M-s'.

[ELPA Syncer]

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

    Handle video positions better in `M-h M-s'.
---
 ChangeLog         | 11 ++++++++++-
 VERSION           |  4 ++--
 eev-tlinks.el     | 18 +++++++++---------
 eev-videolinks.el | 11 ++++++++++-
 4 files changed, 31 insertions(+), 13 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 6ad7ba5135..e027f0c217 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,7 +1,16 @@
+2024-03-08  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eev-tlinks.el (ee-1stclassvideo-basicinfo): small changes.
+
 2024-03-07  Eduardo Ochs  <eduardoochs@gmail.com>
 
+       * eev-videolinks.el (ee-1stclassvideos-hsubsurl): new function.
+
+       * eev-tlinks.el (find-1stclassvideohsubs): use
+       `ee-1stclassvideos-hsubsurl'.
+
        * eev-intro.el (find-eev-levels-intro): added a section about
-       loading only eepitch.el
+       loading only eepitch.el.
 
        * eepitch.el: added two `require's.
 
diff --git a/VERSION b/VERSION
index 1a3945caea..4f03fd7480 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Fri Mar  8 02:33:50 GMT 2024
-Thu Mar  7 23:33:50 -03 2024
+Fri Mar  8 12:59:14 GMT 2024
+Fri Mar  8 09:59:14 -03 2024
diff --git a/eev-tlinks.el b/eev-tlinks.el
index b1643093c8..f70b91348e 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:    20240306
+;; Version:    20240307
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://anggtwu.net/eev-current/eev-tlinks.el>
@@ -3500,19 +3500,22 @@ This function is used by `ee-0x0-upload-region'."
 
 ;; «ee-1stclassvideo-basicinfo»  (to ".ee-1stclassvideo-basicinfo")
 ;; Tests: (find-estring (ee-1stclassvideo-basicinfo "eev2021"))
+;;        (find-estring (ee-1stclassvideo-basicinfo "eev2021" "01:45"))
 ;;        (find-estring (ee-1stclassvideo-basicinfo "2021ssr"))
 ;;
 (defun ee-1stclassvideo-basicinfo (c &optional pos)
   (ee-let*-macro-1stclassvideo-c
    c
-   (let* ((hsubsurl-t0 ";; HSubs: {hsubs}\n")
-         (hsubsurl    (if hsubs (ee-template0 hsubsurl-t0) "")))
+   (let* ((yttime      (if pos (ee-time-to-youtube-time pos) ""))
+         (hsubsurl    (and hsubs (ee-1stclassvideos-hsubsurl c pos)))
+         (hsubsline0  ";; HSubs: {hsubsurl}\n")
+         (hsubsline   (if hsubs (ee-template0 hsubsline0) "")))
      (ee-template0 "\
 ;; Title: {title}
 ;; MP4:   {mp4}
-;; YT:    {yt}
+;; YT:    {yt}{yttime}
 ;; Page:  {page}
-{hsubsurl}\
+{hsubsline}\
 ;; Comment: {comment}
 ;; Date:    {date}
 ;; Length:  {length}
@@ -3691,10 +3694,7 @@ is nil, use the result of (ee-1stclassvideos)."
 
 (defun find-1stclassvideohsubs (c &optional pos &rest pos-spec-list)
   (interactive (list (ee-1stclassvideo-around-point-ask)))
-  (let* ((url0    (ee-1stclassvideos-field c :hsubs))
-         (baseurl (replace-regexp-in-string "#.*$" "" url0))
-        (url1    (if pos (format "%s#%s" baseurl pos) url0)))
-    (find-googlechrome url1)))
+  (find-googlechrome (ee-1stclassvideos-hsubsurl c pos)))
 
 (defun find-1stclassvideodef (c &rest pos-spec-list)
   (interactive (list (ee-1stclassvideo-around-point-ask)))
diff --git a/eev-videolinks.el b/eev-videolinks.el
index 2be9e75ea4..ad3ae299e3 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:    20240220
+;; Version:    20240307
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://anggtwu.net/eev-current/eev-videolinks.el>
@@ -841,6 +841,8 @@ of the videos and play them with mpv. Compare with
 ;; (ee-1stclassvideos-localmp4 "eev2021")
 ;; (ee-1stclassvideos-mp4found "eev2021")
 ;; (ee-1stclassvideos-hash     "eev2021")
+;; (ee-1stclassvideos-hsubsurl "eev2021")
+;; (ee-1stclassvideos-hsubsurl "eev2021" "01:45")
 ;; (find-eev "eev-videolinks.el" "more-info")
 ;;
 (defun ee-1stclassvideos-field (c &optional field)
@@ -867,6 +869,13 @@ of the videos and play them with mpv. Compare with
   (ee-psne-downloaded-p
    (ee-1stclassvideos-field c :mp4)))
 
+(defun ee-1stclassvideos-hsubsurl (c &optional pos)
+  (let ((url0 (ee-1stclassvideos-field c :hsubs)))
+    (if (not pos)
+       url0
+      (let ((baseurl (replace-regexp-in-string "#.*$" "" url0)))
+       (format "%s#%s" baseurl pos)))))
+
 
 
 ;;;                _                                   _     _