branch: externals/eev
commit 2ffe55e12b71a927b33d8149252f3da819ecef59
Author: Eduardo Ochs <eduardoo...@gmail.com>
Commit: Eduardo Ochs <eduardoo...@gmail.com>
Added `find-eevvlinksvideo'.
---
ChangeLog | 3 +++
VERSION | 4 ++--
eev-audiovideo.el | 26 +++++++++++++++++++++-----
eev-intro.el | 19 +++++++++++++++----
4 files changed, 41 insertions(+), 11 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 069837c..25fda08 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
2021-05-12 Eduardo Ochs <eduardoo...@gmail.com>
+ * eev-audiovideo.el (find-eevvlinksvideo): new function.
+ (find-eevtestblocksvideo): renamed to `find-eevtestblsvideo'.
+
* eev-intro.el (find-refining-intro, find-here-links-intro): added
several "[Video links:]" blocks.
diff --git a/VERSION b/VERSION
index 66ebd8c..24261c0 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Wed May 12 05:06:09 GMT 2021
-Wed May 12 02:06:09 -03 2021
+Wed May 12 10:10:17 GMT 2021
+Wed May 12 07:10:17 -03 2021
diff --git a/eev-audiovideo.el b/eev-audiovideo.el
index abffaad..df0a22d 100644
--- a/eev-audiovideo.el
+++ b/eev-audiovideo.el
@@ -19,7 +19,7 @@
;;
;; Author: Eduardo Ochs <eduardoo...@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoo...@gmail.com>
-;; Version: 20210505
+;; Version: 20210512
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-audiovideo.el>
@@ -570,6 +570,7 @@ See: (find-audiovideo-intro \"`eev-avadj-mode'\")"
;; See: (find-videos-intro "2. Short links to eev video tutorials")
;; Skel: (find-eevshortvideo-links "eev2019" "emacsconf2019" "86yiRG8YJD0")
+;; Test: (find-eev2019video "0:00")
(defun find-eev2019video (&optional time &rest rest)
"Play one of the video tutorials of eev starting at TIME.
See: http://angg.twu.net/emacsconf2019.html
@@ -581,6 +582,7 @@ and: (find-videos-intro \"2. Short links to eev video
tutorials\")
(find-eevvideo-links "eev2019" "emacsconf2019" "86yiRG8YJD0" time))
;; Skel: (find-eevshortvideo-links "eev2020" "emacsconf2020" "hOAqBc42Gg8")
+;; Test: (find-eev2020video "0:00")
(defun find-eev2020video (&optional time &rest rest)
"Play one of the video tutorials of eev starting at TIME.
See: http://angg.twu.net/emacsconf2020.html
@@ -592,6 +594,7 @@ and: (find-videos-intro \"2. Short links to eev video
tutorials\")
(find-eevvideo-links "eev2020" "emacsconf2020" "hOAqBc42Gg8" time))
;; Skel: (find-eevshortvideo-links "eevnav" "2020-list-packages-eev-nav"
"kxBjiUo88_U")
+;; Test: (find-eevnavvideo "0:00")
(defun find-eevnavvideo (&optional time &rest rest)
"Play one of the video tutorials of eev starting at TIME.
See: http://angg.twu.net/2020-list-packages-eev-nav.html
@@ -603,6 +606,7 @@ and: (find-videos-intro \"2. Short links to eev video
tutorials\")
(find-eevvideo-links "eevnav" "2020-list-packages-eev-nav" "kxBjiUo88_U"
time))
;; Skel: (find-eevshortvideo-links "eevtempl" "2020-some-template-based"
"91-9YfRPsuk")
+;; Test: (find-eevtemplvideo "0:00")
(defun find-eevtemplvideo (&optional time &rest rest)
"Play one of the video tutorials of eev starting at TIME.
See: http://angg.twu.net/2020-some-template-based.html
@@ -614,6 +618,7 @@ and: (find-videos-intro \"2. Short links to eev video
tutorials\")
(find-eevvideo-links "eevtempl" "2020-some-template-based" "91-9YfRPsuk"
time))
;; Skel: (find-eevshortvideo-links "eevfherel" "2020-find-here-links"
"8jtiBlaDor4")
+;; Test: (find-eevfherelvideo "0:00")
(defun find-eevfherelvideo (&optional time &rest rest)
"Play one of the video tutorials of eev starting at TIME.
See: http://angg.twu.net/2020-find-here-links.html
@@ -623,8 +628,9 @@ and: (find-videos-intro \"2. Short links to eev video
tutorials\")
for more info on these video tutorials."
(find-eevvideo-links "eevfherel" "2020-find-here-links" "8jtiBlaDor4" time))
-;; Skel: (find-eevshortvideo-links "eevtestblocks" "2021-test-blocks"
"fpsF_M55W4o")
-(defun find-eevtestblocksvideo (&optional time &rest rest)
+;; Skel: (find-eevshortvideo-links "eevtestbls" "2021-test-blocks"
"fpsF_M55W4o")
+;; Test: (find-eevtestblsvideo "0:00")
+(defun find-eevtestblsvideo (&optional time &rest rest)
"Play one of the video tutorials of eev starting at TIME.
See: http://angg.twu.net/2021-test-blocks.html
for more info on this particular video,
@@ -632,9 +638,19 @@ and: (find-videos-intro \"2. Short links to eev video
tutorials\")
or: http://angg.twu.net/eev-intros/find-videos-intro.html#2
for more info on these video tutorials."
(interactive)
- (find-eevvideo-links "eevtestblocks" "2021-test-blocks" "fpsF_M55W4o" time))
-
+ (find-eevvideo-links "eevtestbls" "2021-test-blocks" "fpsF_M55W4o" time))
+;; Skel: (find-eevshortvideo-links "eevvlinks" "2021-video-links")
+;; Test: (find-eevvlinksvideo "0:00")
+(defun find-eevvlinksvideo (&optional time &rest rest)
+ "Play one of the video tutorials of eev starting at TIME.
+See: http://angg.twu.net/2021-video-links.html
+ for more info on this particular video,
+and: (find-videos-intro \"2. Short links to eev video tutorials\")
+ or: http://angg.twu.net/eev-intros/find-videos-intro.html#2
+ for more info on these video tutorials."
+ (interactive)
+ (find-eevvideo-links "eevvlinks" "2021-video-links" "xQqWufQgzVY" time))
diff --git a/eev-intro.el b/eev-intro.el
index ea25160..b5da10a 100644
--- a/eev-intro.el
+++ b/eev-intro.el
@@ -19,7 +19,7 @@
;;
;; Author: Eduardo Ochs <eduardoo...@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoo...@gmail.com>
-;; Version: 20210511
+;; Version: 20210512
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-intro.el>
@@ -850,7 +850,7 @@ For more details see:
(find-eev2019video \"15:11\" \"Demo: the eepitch block (in red star lines)\")
(find-eev2019video \"15:48\" \"Demo: eepitch on non-red star lines\")
(find-eev2019video \"15:56\" \"Demo: eepitch in action\")
- (find-testblsvideo \"2:33\" \"if I run f8 here I start a new Lua
interpreter\")
+ (find-eevtestblsvideo \"2:33\" \"if I run f8 here I start a new Lua
interpreter\")
@@ -10213,7 +10213,7 @@ Prerequisites:
1. Some videos
==============
-At this moment I have these seven videos about eev (I am
+At this moment I have these eight videos about eev (I am
deliberately ignoring the ones that I consider obsolete!):
1. \"How to record executable notes with eev - and how to play them back\":
@@ -10255,13 +10255,20 @@ deliberately ignoring the ones that I consider
obsolete!):
http://angg.twu.net/2021-test-blocks.html
http://angg.twu.net/eev-videos/2021-test-blocks.mp4
http://www.youtube.com/watch?v=fpsF_M55W4o
- (find-eevtestblocksvideo)
+ (find-eevtestblsvideo)
7. \"Short videos about workflows - and how to upload them\":
http://angg.twu.net/2021-ssr.html
http://angg.twu.net/eev-videos/2021-ssr.mp4
http://www.youtube.com/watch?v=_0_NLXTVhBk
+ 8. \"How to use the `[Video links:]' blocks in the `intro's of eev\"
+ http://angg.twu.net/2021-video-links.html
+ http://angg.twu.net/eev-videos/2021-video-links.mp4
+ http://www.youtube.com/watch?v=xQqWufQgzVY
+ (find-eevvlinksvideo \"0:00\")
+
+
The ones that I prepared for the two EmacsConfs are very
well-rehearsed, the other ones are not.
@@ -10331,6 +10338,10 @@ in this way:
http://angg.twu.net/2021-test-blocks.html
(find-eevtestblocksvideo \"0:00\")
+ 7. \"How to use the `[Video links:]' blocks in the `intro's of eev\"
+ http://angg.twu.net/2021-video-links.html
+ (find-eevvlinksvideo \"0:00\")
+
If you follow these `find-eev*video' sexp hyperlinks in Emacs you
will _usually_ get a temporary buffer with links to that video...
see the next section.
