branch: externals/eev
commit a62710cb1e91579075076f74fc3ff715199bd8a1
Author: Eduardo Ochs <eduardoo...@gmail.com>
Commit: Eduardo Ochs <eduardoo...@gmail.com>
Added `ee-1stclassvideos-info'.
---
ChangeLog | 7 +++
VERSION | 4 +-
eev-intro.el | 183 +++++++++++++++++++++++++++++++++++++++++++++---------
eev-on-windows.el | 97 ++++++++++++++++++++++++++---
eev-tlinks.el | 4 ++
eev-videolinks.el | 103 +++++++++++++++++++++++++++++-
eev.el | 2 +-
7 files changed, 355 insertions(+), 45 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 43ce8be..36247fc 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,12 @@
+2021-11-10 Eduardo Ochs <eduardoo...@gmail.com>
+
+ * eev-intro.el (find-windows-beginner-intro): several new
+ sections.
+
2021-11-09 Eduardo Ochs <eduardoo...@gmail.com>
+ * eev-videolinks.el (ee-1stclassvideos-info): new variable.
+
* eev-intro.el (find-video-links-intro): added the sections 9, 10,
and 11.
(find-windows-beginner-intro): almost totally rewritten.
diff --git a/VERSION b/VERSION
index 97804d0..f2fff1d 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Tue Nov 9 03:53:48 GMT 2021
-Tue Nov 9 00:53:48 -03 2021
+Thu Nov 11 02:59:14 GMT 2021
+Wed Nov 10 23:59:14 -03 2021
diff --git a/eev-intro.el b/eev-intro.el
index bd863de..ae4359e 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: 20211109
+;; Version: 20211110
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-intro.el>
@@ -1975,7 +1975,7 @@ or by using the menu bar (the relevant options are under
See: (find-enode \"Tool Bars\")
(find-enode \"Menu Bar\")
- (find-emacs-keys-intro \"3. Cutting & pasting\")
+ (find-eev-quick-intro \"5.2. Cutting and pasting\")
@@ -12943,8 +12943,8 @@ tecnhical details, see:
6. Video links
==============
-If you're on Windows please start by configuring your browser and
-the path to it, as described here:
+If you're on Windows you need to start by configuring your
+browser and the path to it, as described here:
(find-video-links-intro)
(find-video-links-intro \"3. `find-youtube-video'\")
@@ -12996,9 +12996,11 @@ sexps with `M-e'.
(delete-file \"~/bin/wget.exe\")
(delete-file \"~/bin/pdftotext.exe\")
(delete-file \"~/bin/lua52.exe\")
+ (delete-file \"~/bin/lua52.dll\")
(ee-download-with-eww \"http://angg.twu.net/2021-oficina/wget.exe\";
\"~/bin/\")
(ee-download-with-eww \"http://angg.twu.net/2021-oficina/pdftotext.exe\";
\"~/bin/\")
(ee-download-with-eww \"http://angg.twu.net/2021-oficina/lua52.exe\";
\"~/bin/\")
+ (ee-download-with-eww \"http://angg.twu.net/2021-oficina/lua52.dll\";
\"~/bin/\")
The sexps in the block above only need to be executed once - you
don't need to execute them at each Emacs session. You can test if
@@ -13015,8 +13017,18 @@ they worked by running the sexps below:
7.1. `ee-use-windows'
---------------------
+If you are on Windows you should run this:
+
+ (ee-use-windows)
+
+Its source code is here:
+
+ (find-eev \"eev-on-windows.el\" \"ee-use-windows\")
+
+Most of what it does is explained in the next sections.
+
+
- (find-eev \"eev-on-windows.el\")
7.2. Testing wget.exe
@@ -13044,54 +13056,165 @@ with `M-x brep':
(find-psne-intro \"3. The new way: `M-x brep'\")
-Note that due to the
+`M-x brep' uses `eepitch-shell', that on Windows runs cmd.exe by
+default, but in the last section we ran `ee-use-windows', that
+redefines `eepitch-shell' to makes it use Eshell instead of
+cmd.exe - and it also makes the command \"wget\" in eshell run
+~/bin/wget.exe.
- (eepitch-shell2)
+Eev also uses wget in the function `find-wget' and its variants
+`find-wgeta', `find-wget-elisp', and `find-wgeta-elisp'. Try the
+tests here, and check that they work:
- (find-eev \"eev-on-windows.el\" \"ee-use-eshell\")
+ (find-eev \"eev-plinks.el\" \"find-wget\")
+ (find-eev \"eev-plinks.el\" \"find-wget\" \"Tests:\")
- (find-eev \"eev-plinks.el\" \"find-wget\")
- (find-eev \"eev-plinks.el\" \"find-wget\" \"Tests:\")
+7.3. Lua
+--------
+`ee-use-windows' also redefine `eepitch-lua51' to make it run
+~/bin/lua52.exe, that you downloaded in section 7, and it runs
+`ee-use-youtube-videos', that you've run explicitly in section 6.
+Try this link to a video:
-7.3. Testing psne-ing
----------------------
+ (find-eevtestblsvideo \"2:33\" \"if I run f8 here I start a new Lua
interpreter\")
- (find-psne-intro)
+it should play the video in a browser. The video shows what
+happens when we run an eepitch block that calls Lua and
+everything works correctly. Check that these two eepitch blocks
+work as expected:
-7.4. Testing `M-x brep'
+ (eepitch-lua51)
+ (eepitch-kill)
+ (eepitch-lua51)
+ print(2+3)
+ os.exit()
+
+ (eepitch-shell)
+ (eepitch-kill)
+ (eepitch-shell)
+ ~/bin/lua52.exe -i
+ print(2+3)
+ os.exit()
+
+
+
+
+7.4. Downloading videos
-----------------------
+The default behavior for a video link like this one
+ (find-eevtestblsvideo \"2:33\" \"if I run f8 here\")
+is to download a local copy of the video if it hasn't been
+already downloaded, and then play the local copy with mpv. The
+downloading is not automatic - the user has to \"psne\" it.
-7. Eepitch on Windows
-=====================
+ (find-eevvlinksvideo \"6:09\" \"if I execute this `find-eevtestblsvideo'\")
+ (find-eevvlinksvideo \"6:15\" \"the last line says `Local file NOT found'\")
+
+Now that you understand psne-ing, try the three standard
+behaviors for video links. First make sure that we don't have a
+local copy of the \"eevtestbls\" video, by running this:
+ (eepitch-shell)
+ (eepitch-kill)
+ (eepitch-shell)
+ rm -fv $S/http/angg.twu.net/eev-videos/2021-test-blocks.mp4
+ ls -l $S/http/angg.twu.net/eev-videos/2021-test-blocks.mp4
- (find-eev \"eev-on-windows.el\" \"ee-use-eshell\")
+Then run these sexps:
+ (ee-use-local-videos)
+ (find-eevtestblsvideo \"2:33\" \"if I run f8 here\")
-8. Lua
-======
-Lua is a programming language that many people - like me - find
-much better and much simpler than Python. The examples of
-\"controlling shell-like programs\" in the main tutorials of eev
-use Python because it comes installed by default in all modern
-*NIXes... see:
+ (setq ee-find-eev-video-function 'find-eevlinks-video)
+ (find-eevtestblsvideo \"2:33\" \"if I run f8 here\")
- (find-eev-quick-intro \"6.2. Other targets\")
- (find-eepitch-intro \"1.1. Another target\")
+ (ee-use-youtube-videos)
+ (find-eevtestblsvideo \"2:33\" \"if I run f8 here\")
-but on Windows Lua is easier to install than Python, so let's
-start by it and leave Python to a second stage.
+The three behaviors are explained here:
-Try to follow the instructions here:
+ (find-video-links-intro \"7. `find-eev-video'\")
+ (find-video-links-intro \"The default is `find-eevlocal-video', but\")
- (find-windows-eepitch-lua-links nil)
+7.5. Downloading PDFs
+---------------------
+Now try all the tests in the sections 1-5 and 7 of:
+
+ (find-pdf-like-intro)
+
+Section 6 does not apply on Windows - one of the things that
+`ee-use-windows' does is to make `find-pdf-page' use a browser to
+open PDFs. Check that everything in sections 1-5 and 7 work,
+including the links to pages of PDFs converted to text - the
+conversion to text will be done by ~/bin/pdftotext.exe, that you
+downloaded and tested in section 7.
+
+
+
+
+7.6. Saving your settings
+-------------------------
+If all the tests above worked then you can save your settings.
+I will refer to the block below as the \"Windows setting block\":
+
+ ;; See: (find-windows-beginner-intro \"8. Summary\")
+ ;; (find-video-links-intro \"4. Configuring the browser\")
+ ;; (find-video-links-intro \"6. Configuring Mpv\")
+ (require 'beginner)
+ (require 'eev-on-windows)
+ (ee-use-windows)
+ (setenv \"FIREFOXDIR\" \"c:/Program Files/Mozilla Firefox\")
+ (setenv \"GOOGLECHROMEDIR\" \"c:/Program Files/Google/Chrome/Application\")
+ (setenv \"MPVDIR\" \"c:/Users/myusername/path/to/mpv\")
+ ;;
+ ;; Choose one:
+ (ee-use-googlechrome)
+ ;;(ee-use-firefox)
+
+Copy that block to your ~/TODO, but with the right paths in the
+`setenv's. I will refer to that modified copy as the \"Windows
+setting block in ~/TODO\".
+
+
+
+7.7. Testing your settings
+--------------------------
+The best way to test your \"Windows setting block in ~/TODO\" is
+by doing this. Start a second Emacs without closing this one, and
+on that second Emacs run:
+
+ 1. `M-x eev-beginner',
+ 2. `M-1 M-j' (to access your ~/TODO),
+ 3. type `M-e' on each line of your \"Windows setting block in
+ ~/TODO\" _that is not commented with with a \";;\".
+
+Then... [TODO: complete this!]
+
+
+
+7.8. Saving your settings to your ~/.emacs
+------------------------------------------
+See:
+
+ (find-elnode \"Init File\" \".emacs\")
+
+A quick way to visit your ~/.emacs is with `M-5 M-5 M-j'. It runs
+this:
+
+ (find-fline \"~/.emacs\")
+
+
+
+8. Summary
+==========
+
[Unfinished!!!]
diff --git a/eev-on-windows.el b/eev-on-windows.el
index 1f08202..2dd6a4e 100644
--- a/eev-on-windows.el
+++ b/eev-on-windows.el
@@ -19,7 +19,7 @@
;;
;; Author: Eduardo Ochs <eduardoo...@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoo...@gmail.com>
-;; Version: 20211107
+;; Version: 20211110
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-on-windows.el>
@@ -34,18 +34,24 @@
;; «.eshell» (to "eshell")
;; «.ee-use-eshell» (to "ee-use-eshell")
;; «.ee-use-shell» (to "ee-use-shell")
+;; «.lua» (to "lua")
+;; «.ee-use-lua» (to "ee-use-lua")
+;; «.ee-use-lua-exe» (to "ee-use-lua-exe")
;; «.wget» (to "wget")
;; «.ee-use-wget-exe» (to "ee-use-wget-exe")
;; «.ee-use-wget» (to "ee-use-wget")
+;; «.ee-use-firefox» (to "ee-use-firefox")
+;; «.ee-use-googlechrome» (to "ee-use-googlechrome")
;; «.red-stars» (to "red-stars")
;; «.ee-use-bullets» (to "ee-use-bullets")
;; «.ee-use-red-stars» (to "ee-use-red-stars")
;; «.find-angg-es» (to "find-angg-es")
;; «.ee-use-find-angg-es-remote» (to "ee-use-find-angg-es-remote")
;; «.ee-use-find-angg-es-local» (to "ee-use-find-angg-es-local")
-;; «.ee-use-windows» (to "ee-use-windows")
-;; «.ee-use-gnu-linux» (to "ee-use-gnu-linux")
-;; «.ee-use-gnu-linux-but-simulate» (to "ee-use-gnu-linux-but-simulate")
+;; «.high-level» (to "high-level")
+;; «.ee-use-windows» (to "ee-use-windows")
+;; «.ee-use-gnu-linux» (to "ee-use-gnu-linux")
+;; «.ee-use-gnu-linux-but-simulate» (to "ee-use-gnu-linux-but-simulate")
;; «.directories» (to "directories")
;; «.basic-tests» (to "basic-tests")
@@ -64,7 +70,10 @@
;; «how-to-test-this» (to ".how-to-test-this")
;;
-;; THIS BLOCK IS BEING REWRITTEN AND IS A MESS
+;; THIS BLOCK IS BEING REWRITTEN AND IS CURRENTLY A MESS.
+;; Most of the docs and tests were moved to:
+;;
+;; (find-windows-beginner-intro)
;;
;; 0.1. How to test this
;; =====================
@@ -159,6 +168,7 @@
)
+
;;; _
;;; __ ____ _ ___| |_
;;; \ \ /\ / / _` |/ _ \ __|
@@ -171,8 +181,8 @@
;; wget that is on the $PATH, and on M$ Windows we use ~/bin/wget.exe.
;;
;; BIG WARNING:
-;; These function DELETE your eshell-aliases-file and create a new one
-;; with a single alias inside!!! See:
+;; These functions DELETE your eshell-aliases-file and create a new
+;; one with a single alias inside!!! See:
;; (find-node "(eshell)Aliases" "eshell-aliases-file")
;; «ee-use-wget-exe» (to ".ee-use-wget-exe")
@@ -190,6 +200,26 @@
(setq ee-wget-program "wget"))
+;;; _____ _ __
+;;; | ___(_)_ __ ___ / _| _____ __
+;;; | |_ | | '__/ _ \ |_ / _ \ \/ /
+;;; | _| | | | | __/ _| (_) > <
+;;; |_| |_|_| \___|_| \___/_/\_\
+;;;
+;; «ee-use-firefox» (to ".ee-use-firefox")
+(defun ee-use-firefox ()
+ (interactive)
+ (setq ee-find-youtube-video-program 'find-firefox)
+ (defalias 'find-pdf-page 'find-firefox-page))
+
+;; «ee-use-googlechrome» (to ".ee-use-googlechrome")
+(defun ee-use-googlechrome ()
+ (interactive)
+ (setq ee-find-youtube-video-program 'find-googlechrome)
+ (defalias 'find-pdf-page 'find-googlechrome-page))
+
+
+
;;; ____ _ _
;;; | _ \ ___ __| | ___| |_ __ _ _ __ ___
@@ -249,6 +279,42 @@
+;;; _
+;;; | | _ _ __ _
+;;; | | | | | |/ _` |
+;;; | |__| |_| | (_| |
+;;; |_____\__,_|\__,_|
+;;;
+;; «lua» (to ".lua")
+
+;; «ee-use-lua» (to ".ee-use-lua")
+(defun ee-use-lua ()
+ (interactive)
+ (defun eepitch-lua51 () (interactive) (eepitch-comint "lua51" "lua5.1"))
+ (defun eepitch-lua51 () (interactive) (eepitch-comint "lua52" "lua5.2"))
+ )
+
+;; «ee-use-lua-exe» (to ".ee-use-lua-exe")
+(defun ee-use-lua-exe ()
+ (interactive)
+ (defun eepitch-lua51 () (interactive) (eepitch-comint "lua52.exe"
"~/bin/lua52.exe -i"))
+ (defun eepitch-lua52 () (interactive) (eepitch-comint "lua52.exe"
"~/bin/lua52.exe -i"))
+ )
+
+
+
+
+;;; _ _ _ _ _ _
+;;; | | | (_) __ _| |__ | | _____ _____| |
+;;; | |_| | |/ _` | '_ \ _____| |/ _ \ \ / / _ \ |
+;;; | _ | | (_| | | | |_____| | __/\ V / __/ |
+;;; |_| |_|_|\__, |_| |_| |_|\___| \_/ \___|_|
+;;; |___/
+;;
+;; «high-level» (to ".high-level")
+;; High-level configuration functions that run many low-level configs.
+;; See: (find-windows-beginner-intro "7.1. `ee-use-windows'")
+;;
;; «ee-use-windows» (to ".ee-use-windows")
;; «ee-use-gnu-linux» (to ".ee-use-gnu-linux")
;; «ee-use-gnu-linux-but-simulate» (to ".ee-use-gnu-linux-but-simulate")
@@ -258,38 +324,51 @@
(ee-use-bullets)
(ee-use-eshell)
(ee-use-wget-exe)
+ (ee-use-lua-exe)
(setq ee-pdftotext-program "~/bin/pdftotext.exe")
(setq ee-firefox-program "$FIREFOXDIR/firefox.exe")
(setq ee-googlechrome-program "$GOOGLECHROMEDIR/chrome.exe")
(setq ee-mpv-program "$MPVDIR/mpv.exe")
- (defalias 'find-pdf-page 'find-googlechrome-page)
(ee-use-find-angg-es-remote)
+ (ee-use-googlechrome)
(ee-use-youtube-videos)
)
+;; This sort of reverts what `ee-use-windows' does.
+;;
(defun ee-use-gnu-linux ()
(interactive)
(ee-use-red-stars)
(ee-use-shell)
- (ee-use-exe)
+ (ee-use-wget)
+ (ee-use-lua)
(setq ee-pdftotext-program "pdftotext")
(setq ee-firefox-program "firefox")
(setq ee-googlechrome-program "google-chrome")
(setq ee-mpv-program "mpv")
(ee-use-find-angg-es-local)
+ (ee-use-googlechrome)
+ (defalias 'find-pdf-page 'find-xpdf-page)
(ee-use-local-videos)
)
+;; I use this to make the Emacs in my Debian box behave similarly to
+;; an Emacs on M$ Windows after running `ee-use-windows'. "Similarly"
+;; here means "similarly enough to let me test most of the settings
+;; of `ee-use-windows' and record demos".
+;;
(defun ee-use-gnu-linux-but-simulate ()
(interactive)
(ee-use-bullets)
(ee-use-eshell)
(ee-use-wget)
+ (ee-use-lua)
(setq ee-pdftotext-program "pdftotext")
(setq ee-firefox-program "firefox")
(setq ee-googlechrome-program "google-chrome")
(setq ee-mpv-program "mpv")
(ee-use-find-angg-es-remote)
+ (ee-use-googlechrome)
(ee-use-youtube-videos)
)
diff --git a/eev-tlinks.el b/eev-tlinks.el
index 4b444d5..b71b2fa 100644
--- a/eev-tlinks.el
+++ b/eev-tlinks.el
@@ -2043,6 +2043,10 @@ dofile \"{fname0}\"
;; Skel: (find-find-links-links-new "windows-eepitch-lua" "dir" "")
;; Test: (find-windows-eepitch-lua-links "/tmp/")
;;
+;; THIS IS OBSOLETE!
+;; The new way is this one:
+;; (find-windows-beginner-intro "7.3. Lua")
+;;
(defun find-windows-eepitch-lua-links (&optional dir &rest pos-spec-list)
"Visit a temporary buffer that helps in setting up `eepitch-lua52's on M$
Windows."
(interactive)
diff --git a/eev-videolinks.el b/eev-videolinks.el
index ba3a63f..81a40b6 100644
--- a/eev-videolinks.el
+++ b/eev-videolinks.el
@@ -19,7 +19,7 @@
;;
;; Author: Eduardo Ochs <eduardoo...@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoo...@gmail.com>
-;; Version: 20211108
+;; Version: 20211109
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-videolinks.el>
@@ -46,6 +46,16 @@
;; «.find-eevfherelvideo» (to "find-eevfherelvideo")
;; «.find-eevtestblsvideo» (to "find-eevtestblsvideo")
;; «.find-eevvlinksvideo» (to "find-eevvlinksvideo")
+;; «.more-info» (to "more-info")
+;; «.eev2019» (to "eev2019")
+;; «.eev2020» (to "eev2020")
+;; «.eevnav» (to "eevnav")
+;; «.eevtempl» (to "eevtempl")
+;; «.fherel» (to "fherel")
+;; «.eevtestbls» (to "eevtestbls")
+;; «.eevvlinks» (to "eevvlinks")
+;; «.oficina2021a» (to "oficina2021a")
+;; «.oficina2021b» (to "oficina2021b")
;; «.second-class-videos» (to "second-class-videos")
;; «.code-eevvideo» (to "code-eevvideo")
@@ -161,7 +171,7 @@
(ee-template0 "\
# Youtube:
# (kill-new \"{youtubeurl}\")
-# {youtubeurl}\"
+# {youtubeurl}
# (find-youtube-video \"{hash}\"{timearg})
")))
@@ -376,6 +386,93 @@ and: (find-video-links-intro \"7. `find-eev-video'\")
+;;; __ __ _ __
+;;; | \/ | ___ _ __ ___ (_)_ __ / _| ___
+;;; | |\/| |/ _ \| '__/ _ \ | | '_ \| |_ / _ \
+;;; | | | | (_) | | | __/ | | | | | _| (_) |
+;;; |_| |_|\___/|_| \___| |_|_| |_|_| \___/
+;;;
+;; «more-info» (to ".more-info")
+;; More info on the first-class videos, in a format that is easy to
+;; access from Lisp. I am just starting to play with this, and the
+;; functions that transform the data in this variable into other
+;; formats don't exist yet. EVERYTHING HERE WILL PROBABLY CHANGE.
+
+(defvar ee-1stclassvideos-info
+ '(;;
+ ;; «eev2019» (to ".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";
+ :yt "http://www.youtube.com/watch?v=86yiRG8YJD0";
+ :page "http://angg.twu.net/emacsconf2019.html";)
+ ;;
+ ;; «eev2020» (to ".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";
+ :yt "http://www.youtube.com/watch?v=hOAqBc42Gg8";
+ :page "http://angg.twu.net/emacsconf2020.html";)
+ ;;
+ ;; «eevnav» (to ".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";
+ :yt "http://www.youtube.com/watch?v=kxBjiUo88_U";
+ :page "http://angg.twu.net/2020-list-packages-eev-nav.html";)
+ ;;
+ ;; «eevtempl» (to ".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";
+ :yt "http://www.youtube.com/watch?v=91-9YfRPsuk";
+ :page "http://angg.twu.net/2020-some-template-based.html";)
+ ;;
+ ;; «fherel» (to ".fherel")
+ ("fherel"
+ :title "How to create hyperlinks to \"here\" with `find-here-links'"
+ :mp4 "http://angg.twu.net/eev-videos/2020-find-here-links.mp4";
+ :yt "http://www.youtube.com/watch?v=8jtiBlaDor4";
+ :page "http://angg.twu.net/2020-find-here-links.html";)
+ ;;
+ ;; «eevtestbls» (to ".eevtestbls")
+ ("eevtestbls"
+ :title "Using test blocks in eev"
+ :mp4 "http://angg.twu.net/eev-videos/2021-test-blocks.mp4";
+ :yt "http://www.youtube.com/watch?v=fpsF_M55W4o";
+ :page "http://angg.twu.net/2021-test-blocks.html";)
+ ;;
+ ;; :title "Short videos about workflows - and how to upload them"
+ ;; :page "http://angg.twu.net/2021-ssr.html";
+ ;; ^ bad & obsolete
+ ;;
+ ;; «eevvlinks» (to ".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";
+ :yt "http://www.youtube.com/watch?v=xQqWufQgzVY";
+ :page "http://angg.twu.net/2021-video-links.html";)
+ ;;
+ ;; «oficina2021a» (to ".oficina2021a")
+ ("oficina2021a"
+ :title "Como instalar o eev no Emacs"
+ :mp4 "http://angg.twu.net/eev-videos/2021-oficina-1.mp4";
+ :yt "http://www.youtube.com/watch?v=acFPMuZ5Jf4";
+ :page "http://angg.twu.net/2021-oficina.html";
+ :lang "portuguese")
+ ;;
+ ;; «oficina2021b» (to ".oficina2021b")
+ (oficina2021b
+ :title "Exercícios de criar e guardar links (1)"
+ :mp4 "http://angg.twu.net/eev-videos/2021-oficina-2.mp4";
+ :yt "https://www.youtube.com/watch?v=XbuDnkfizYs";
+ :page "http://angg.twu.net/2021-oficina.html";
+ :lang "portuguese")
+ ;;
+ ))
+
+
+
;;; _ _ _
;;; ___ ___ __| | ___ ___ _____ ____ _(_) __| | ___ ___
@@ -427,7 +524,7 @@ and: (find-video-links-intro \"7. `find-eev-video'\")
;; See: (find-video-links-intro \"7. `find-eev-video'\"
\"`find-eevlocal-video'\")
;; (find-video-links-intro \"7. `find-eev-video'\"
\"`find-eevlinks-video'\")
;;
-(defun find-{c}video (time &rest comments)
+(defun find-{c}video (&optional time &rest comments)
(interactive)
(find-eev{mod}-video \"{stem}\" \"{hash}\" time))
"))
diff --git a/eev.el b/eev.el
index d3c830f..28170d0 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: 20211109
+;; Version: 20211110
;; 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
