[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/eev 5d022a4620 1/2: Bumped the version in eev.el.
|
From: |
ELPA Syncer |
|
Subject: |
[elpa] externals/eev 5d022a4620 1/2: Bumped the version in eev.el. |
|
Date: |
Sun, 7 Jan 2024 03:57:48 -0500 (EST) |
branch: externals/eev
commit 5d022a462045dfd8d7c23da7ee0e696ed84f1531
Author: Eduardo Ochs <eduardoochs@gmail.com>
Commit: Eduardo Ochs <eduardoochs@gmail.com>
Bumped the version in eev.el.
---
ChangeLog | 4 ++++
VERSION | 4 ++--
eev-tlinks.el | 76 +++++++++++++++++++++++++++++++++++------------------------
eev.el | 2 +-
4 files changed, 52 insertions(+), 34 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 25f37b30cb..1d3fc708f1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
2024-01-06 Eduardo Ochs <eduardoochs@gmail.com>
+ * eev-tlinks.el (ee-find-1stclassvideo-do-with-c): new macro.
+ (ee-find-1stclassvideo-links, ee-1stclassvideos-dlsubs): use
+ `ee-find-1stclassvideo-do-with-c'.
+
* eev-videolinks.el (find-2024gitvideo): new function.
(ee-1stclassvideos-info): added an entry for "2024git".
diff --git a/VERSION b/VERSION
index 807d196fc7..084b49aa33 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Sun Jan 7 00:44:29 GMT 2024
-Sat Jan 6 21:44:29 -03 2024
+Sun Jan 7 06:18:41 GMT 2024
+Sun Jan 7 03:18:41 -03 2024
diff --git a/eev-tlinks.el b/eev-tlinks.el
index 0b1129d220..5257cdee4d 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: 20240105
+;; Version: 20240106
;; Keywords: e-scripts
;;
;; Latest version: <http://anggtwu.net/eev-current/eev-tlinks.el>
@@ -3341,25 +3341,36 @@ This function is used by `ee-0x0-upload-region'."
)
pos-spec-list)))
+;; Test: (ee-find-1stclassvideo-do-with-c "eev2021" title)
+(defmacro ee-find-1stclassvideo-do-with-c (c &rest code)
+ "An internal function used by `find-1stclassvideo-links'."
+ `(let* ((c ,c)
+ (title (ee-1stclassvideos-field c :title))
+ (mp4 (ee-1stclassvideos-field c :mp4))
+ (yt (ee-1stclassvideos-field c :yt))
+ (page (ee-1stclassvideos-field c :page))
+ (date (ee-1stclassvideos-field c :date))
+ (length (ee-1stclassvideos-field c :length))
+ (comment (ee-1stclassvideos-field c :comment))
+ (lang (ee-1stclassvideos-field c :lang))
+ (exts (ee-1stclassvideos-field c :subs))
+ (mp4stem (ee-1stclassvideos-mp4stem c))
+ (mp4found (ee-1stclassvideos-mp4found c))
+ (hash (ee-1stclassvideos-hash c))
+ (hassubs exts)
+ )
+ ,@code))
+
;; Test:
;; (find-estring-elisp (ee-find-1stclassvideo-links "eev2021"))
;;
(defun ee-find-1stclassvideo-links (c)
"An internal function used by `find-1stclassvideo-links'."
- (let* ((title (ee-1stclassvideos-field c :title))
- (mp4 (ee-1stclassvideos-field c :mp4))
- (yt (ee-1stclassvideos-field c :yt))
- (page (ee-1stclassvideos-field c :page))
- (date (ee-1stclassvideos-field c :date))
- (length (ee-1stclassvideos-field c :length))
- (comment (ee-1stclassvideos-field c :comment))
- (lang (ee-1stclassvideos-field c :lang))
- (mp4stem (ee-1stclassvideos-mp4stem c))
- (mp4found (ee-1stclassvideos-mp4found c))
- (hash (ee-1stclassvideos-hash c))
- (dlsubs (ee-1stclassvideos-dlsubs c))
- (defun (ee-find-1stclassvideo-defun c mp4stem hash)))
- (ee-template0 "\
+ (ee-find-1stclassvideo-do-with-c
+ c
+ (let* ((dlsubs (ee-1stclassvideos-dlsubs c))
+ (defun (ee-find-1stclassvideo-defun c mp4stem hash)))
+ (ee-template0 "\
;; Title: {title}
;; MP4: {mp4}
;; YT: {yt}
@@ -3398,7 +3409,9 @@ This function is used by `ee-0x0-upload-region'."
;; (find-eev \"eev-videolinks.el\" \"find-{c}video\")
;; (find-efunction 'find-{c}video)
-{defun}")))
+{defun}"))))
+
+
;; Test:
;; (find-estring-elisp (ee-find-1stclassvideo-defun "C" "M" "H"))
@@ -3416,6 +3429,7 @@ For more info on this particular video, run:
(find-1stclassvideo-video \"{c}\" time))
"))
+
;; Tests: (ee-1stclassvideos-dlsubs "2022pict2elua")
;; (find-1stclassvideo-links "2022pict2elua")
;; (ee-1stclassvideos-dlsubs "2021workshop6")
@@ -3424,24 +3438,22 @@ For more info on this particular video, run:
;;
(defun ee-1stclassvideos-dlsubs (c)
"An internal function used by `find-1stclassvideo-links'."
- (let* ((mp4stem (ee-1stclassvideos-mp4stem c))
- (mp4found (ee-1stclassvideos-mp4found c))
- (exts (ee-1stclassvideos-field c :subs))
- (hassubs exts)
- (template00 ";;
+ (ee-find-1stclassvideo-do-with-c
+ c
+ (let* ((template00 ";;
;; You don't have a local copy of this video.
;; To download a local copy, run this:
;; (find-psne-1stclassvideo-links \"{c}\")
;; This video doesn't have subtitles.\n")
- (template01 ";;
+ (template01 ";;
;; You don't have a local copy of this video.
;; To download a local copy of the video with subtitles, run:
;; (find-psne-1stclassvideo-links \"{c}\")
;; or: (find-psne-eevvideo-links \"{mp4stem}\" \"{exts}\")\n")
- (template10 ";;
+ (template10 ";;
;; We have a local copy of this video.
;; This video doesn't have subtitles.\n")
- (template11 ";;
+ (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, or if you
@@ -3451,13 +3463,15 @@ For more info on this particular video, run:
;;
;; LSubs: (find-{c}lsubs \"00:00\")
;; (find-1stclassvideolsubs \"{c}\")\n"))
- (if mp4found
- (if hassubs
- (ee-template0 template11)
- (ee-template0 template10))
- (if hassubs
- (ee-template0 template01)
- (ee-template0 template00)))))
+ (if mp4found
+ (if hassubs
+ (ee-template0 template11)
+ (ee-template0 template10))
+ (if hassubs
+ (ee-template0 template01)
+ (ee-template0 template00))))))
+
+
diff --git a/eev.el b/eev.el
index 242f65232e..2c636173ac 100644
--- a/eev.el
+++ b/eev.el
@@ -6,7 +6,7 @@
;; Package-Requires: ((emacs "24.4"))
;; Keywords: lisp e-scripts
;; URL: http://anggtwu.net/#eev
-;; Version: 20240105
+;; Version: 20240107
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by