[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/eev b25aa1b3ad: Added `code-youtubevideo'.
From: |
ELPA Syncer |
Subject: |
[elpa] externals/eev b25aa1b3ad: Added `code-youtubevideo'. |
Date: |
Fri, 18 Feb 2022 03:57:29 -0500 (EST) |
branch: externals/eev
commit b25aa1b3ad4026e3d1c23d8f5148a8bc3b0ada56
Author: Eduardo Ochs <eduardoochs@gmail.com>
Commit: Eduardo Ochs <eduardoochs@gmail.com>
Added `code-youtubevideo'.
---
ChangeLog | 19 +++++++++++++++++++
VERSION | 4 ++--
eev-blinks.el | 44 +++++++++++++++++++++++---------------------
eev-hydras.el | 9 +++++++--
eev-plinks.el | 21 +++++++++++++++++++--
eev-tlinks.el | 41 ++++++++++++++++++++++++++++++++++-------
eev-videolinks.el | 54 +++++++++++++++++++++++++++++++++++++++++++++++++++++-
eev.el | 2 +-
8 files changed, 158 insertions(+), 36 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 77020d68c5..ab0b4ae558 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,22 @@
+2022-02-18 Eduardo Ochs <eduardoochs@gmail.com>
+
+ * eev-videolinks.el (code-youtubevideo, find-code-youtubevideo)
+ (ee-code-youtubevideo): new functions.
+
+ * eev-tlinks.el (find-youtubedl-links): use `code-youtubevideo'.
+
+2022-02-15 Eduardo Ochs <eduardoochs@gmail.com>
+
+ * eev-tlinks.el (find-1stclassvideodef): new function.
+
+2022-02-14 Eduardo Ochs <eduardoochs@gmail.com>
+
+ * eev-tlinks.el (find-1stclassvideoindex): new function.
+ (ee-find-1stclassvideo-links): use `find-1stclassvideoindex'.
+
+ * eev-plinks.el (find-anggwget, find-anggwgeta)
+ (find-anggwget-elisp, find-anggwgeta-elisp): new function.
+
2022-02-13 Eduardo Ochs <eduardoochs@gmail.com>
* eev-videolinks.el (find-oficina20210video): new function.
diff --git a/VERSION b/VERSION
index d6e64cce75..090b15fa03 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Sun Feb 13 07:50:10 GMT 2022
-Sun Feb 13 04:50:10 -03 2022
+Fri Feb 18 08:16:14 GMT 2022
+Fri Feb 18 05:16:14 -03 2022
diff --git a/eev-blinks.el b/eev-blinks.el
index 282d3faf9d..cc732b7e5e 100644
--- a/eev-blinks.el
+++ b/eev-blinks.el
@@ -761,28 +761,30 @@ newlines, as \"big strings\". This is a bit childish, I
know..."
;; (find-clnode "Structures" "cl-defstruct")
;; https://lists.gnu.org/archive/html/help-gnu-emacs/2021-06/msg00177.html
;;
-;; (find-epp (macroexpand ' (cl-defstruct mypoint x y) ))
-;;
-;; (cl-defstruct mypoint x y)
-;; (cl-defstruct (mypoint-colored (:include point)) color)
-;;
-;; (setq myp (make-mypoint :x 3 :y 4))
-;; (setq myp (make-mypoint-colored :x 3 :y 4))
-;; (setq myp (make-mypoint-colored :x 3 :y 4 :color "green"))
-;;
-;; (ee-struct-class myp)
-;; (ee-struct-slot-names myp)
-;; (ee-struct-slot-names+ myp)
-;; (ee-struct-index-table myp)
-;; (find-ehashtable (ee-struct-index-table myp))
-;; (gethash 'x (ee-struct-index-table myp))
-;; (gethash 'y (ee-struct-index-table myp))
-;; (gethash 'color (ee-struct-index-table myp))
-;; myp
-;; (ee-struct-to-string myp)
+;; Test:
;;
-;; (find-estruct myp)
-;; (find-estruct (ee-struct-class myp))
+;; (find-epp (macroexpand ' (cl-defstruct mypoint x y) ))
+;;
+;; (cl-defstruct mypoint x y)
+;; (cl-defstruct (mypoint-colored (:include point)) color)
+;;
+;; (setq myp (make-mypoint :x 3 :y 4))
+;; (setq myp (make-mypoint-colored :x 3 :y 4))
+;; (setq myp (make-mypoint-colored :x 3 :y 4 :color "green"))
+;;
+;; (ee-struct-class myp)
+;; (ee-struct-slot-names myp)
+;; (ee-struct-slot-names+ myp)
+;; (ee-struct-index-table myp)
+;; (find-ehashtable (ee-struct-index-table myp))
+;; (gethash 'x (ee-struct-index-table myp))
+;; (gethash 'y (ee-struct-index-table myp))
+;; (gethash 'color (ee-struct-index-table myp))
+;; myp
+;; (ee-struct-to-string myp)
+;;
+;; (find-estruct myp)
+;; (find-estruct (ee-struct-class myp))
;;
;; WARNING: this is a quick hack.
;; THANKS: to pjb from #emacs.
diff --git a/eev-hydras.el b/eev-hydras.el
index 4d7698c770..572563ab13 100644
--- a/eev-hydras.el
+++ b/eev-hydras.el
@@ -38,8 +38,13 @@
;; (find-refining-intro "5. Pointing to anchors")
;; (find-refining-intro "5. Pointing to anchors" "but I don't touch-type")
;;
-;; It depends on the package "hydra" (from ELPA).
-;; To learn how this works, load this file and run this tutorial - i.e.:
+;; It depends on the package "hydra" (from ELPA). You can install it
+;; with `M-x list-packages', or with:
+;;
+;; (find-epackage-links 'hydra "hydra" t)
+;;
+;; To learn how this experimental feature works, load this file and
+;; run its tutorial - i.e., execute these two sexps:
;;
;; (require 'eev-hydras)
;; (find-eev-index-edit-intro)
diff --git a/eev-plinks.el b/eev-plinks.el
index e3253ae1df..894e863caf 100644
--- a/eev-plinks.el
+++ b/eev-plinks.el
@@ -1,6 +1,6 @@
;;; eev-plinks.el -- elisp hyperlinks to invoke external processes. -*-
lexical-binding: nil; -*-
-;; Copyright (C) 2012-2021 Free Software Foundation, Inc.
+;; Copyright (C) 2012-2022 Free Software Foundation, Inc.
;;
;; This file is part of GNU eev.
;;
@@ -19,7 +19,7 @@
;;
;; Author: Eduardo Ochs <eduardoochs@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version: 20211021
+;; Version: 20220214
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-plinks.el>
@@ -414,6 +414,23 @@ If wget can't download URL then this function runs
`error'."
;; (find-wget-elisp "http://angg.twu.net/eev-current/eev-plinks.el"
"find-wget")
;; (find-wgeta-elisp "http://angg.twu.net/eev-current/eev-plinks.el"
"find-wget")
+(defun find-anggwget (fname &rest pos-spec-list)
+ "See `find-wget' and this: (find-angg-es-links)"
+ (apply 'find-wget (concat "http://angg.twu.net/" fname) pos-spec-list))
+
+(defun find-anggwgeta (fname &rest pos-spec-list)
+ "See `find-wgeta' and this: (find-angg-es-links)"
+ (apply 'find-wgeta (concat "http://angg.twu.net/" fname) pos-spec-list))
+
+(defun find-anggwget-elisp (fname &rest pos-spec-list)
+ "See `find-wget-elisp' and this: (find-angg-es-links)"
+ (apply 'find-wget-elisp (concat "http://angg.twu.net/" fname) pos-spec-list))
+
+(defun find-anggwgeta-elisp (fname &rest pos-spec-list)
+ "See `find-wgeta-elisp' and this: (find-angg-es-links)"
+ (apply 'find-wgeta-elisp (concat "http://angg.twu.net/" fname)
pos-spec-list))
+
+
diff --git a/eev-tlinks.el b/eev-tlinks.el
index f899c82b39..971212ab33 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: 20220212
+;; Version: 20220218
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-tlinks.el>
@@ -114,6 +114,9 @@
;; «.ee-use-red-bullets» (to "ee-use-red-bullets")
;; «.find-angg-es-links» (to "find-angg-es-links")
;; «.find-1stclassvideo-links» (to "find-1stclassvideo-links")
+;; «.find-1stclassvideoindex» (to "find-1stclassvideoindex")
+;; «.find-1stclassvideodef» (to "find-1stclassvideodef")
+;; «.find-1stclassvideos» (to "find-1stclassvideos")
;; «.find-advicebefore-links» (to "find-advicebefore-links")
@@ -1002,6 +1005,7 @@ emacs -fg bisque -bg black
eev-readme.el
(setq ee-youtubedl-dir ,ee-youtubedl-dir)
""
(find-audiovideo-intro "6. Youtube-dl")
+ (find-eev "eev-tlinks.el" "ee-youtubedl-command")
""
,(ee-template0 "\
(eepitch-shell2)
@@ -1020,7 +1024,7 @@ cd {dir}
{ee-youtubedl-command} -f 18 --restrict-filenames --all-subs
'http://www.youtube.com/watch?v={hash}'
{ee-youtubedl-command} --restrict-filenames --all-subs
'http://www.youtube.com/watch?v={hash}'
-# (find-es \"video\" \"youtube-dl\")
+# Play the local copy:
# (find-fline \"{dir}\" \"{hash}\")
# (find-fline \"{dir}\" \"{title}-{hash}\")
# (find-fline \"{dir}\" \"{title}-{hash}{ext-}\")
@@ -1031,6 +1035,11 @@ cd {dir}
# Error messages (for the player):
# (find-ebuffer \"*Messages*\")
+
+# Play on youtube:
+# (find-youtube-video \"{hash}\" \"0:00\")
+# (code-youtubevideo \"{stem}\" \"{hash}\" \"{title}\")
+# (find-{stem}video \"0:00\")
")
)
pos-spec-list))
@@ -2791,12 +2800,14 @@ This function is used by `ee-0x0-upload-region'."
;; Length: {length}
;;
;; Play: (find-{c}video \"0:00\")
-;; Info: (find-eev \"eev-videolinks.el\" \"{c}\")
+;; Info: (find-1stclassvideodef \"{c}\")
+;; (find-eev \"eev-videolinks.el\" \"{c}\")
;; (find-1stclassvideo-links \"{c}\")
;;
-;; Index: http://angg.twu.net/.emacs.videos.html#{c}
-;; (find-angg \".emacs.videos\" \"{c}\")
-;; (find-angg-es-links)
+;; Index: (find-1stclassvideoindex \"{c}\")
+;; http://angg.twu.net/.emacs.videos.html#{c}
+;; (find-angg \".emacs.videos\" \"{c}\")
+;; (find-angg-es-links)
;; See:
;; (find-video-links-intro \"9. First-class videos\")
@@ -2825,7 +2836,23 @@ For more info on this particular video, run:
(find-eev-video \"{mp4stem}\" \"{hash}\" time))
")))
-;; Try: (find-1stclassvideos)
+
+;; «find-1stclassvideoindex» (to ".find-1stclassvideoindex")
+;; «find-1stclassvideodef» (to ".find-1stclassvideodef")
+;; Tests: (find-1stclassvideoindex "2022findeevangg")
+;; (find-1stclassvideoindex "2022findelispintro")
+;; (find-1stclassvideodef "2022findelispintro")
+;;
+(defun find-1stclassvideoindex (c &rest pos-spec-list)
+ (interactive (list (ee-1stclassvideo-around-point-ask)))
+ (apply 'find-anggwgeta-elisp ".emacs.videos" c pos-spec-list))
+
+(defun find-1stclassvideodef (c &rest pos-spec-list)
+ (interactive (list (ee-1stclassvideo-around-point-ask)))
+ (apply 'find-eev "eev-videolinks.el" c pos-spec-list))
+
+;; «find-1stclassvideos» (to ".find-1stclassvideos")
+;; Test: (find-1stclassvideos)
;;
(defun find-1stclassvideos (&rest rest)
"Visit a temporary buffer with a list of all first-class videos of eev."
diff --git a/eev-videolinks.el b/eev-videolinks.el
index 1dfb57fb09..5345445fdc 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: 20220213
+;; Version: 20220218
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-videolinks.el>
@@ -91,6 +91,7 @@
;; «.ee-1stclassvideos-field» (to "ee-1stclassvideos-field")
;; «.second-class-videos» (to "second-class-videos")
;; «.code-eevvideo» (to "code-eevvideo")
+;; «.code-youtubevideo» (to "code-youtubevideo")
;;; Commentary:
@@ -573,6 +574,7 @@ For more info on this particular video, run:
'(;;
;; «eev2019» (to ".eev2019")
;; Play: (find-eev2019video "0:00")
+ ;; Index: (find-1stclassvideoindex "eev2019")
("eev2019"
:title "How to record executable notes with eev - and how to play them
back"
:mp4 "http://angg.twu.net/eev-videos/emacsconf2019.mp4"
@@ -584,6 +586,7 @@ For more info on this particular video, run:
;;
;; «eev2020» (to ".eev2020")
;; Play: (find-eev2020video "0:00")
+ ;; Index: (find-1stclassvideoindex "eev2020")
("eev2020"
:title "On why most of the best features in eev look like 5-minute hacks"
:mp4 "http://angg.twu.net/eev-videos/emacsconf2020.mp4"
@@ -595,6 +598,7 @@ For more info on this particular video, run:
;;
;; «eev2021» (to ".eev2021")
;; Play: (find-eev2021video "0:00")
+ ;; Index: (find-1stclassvideoindex "eev2021")
("eev2021"
:title "Test blocks"
:mp4 "http://angg.twu.net/eev-videos/emacsconf2021.mp4"
@@ -606,6 +610,7 @@ For more info on this particular video, run:
;;
;; «eev2021b» (to ".eev2021b")
;; Play: (find-eev2021bvideo "0:00")
+ ;; Index: (find-1stclassvideoindex "eev2021b")
("eev2021b"
:title "Test blocks in Dednat6"
:mp4 "http://angg.twu.net/eev-videos/emacsconf2021-dednat6.mp4"
@@ -617,6 +622,7 @@ For more info on this particular video, run:
;;
;; «eevnav» (to ".eevnav")
;; Play: (find-eevnavvideo "0:00")
+ ;; Index: (find-1stclassvideoindex "eevnav")
("eevnav"
:title "How to install eev with M-x list-packages and how to navigate its
tutorials"
:mp4 "http://angg.twu.net/eev-videos/2020-list-packages-eev-nav.mp4"
@@ -628,6 +634,7 @@ For more info on this particular video, run:
;;
;; «eevtempl» (to ".eevtempl")
;; Play: (find-eevtemplvideo "0:00")
+ ;; Index: (find-1stclassvideoindex "eevtempl")
("eevtempl"
:title "Some template-based functions of eev that are not five-minute
hacks"
:mp4 "http://angg.twu.net/eev-videos/2020-some-template-based.mp4"
@@ -639,6 +646,7 @@ For more info on this particular video, run:
;;
;; «eevfherel» (to ".eevfherel")
;; Play: (find-eevfherelvideo "0:00")
+ ;; Index: (find-1stclassvideoindex "eevfherel")
("eevfherel"
:title "How to create hyperlinks to \"here\" with `find-here-links'"
:mp4 "http://angg.twu.net/eev-videos/2020-find-here-links.mp4"
@@ -650,6 +658,7 @@ For more info on this particular video, run:
;;
;; «eevtestbls» (to ".eevtestbls")
;; Play: (find-eevtestblsvideo "0:00")
+ ;; Index: (find-1stclassvideoindex "eevtestbls")
("eevtestbls"
:title "Using test blocks in eev (jan/2021)"
:mp4 "http://angg.twu.net/eev-videos/2021-test-blocks.mp4"
@@ -661,6 +670,7 @@ For more info on this particular video, run:
;;
;; «eevvlinks» (to ".eevvlinks")
;; Play: (find-eevvlinksvideo "0:00")
+ ;; Index: (find-1stclassvideoindex "eevvlinks")
("eevvlinks"
:title "How to use the `[Video links:]' blocks in the `intro's of eev"
:mp4 "http://angg.twu.net/eev-videos/2021-video-links.mp4"
@@ -672,6 +682,7 @@ For more info on this particular video, run:
;;
;; «oficina20210» (to ".oficina20210")
;; Play: (find-oficina20210video "0:00")
+ ;; Index: (find-1stclassvideoindex "oficina20210")
("oficina20210"
:title "Introdução ao Software Livre: Python, Shell, Lua, Emacs, eev"
:mp4 "http://angg.twu.net/eev-videos/2021projeto-de-ensino.mp4"
@@ -684,6 +695,7 @@ For more info on this particular video, run:
;;
;; «oficina2021a» (to ".oficina2021a")
;; Play: (find-oficina2021avideo "0:00")
+ ;; Index: (find-1stclassvideoindex "oficina2021a")
("oficina2021a"
:title "Como instalar o eev no Emacs"
:mp4 "http://angg.twu.net/eev-videos/2021-oficina-1.mp4"
@@ -696,6 +708,7 @@ For more info on this particular video, run:
;;
;; «oficina2021b» (to ".oficina2021b")
;; Play: (find-oficina2021bvideo "0:00")
+ ;; Index: (find-1stclassvideoindex "oficina2021b")
("oficina2021b"
:title "Exercícios de criar e guardar links (1)"
:mp4 "http://angg.twu.net/eev-videos/2021-oficina-2.mp4"
@@ -708,6 +721,7 @@ For more info on this particular video, run:
;;
;; «2021ssr» (to ".2021ssr")
;; Play: (find-2021ssrvideo "0:00")
+ ;; Index: (find-1stclassvideoindex "2021ssr")
("2021ssr"
:title "Short videos about workflows - and how to upload them"
:mp4 "http://angg.twu.net/eev-videos/2021-ssr.mp4"
@@ -719,6 +733,7 @@ For more info on this particular video, run:
;;
;; «2021workshop1» (to ".2021workshop1")
;; Play: (find-2021workshop1video "0:00")
+ ;; Index: (find-1stclassvideoindex "2021workshop1")
("2021workshop1"
:title "The base cases 1 and 2 (workshop 2021-dec-04)"
:mp4 "http://angg.twu.net/eev-videos/2021-workshop-1.mp4"
@@ -730,6 +745,7 @@ For more info on this particular video, run:
;;
;; «2021workshop2» (to ".2021workshop2")
;; Play: (find-2021workshop2video "0:00")
+ ;; Index: (find-1stclassvideoindex "2021workshop2")
("2021workshop2"
:title "Creating a link to a file with a 2-window setting (workshop
2021-dec-04)"
:mp4 "http://angg.twu.net/eev-videos/2021-workshop-2.mp4"
@@ -741,6 +757,7 @@ For more info on this particular video, run:
;;
;; «2021workshop3» (to ".2021workshop3")
;; Play: (find-2021workshop3video "0:00")
+ ;; Index: (find-1stclassvideoindex "2021workshop3")
("2021workshop3"
:title "Material on `M-3 M-e' (workshop 2021-dec-04)"
:mp4 "http://angg.twu.net/eev-videos/2021-workshop-3.mp4"
@@ -752,6 +769,7 @@ For more info on this particular video, run:
;;
;; «2021workshop4» (to ".2021workshop4")
;; Play: (find-2021workshop4video "0:00")
+ ;; Index: (find-1stclassvideoindex "2021workshop4")
("2021workshop4"
:title "Invisible text (workshop 2021-dec-04)"
:mp4 "http://angg.twu.net/eev-videos/2021-workshop-4.mp4"
@@ -763,6 +781,7 @@ For more info on this particular video, run:
;;
;; «2021workshop5» (to ".2021workshop5")
;; Play: (find-2021workshop5video "0:00")
+ ;; Index: (find-1stclassvideoindex "2021workshop5")
("2021workshop5"
:title "Copy from left to right (workshop 2021-dec-04)"
:mp4 "http://angg.twu.net/eev-videos/2021-workshop-5.mp4"
@@ -774,6 +793,7 @@ For more info on this particular video, run:
;;
;; «2021workshop6» (to ".2021workshop6")
;; Play: (find-2021workshop6video "0:00")
+ ;; Index: (find-1stclassvideoindex "2021workshop6")
("2021workshop6"
:title "`find-extra-file-links' (workshop 2021-dec-04)"
:mp4 "http://angg.twu.net/eev-videos/2021-workshop-6.mp4"
@@ -785,6 +805,7 @@ For more info on this particular video, run:
;;
;; «2021orgfornonusers» (to ".2021orgfornonusers")
;; Play: (find-2021orgfornonusersvideo "0:00")
+ ;; Index: (find-1stclassvideoindex "2021orgfornonusers")
("2021orgfornonusers"
:title "Org for Non-Users (2021)"
:mp4 "http://angg.twu.net/eev-videos/2021-org-for-non-users.mp4"
@@ -796,6 +817,7 @@ For more info on this particular video, run:
;;
;; «2021ffll» (to ".2021ffll")
;; Play: (find-2021ffllvideo "0:00")
+ ;; Index: (find-1stclassvideoindex "2021ffll")
("2021ffll"
:title "How I write 5-minute hacks in eev using `M-x
find-find-links-links-new'"
:mp4 "http://angg.twu.net/eev-videos/2021-ffll.mp4"
@@ -807,6 +829,7 @@ For more info on this particular video, run:
;;
;; «2022eevmake0» (to ".2022eevmake0")
;; Play: (find-2022eevmake0video "0:00")
+ ;; Index: (find-1stclassvideoindex "2022eevmake0")
("2022eevmake0"
:title "Using eev to test make(files)"
:mp4 "http://angg.twu.net/eev-videos/2022-eev-make-0.mp4"
@@ -818,6 +841,7 @@ For more info on this particular video, run:
;;
;; «2022findeevangg» (to ".2022findeevangg")
;; Play: (find-2022findeevanggvideo "0:00")
+ ;; Index: (find-1stclassvideoindex "2022findeevangg")
("2022findeevangg"
:title "Running executable notes from http://angg.twu.net/ with find-angg
and find-wget"
:mp4 "http://angg.twu.net/eev-videos/2022-find-eev-angg.mp4"
@@ -829,6 +853,7 @@ For more info on this particular video, run:
;;
;; «2022findelispintro» (to ".2022findelispintro")
;; Play: (find-2022findelispintrovideo "0:00")
+ ;; Index: (find-1stclassvideoindex "2022findelispintro")
("2022findelispintro"
:title "Why eev has a weird elisp tutorial and how to use it"
:mp4 "http://angg.twu.net/eev-videos/2022-find-elisp-intro.mp4"
@@ -951,6 +976,33 @@ For more info on this particular video, run:
+;; «code-youtubevideo» (to ".code-youtubevideo")
+;; This block implements a way to create short hyperlinks to videos
+;; that exist only on youtube. We can regard `code-youtubevideo' as a
+;; variant of `code-eevvideo' that doesn't receive an mp4stem.
+;; TODO: write docs!
+;;
+;; See: (find-eev "eev-audiovideo.el" "find-youtube-video")
+;; Test: (find-code-youtubevideo "punch" "K6LmZ0A1s9U" "Punch and Judy")
+;;
+(defun code-youtubevideo (c hash &rest rest)
+ (eval (ee-read (ee-code-youtubevideo c hash))))
+(defun find-code-youtubevideo (c hash &rest rest)
+ (find-estring-elisp (ee-code-youtubevideo c hash)))
+(defun ee-code-youtubevideo (c hash)
+ (ee-template0 "\
+;; (find-code-youtubevideo \"{c}\" \"{hash}\")
+;; (code-youtubevideo \"{c}\" \"{hash}\")
+;;
+;; Tests: (find-youtubedl-links nil \"TITLE\" \"{hash}\" nil \"{c}\")
+;; (find-youtube-video \"{hash}\" \"0:00\")
+;; (find-{c}video \"0:00\")
+
+(defun find-{c}video (&optional time &rest rest)
+ (interactive)
+ (find-youtube-video \"{hash}\" time))
+"))
+
diff --git a/eev.el b/eev.el
index 4a69462dc9..b83c3f95c8 100644
--- a/eev.el
+++ b/eev.el
@@ -6,7 +6,7 @@
;; Package-Requires: ((emacs "24.4"))
;; Keywords: lisp e-scripts
;; URL: http://angg.twu.net/#eev
-;; Version: 20220212
+;; Version: 20220218
;; 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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/eev b25aa1b3ad: Added `code-youtubevideo'.,
ELPA Syncer <=