[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/eev 966158c8 1/2: Added several "[Video links:]" blocks
|
From: |
Stefan Monnier |
|
Subject: |
[elpa] externals/eev 966158c8 1/2: Added several "[Video links:]" blocks to `(find-eev-quick-intro)'. |
|
Date: |
Tue, 4 May 2021 08:18:55 -0400 (EDT) |
branch: externals/eev
commit 966158c8d03f7f81dff47567c594bbb2488c5064
Author: Eduardo Ochs <eduardoochs@gmail.com>
Commit: Eduardo Ochs <eduardoochs@gmail.com>
Added several "[Video links:]" blocks to `(find-eev-quick-intro)'.
---
ChangeLog | 25 ++++++++
VERSION | 4 +-
eev-audiovideo.el | 75 ++++++++++++++++++++++-
eev-elinks.el | 3 +
eev-intro.el | 180 +++++++++++++++++++++++++++++++++++++++++++++++-------
eev-testblocks.el | 6 +-
eev-tlinks.el | 5 +-
7 files changed, 267 insertions(+), 31 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 7fa217f..cbe8a85 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,28 @@
+2021-04-23 Eduardo Ochs <eduardoochs@gmail.com>
+
+ * eev-intro.el (find-videos-intro): rewrote the sections "2. Short
+ links to eev video tutorials" and "3. Some `find-eevvideo-links'".
+ (find-eev-quick-intro): added some "[Video links:]" blocks.
+
+2021-04-22 Eduardo Ochs <eduardoochs@gmail.com>
+
+ * eev-audiovideo.el (find-eev2019video, find-eev2020video)
+ (find-eevnavvideo, find-eevtemplvideo, find-eevfherelvideo)
+ (find-eevtestblocksvideo): new functions.
+
+2021-04-21 Eduardo Ochs <eduardoochs@gmail.com>
+
+ * eev-intro.el (find-videos-intro): renamed some .mp4 files.
+
+2021-04-19 Eduardo Ochs <eduardoochs@gmail.com>
+
+ * eev-testblocks.el (ee-insert-test-python-mode): use `exec'
+ instead of `execfile', as `execfile' doesn't exist in Python 3.
+
+2021-02-27 Eduardo Ochs <eduardoochs@gmail.com>
+
+ * eev-tlinks.el (find-find-links-links): make it not interactive.
+
2021-02-26 Eduardo Ochs <eduardoochs@gmail.com>
* eev-elinks.el (ee-find-grep-links1): new function.
diff --git a/VERSION b/VERSION
index b428115..307b43f 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Sat Feb 27 02:43:08 GMT 2021
-Fri Feb 26 23:43:08 -03 2021
+Fri Apr 23 06:36:02 GMT 2021
+Fri Apr 23 03:36:02 -03 2021
diff --git a/eev-audiovideo.el b/eev-audiovideo.el
index cda195f..b554150 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: 2020dec21
+;; Version: 2021apr22
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-audiovideo.el>
@@ -99,6 +99,7 @@
;; «.find-mpv-audio» (to "find-mpv-audio")
;; «.code-brxxxs» (to "code-brxxxs")
;; «.aliases» (to "aliases")
+;; «.video-tutorials» (to "video-tutorials")
@@ -556,6 +557,78 @@ See: (find-audiovideo-intro \"`eev-avadj-mode'\")"
+;;; __ ___ _ _ _ _ _
+;;; \ \ / (_) __| | ___ ___ | |_ _ _| |_ ___ _ __(_) __ _| |___
+;;; \ \ / /| |/ _` |/ _ \/ _ \ | __| | | | __/ _ \| '__| |/ _` | / __|
+;;; \ V / | | (_| | __/ (_) | | |_| |_| | || (_) | | | | (_| | \__ \
+;;; \_/ |_|\__,_|\___|\___/ \__|\__,_|\__\___/|_| |_|\__,_|_|___/
+;;;
+;; «video-tutorials» (to ".video-tutorials")
+;; See: (find-videos-intro "2. Short links to eev video tutorials")
+
+;; Skel: (find-eevshortvideo-links "eev2019" "emacsconf2019" "86yiRG8YJD0")
+(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
+ 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."
+ (find-eevvideo-links "eev2019" "emacsconf2019" "86yiRG8YJD0"))
+
+;; Skel: (find-eevshortvideo-links "eev2020" "emacsconf2020" "hOAqBc42Gg8")
+(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
+ 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."
+ (find-eevvideo-links "eev2020" "emacsconf2020" "hOAqBc42Gg8"))
+
+;; Skel: (find-eevshortvideo-links "eevnav" "2020-list-packages-eev-nav"
"kxBjiUo88_U")
+(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
+ 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."
+ (find-eevvideo-links "eevnav" "2020-list-packages-eev-nav" "kxBjiUo88_U"))
+
+;; Skel: (find-eevshortvideo-links "eevtempl" "2020-some-template-based"
"91-9YfRPsuk")
+(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
+ 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."
+ (find-eevvideo-links "eevtempl" "2020-some-template-based" "91-9YfRPsuk"))
+
+;; Skel: (find-eevshortvideo-links "eevfherel" "2020-find-here-links"
"8jtiBlaDor4")
+(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
+ 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."
+ (find-eevvideo-links "eevfherel" "2020-find-here-links" "8jtiBlaDor4"))
+
+;; Skel: (find-eevshortvideo-links "eevtestblocks" "2021-test-blocks"
"fpsF_M55W4o")
+(defun find-eevtestblocksvideo (&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,
+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."
+ (find-eevvideo-links "eevtestblocks" "2021-test-blocks" "fpsF_M55W4o"))
+
+
+
+
(provide 'eev-audiovideo)
diff --git a/eev-elinks.el b/eev-elinks.el
index a65b07b..a042de1 100644
--- a/eev-elinks.el
+++ b/eev-elinks.el
@@ -888,6 +888,9 @@ when this is true remove the prefix D from FNAME, and put
the sexp
"An internal function used by `find-grep-links'."
(ee-code-c-d-filter-2 dir '(ee-intern "find-%sgrep" c)))
+;; See:
+;; https://lists.gnu.org/archive/html/help-gnu-emacs/2021-02/msg00778.html
+;;
(defun ee-find-grep-links1 ()
"An internal function used by `find-grep-links'."
(let ((dir (ee-shorten-file-name default-directory)))
diff --git a/eev-intro.el b/eev-intro.el
index 9a08633..6415e3c 100644
--- a/eev-intro.el
+++ b/eev-intro.el
@@ -19,7 +19,7 @@
;;
;; Author: Eduardo Ochs <eduardoochs@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version: 2021feb08
+;; Version: 2021apr23
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-intro.el>
@@ -531,6 +531,17 @@ creates this buffer, and switches to it:
|____________________________________________________________________|
+[Video links:]
+ (find-eev2020video \"29:39\" \"2. A tale of two `describe-key's\")
+ (find-eev2020video \"31:31\" \"the problem with the standard
`describe-key'\")
+ (find-eev2020video \"35:07\" \"My variant: `find-ekey-links'\")
+ (find-eev2020video \"37:00\" \"how `find-ekey-links' generates its links\")
+ (find-eev2020video \"37:14\" \"hacker-friendly in the way that I wanted\")
+
+
+
+
+
4.1. `find-here-links'
----------------------
@@ -837,6 +848,11 @@ For more details see:
(find-eepitch-intro)
(find-wrap-intro \"2. <M-T>: produce an eepitch block\")
+[Video links:]
+ (find-eevnavvideo \"10:36\" \"if I type <f8> six times here\")
+ (find-eevnavvideo \"10:50\" \"a shell running inside Emacs\")
+
+
@@ -975,8 +991,18 @@ literal ^O in a buffer by typing `C-q C-o'.
+
7. Quick access to one-liners
=============================
+[Video links:]
+ (find-eevnavvideo \"6:28\" \"M-j: you can forget practically
everything...\")
+ (find-eevnavvideo \"6:41\" \"if you type just M-j\")
+ (find-eevnavvideo \"6:48\" \"has a header that is beginner-friendly\")
+ (find-eevnavvideo \"8:48\" \"most of the entries have hyperlinks to the
manual\")
+ (find-eevnavvideo \"9:48\" \"M-j with numeric prefixes\")
+ (find-eevnavvideo \"9:59\" \"M-2 M-j runs (find-emacs-keys-intro)\")
+ (find-eevnavvideo \"10:06\" \"M-5 M-j runs (find-eev-quick-intro)\")
+
7.1. `eejump'
-------------
@@ -1146,6 +1172,11 @@ next section. Try it now:
(eek \"<down> M-J\")
e (find-fline \"/tmp/foo.tex\")
+[Video links:]
+ (find-eev2020video \"26:49\" \"1.5.3. `M-J' (meta-uppercase-J)\")
+ (find-eev2020video \"26:58\" \"transforms the current line\")
+ (find-eev2020video \"27:37\" \"into a defun\")
+
@@ -1175,6 +1206,10 @@ For more on `M-x', and on why the defuns above need the
(find-node \"(emacs)Commands\")
(find-node \"(elisp)Defining Commands\")
+[Video links:]
+ (find-eev2020video \"19:03\" \"commands with very short names\")
+
+
@@ -1277,6 +1312,13 @@ the other ones are similar.
8. Anchors
==========
+[Video links:]
+ (find-eevfherelvideo \"14:18\" \"4.1. Creating anchors\")
+ (find-eevfherelvideo \"15:22\" \"an index at the beginning of the file\")
+ (find-eevfherelvideo \"15:47\" \"the tutorial also explains ... `M-A'\")
+ (find-eevfherelvideo \"16:07\" \"`M-A' duplicates the line and...\")
+ (find-eevfherelvideo \"16:19\" \"`M-B' creates an e-script block\")
+
8.1. Introduction: `to'
-----------------------
@@ -1439,6 +1481,9 @@ You can use this - or the shorter hyperlinks to anchors in
section 9.2 - to point to anchors or to e-script blocks in your
files.
+[Video links:]
+ (find-eevfherelvideo \"17:02\" \"4.2. The option :anchor for `code-c-d'\")
+
@@ -1448,6 +1493,13 @@ files.
=====================
See also: (find-code-c-d-intro)
+[Video links:]
+ (find-eev2020video \"8:20\" \"`code-c-d' defines several new functions\")
+ (find-eev2020video \"14:43\" \"1.4. How code-c-d is implemented\")
+ (find-eev2020video \"17:20\" \"find-code-c-d shows the code...\")
+
+
+
9.1. `code-c-d'
---------------
Sexps like
@@ -9988,40 +10040,46 @@ deliberately ignoring the ones that I consider
obsolete!):
http://angg.twu.net/emacsconf2019.html#code-video
http://angg.twu.net/eev-videos/emacsconf2019.mp4
http://www.youtube.com/watch?v=86yiRG8YJD0
+ (find-eev2019video)
2. \"On why most of the best features in eev look like 5-minute hacks\":
http://angg.twu.net/emacsconf2020.html
http://angg.twu.net/emacsconf2020.html#code-video
http://angg.twu.net/eev-videos/emacsconf2020.mp4
http://www.youtube.com/watch?v=hOAqBc42Gg8
+ (find-eev2020video)
3. \"How to install eev with M-x list-packages and how to navigate its
tutorials\":
http://angg.twu.net/2020-list-packages-eev-nav.html
http://angg.twu.net/2020-list-packages-eev-nav.html#code-video
- http://angg.twu.net/eev-videos/M-x-list-packages-eev-nav.mp4
+ http://angg.twu.net/eev-videos/2020-list-packages-eev-nav.mp4
http://www.youtube.com/watch?v=kxBjiUo88_U
+ (find-eevnavvideo)
4. \"Some template-based functions of eev that are not five-minute hacks\":
http://angg.twu.net/2020-some-template-based.html
http://angg.twu.net/2020-some-template-based.html#code-video
- http://angg.twu.net/eev-videos/2020_some_template-based_functions.mp4
+ http://angg.twu.net/eev-videos/2020-some-template-based.mp4
http://www.youtube.com/watch?v=91-9YfRPsuk
+ (find-eevtemplvideo)
5. \"How to create hyperlinks to \"here\" with `find-here-links'\":
http://angg.twu.net/2020-find-here-links.html
http://angg.twu.net/2020-find-here-links.html#code-video
http://angg.twu.net/eev-videos/2020-find-here-links.mp4
http://www.youtube.com/watch?v=8jtiBlaDor4
+ (find-eevfherelvideo)
- 6. \"Short videos about workflows - and how to upload them\":
- http://angg.twu.net/2021-ssr.html
- http://angg.twu.net/eev-videos/2020-short-find-ssr-links-2.mp4
- http://www.youtube.com/watch?v=_0_NLXTVhBk
-
- 7. \"Using test blocks in eev\":
+ 6. \"Using test blocks in eev\":
http://angg.twu.net/2021-test-blocks.html
- http://angg.twu.net/eev-videos/2020-test-blocks-1.mp4
+ http://angg.twu.net/eev-videos/2021-test-blocks.mp4
http://www.youtube.com/watch?v=fpsF_M55W4o
+ (find-eevtestblocksvideo)
+
+ 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
The ones that I prepared for the two EmacsConfs are very
well-rehearsed, the other ones are not.
@@ -10042,18 +10100,97 @@ to jump to positions in them.
-2. Some `find-eevvideo-links'
+2. Short links to eev video tutorials
+=====================================
+The \"short links to eev video tutorials\" are made to be trivial
+to use from the _htmlized_ versions of the intros; they are not
+so trivial from Emacs. If you open the htmlized version of this
+section in a browser - its URL is:
+
+ http://angg.twu.net/eev-intros/find-videos-intro.html#2
+
+you will notice that links like
+
+ (find-eev2020video \"6:25\" \"`find-video'\")
+ \\---------------/ \\--/
+ function name: time:
+ points to here points to
+ (this section) YouTube
+
+have two hyperlinks: the function name, \"find-eev2020video\",
+points to this section of this intro, and the timestamp,
+\"6:25\", points to YouTube; in this example, the \"6:25\" points
+to my presentation about eev in the EmacsConf2020, and it plays
+that video starting from 6:25.
+
+At this moment only these `find-eev*video' function are htmlized
+in this way:
+
+ 1. \"How to record executable notes with eev - and how to play them back\"
+ http://angg.twu.net/emacsconf2019.html
+ (find-eev2019video \"0:00\")
+
+ 2. \"On why most of the best features in eev look like 5-minute hacks\"
+ http://angg.twu.net/emacsconf2020.html
+ (find-eev2020video \"0:00\")
+
+ 3. \"How to install eev with M-x list-packages and how to navigate its
tutorials\"
+ http://angg.twu.net/2020-list-packages-eev-nav.html
+ (find-eevnavvideo \"0:00\")
+
+ 4. \"Some template-based functions of eev that are not five-minute hacks\"
+ http://angg.twu.net/2020-some-template-based.html
+ (find-eevtemplvideo \"0:00\")
+
+ 5. \"How to create hyperlinks to \"here\" with `find-here-links'\"
+ http://angg.twu.net/2020-find-here-links.html
+ (find-eevfherelvideo \"0:00\")
+
+ 6. \"Using test blocks in eev\":
+ http://angg.twu.net/2021-test-blocks.html
+ (find-eevtestblocksvideo \"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.
+
+
+
+
+3. Some `find-eevvideo-links'
=============================
-Another way to download these videos, and to get links that play
-them from the beginning, is by using these sexps:
+When you run a sexp like this
+
+ (find-eev2020video \"0:00\")
+
+in Emacs it by default runs this,
+
+ (find-eevvideo-links \"eev2020\" \"emacsconf2020\" \"hOAqBc42Gg8\" \"0:00\")
+
+that creates a temporary buffer containing commands for doing
+several things - like downloading a local copy of that video,
+playing the local copy, and overriding the definition of
+`find-eev2020video' with another one, that plays the local copy
+straight away without creating a temporary buffer.
+
+That temporary buffer is a bit hard to understand, and I need to
+make a video explaining how to use each part of it (TODO!
+Urgent)...
+
+The \"short links to eev video tutorials\" listed above call
+these `find-eevvideo-links' sexps:
1. (find-eevvideo-links \"eev2019\" \"emacsconf2019\" \"86yiRG8YJD0\")
2. (find-eevvideo-links \"eev2020\" \"emacsconf2020\" \"hOAqBc42Gg8\")
- 3. (find-eevvideo-links \"eevnav\" \"2020-list-packages-eev-nav\"
\"kxBjiUo88_U\")
- 4. (find-eevvideo-links \"2020sometbf\" \"2020-some-template-based\"
\"91-9YfRPsuk\")
- 5. (find-eevvideo-links \"2020findherelinks\" \"2020-find-here-links\"
\"8jtiBlaDor4\")
- 6. (find-eevvideo-links \"2020ssr\" \"2020-short-find-ssr-links-2\"
\"_0_NLXTVhBk\")
- 7. (find-eevvideo-links \"testbls\" \"2020-test-blocks-1\" \"fpsF_M55W4o\")
+ 3. (find-eevvideo-links \"eevnav\" \"2020-list-packages-eev-nav\"
\"kxBjiUo88_U\")
+ 4. (find-eevvideo-links \"eevtempl\" \"2020-some-template-based\"
\"91-9YfRPsuk\")
+ 5. (find-eevvideo-links \"eevfherel\" \"2020-find-here-links\"
\"8jtiBlaDor4\")
+ 6. (find-eevvideo-links \"eevtestblocks\" \"2021-test-blocks\"
\"fpsF_M55W4o\")
+ 7. (find-eevvideo-links \"2021ssr\" \"2021-ssr\" \"_0_NLXTVhBk\")
+
+They are htmlized in a nice way - see:
+
+ http://angg.twu.net/eev-intros/find-videos-intro.html#3
The function `find-eevvideo-links' is explained here:
@@ -10061,18 +10198,15 @@ The function `find-eevvideo-links' is explained here:
-TO DO (urgent): make a video about `find-eevvideo-links' and friends,
-TO DO (not urgent): rewrite most of this intro!
-
-Everything below this point is VERY old!!!
+Everything below this point is VERY old!!!
-3. What we have now
+4. What we have now
===================
I am producing a series of videos about eev - but at this moment
only two very broad introductions are ready 8-(. I have plans for
diff --git a/eev-testblocks.el b/eev-testblocks.el
index addbc70..43af23f 100644
--- a/eev-testblocks.el
+++ b/eev-testblocks.el
@@ -1,6 +1,6 @@
;;; eev-testblocks.el - create "test blocks" using multiline comments.
-;; Copyright (C) 2019,2020 Free Software Foundation, Inc.
+;; Copyright (C) 2019-2021 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: 2020dec16
+;; Version: 2021apr19
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-testblocks.el>
@@ -132,7 +132,7 @@ dofile \"%s\"
(eepitch-python)
(eepitch-kill)
(eepitch-python)
-execfile(\"%s\", globals())
+exec(open(\"%s\").read(), globals())
\"\"\"
" (buffer-name))))
diff --git a/eev-tlinks.el b/eev-tlinks.el
index 81608f8..f6dea26 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: 2021jan02
+;; Version: 2021feb27
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-tlinks.el>
@@ -235,7 +235,8 @@ See: (find-eev \"eev-tlinks.el\" \"ee-copy-rest\")"
(defun find-find-links-links (&optional k stem args &rest pos-spec-list)
"Visit a temporary buffer containing hyperlinks for foo."
- (interactive)
+ ;; (interactive)
+ ;; ^ Commented out because this is obsolete!
(setq k (or k "{k}"))
(setq stem (or stem "{stem}"))
(setq args (or args "{args}"))