branch: externals/eev
commit a0cfda8ee7ef8f2f9df1ca57183ccfcf7b6dca0a
Author: Eduardo Ochs <eduardoo...@gmail.com>
Commit: Eduardo Ochs <eduardoo...@gmail.com>
Added `find-2021ffllvideo'.
---
ChangeLog | 4 ++++
VERSION | 4 ++--
eev-blinks.el | 4 +++-
eev-elinks.el | 10 +++++++++-
eev-tlinks.el | 28 +++++++++++++++-------------
eev-videolinks.el | 36 ++++++++++++++++++++++++++++++------
eev.el | 2 +-
7 files changed, 64 insertions(+), 24 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 26f369ad9c..4d077bf212 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2021-12-26 Eduardo Ochs <eduardoo...@gmail.com>
+
+ * eev-videolinks.el (find-2021ffllvideo): new function.
+
2021-12-19 Eduardo Ochs <eduardoo...@gmail.com>
* eev-elinks.el (find-ekbmacro-links): small changes.
diff --git a/VERSION b/VERSION
index a78b58f954..f2b2b581a3 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Sun Dec 19 19:50:42 GMT 2021
-Sun Dec 19 16:50:42 -03 2021
+Sun Dec 26 14:19:36 GMT 2021
+Sun Dec 26 11:19:36 -03 2021
diff --git a/eev-blinks.el b/eev-blinks.el
index f6614d285f..ee429056cf 100644
--- a/eev-blinks.el
+++ b/eev-blinks.el
@@ -21,7 +21,7 @@
;;
;; Author: Eduardo Ochs <eduardoo...@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoo...@gmail.com>
-;; Version: 20211219
+;; Version: 20211220
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-blinks.el>
@@ -105,6 +105,8 @@
;;;
;; «eek» (to ".eek")
;; See: (find-eev-quick-intro "3. Elisp hyperlinks" "eek")
+;; (find-efunctiondescr 'edmacro-mode)
+;; (find-ekbmacro-links)
(defun eek (str)
"Execute STR as a keyboard macro. See `edmacro-mode' for the exact format.\n
diff --git a/eev-elinks.el b/eev-elinks.el
index 92abe0d8bc..14a68c261d 100644
--- a/eev-elinks.el
+++ b/eev-elinks.el
@@ -19,7 +19,7 @@
;;
;; Author: Eduardo Ochs <eduardoo...@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoo...@gmail.com>
-;; Version: 20211219
+;; Version: 20211220
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-elinks.el>
@@ -1082,6 +1082,9 @@ means."
;; Convention: the first sexp always regenerates the buffer.
(find-efunction 'find-eface-links)
""
+ (find-enode "Faces")
+ (find-elnode "Faces")
+ ""
(find-efacedescr ',face-symbol)
(find-efaces ',face-symbol)
(find-eface ',face-symbol)
@@ -1160,6 +1163,9 @@ to understand how this is used. ARG is usually
;; Convention: the first sexp always regenerates the buffer.
(find-efunction 'find-ecolor-links)
""
+ (find-enode "Colors")
+ (find-elnode "Color Names")
+ ""
(find-ecolor-links (ee-color-choose-tk ,(or initialcolor "gray")))
(find-ecolor-links ,(or initialcolor "gray"))
(find-ecolors)
@@ -1260,6 +1266,7 @@ If D is t then try to use `ee-package-dir' to get the
directory."
# (find-{c}file \"\")
# http://elpa.gnu.org/packages/{pkg}.html
+# http://elpa.nongnu.org/nongnu/{pkg}.html
# http://melpa.org/#/{pkg}
")))
@@ -1457,6 +1464,7 @@ Convert PKG - a symbol - to a package-desc structure (or
to nil)."
(find-enode "Keyboard Macros")
(find-enode "Save Keyboard Macro")
(find-enode "Edit Keyboard Macro")
+ (find-efunctiondescr 'edmacro-mode)
(eek "M-h M-k C-x C-k C-e ;; kmacro-edit-macro-repeat")
(eek " C-x C-k C-e ;; kmacro-edit-macro-repeat")
(eek "M-h M-k C-x C-k l ;; kmacro-edit-lossage")
diff --git a/eev-tlinks.el b/eev-tlinks.el
index 731f7cccdf..736c4c4f2a 100644
--- a/eev-tlinks.el
+++ b/eev-tlinks.el
@@ -93,7 +93,7 @@
;; «.code-psnevideo» (to "code-psnevideo")
;; «.code-eevvideo» (to "code-eevvideo")
;; «.code-eevvideo-local» (to "code-eevvideo-local")
-;; «.hardcoded-paths» (to "hardcoded-paths")
+;; «.hardcoded-paths» (to "hardcoded-paths")
;; «.find-eev-video-links» (to "find-eev-video-links")
;; «.find-eevshortvideo-links» (to "find-eevshortvideo-links")
;;
@@ -343,11 +343,11 @@ This is an internal function used by
`find-{stem}-links'.\"
(setq vars (or vars "{vars}"))
(apply 'find-elinks-elisp
`((find-find-links-links-new ,stem ,args ,vars ,@pos-spec-list)
+ (find-find-links-links-new)
(find-find-links-links-new "mytaskA" "" "")
(find-find-links-links-new "mytaskB" "foo" "")
(find-find-links-links-new "mytaskC" "foo bar" "")
(find-find-links-links-new "mytaskD" "foo bar baz" "plic bletch")
- (find-find-links-links-new)
;; Convention: the first sexp always regenerates the buffer.
(find-efunction 'find-find-links-links-new)
""
@@ -1891,19 +1891,24 @@ and: (find-video-links-intro \\\"7.
`find-eev-video'\\\")
;;; |_| |_|_| |_|\__,_| |_|\__,_|\__\___/_/\_\ |_|_|_| |_|_|\_\___/
;;;
;; «find-latex-links» (to ".find-latex-links")
-;; See:
-;; (find-eev-quick-intro "7.5. `find-latex-links'")
-
+;; Skel: (find-find-links-links-new "latex" "stem" "stem-")
+;; Tests: (find-latex-links)
+;; (find-latex-links "/tmp/foo")
+;; (find-latex-links "/tmp/foo" 2)
+;; (find-latex-links "/tmp/foo" 2 "copy-rest")
+;; See: (find-eev-quick-intro "7.5. `find-latex-links'")
+;;
(defun find-latex-links (&optional stem &rest pos-spec-list)
"Visit a temporary buffer containing a template for creating a LaTeX document."
(interactive)
(setq stem (or stem "{stem}"))
- (let ((stem- (file-name-nondirectory stem)))
- (apply 'find-elinks
+ (let* ((stem- (file-name-nondirectory stem)))
+ (apply
+ 'find-elinks
`((find-latex-links ,stem ,@pos-spec-list)
(find-latex-links "/tmp/test")
;; Convention: the first sexp always regenerates the buffer.
- ;; (find-efunction 'find-latex-links)
+ (find-efunction 'find-latex-links)
(find-eev-quick-intro "7.5. `find-latex-links'")
(find-eev-quick-intro "7.5. `find-latex-links'" "change the \"{stem}\"")
(find-eev-quick-intro "7.5. `find-latex-links'" "top line")
@@ -1923,14 +1928,11 @@ and: (find-video-links-intro \\\"7.
`find-eev-video'\\\")
\\documentclass{<}article{>}
\\begin{<}document{>}
-\\end{<}document{>}")
+\\end{<}document{>}
+")
)
pos-spec-list)))
-;; Tests: (find-latex-links)
-;; (find-latex-links "/tmp/foo")
-;; (find-latex-links "/tmp/foo" 2)
-;; (find-latex-links "/tmp/foo" 2 "copy-rest")
diff --git a/eev-videolinks.el b/eev-videolinks.el
index 8ce4435a7a..746e228b8e 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: 20211211
+;; Version: 20211226
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-videolinks.el>
@@ -54,6 +54,7 @@
;; «.find-2021workshop5video» (to "find-2021workshop5video")
;; «.find-2021workshop6video» (to "find-2021workshop6video")
;; «.find-2021orgfornonusersvideo» (to "find-2021orgfornonusersvideo")
+;; «.find-2021ffllvideo» (to "find-2021ffllvideo")
;; «.more-info» (to "more-info")
;; «.ee-1stclassvideos-info» (to "ee-1stclassvideos-info")
;; «.eev2019» (to "eev2019")
@@ -73,6 +74,7 @@
;; «.2021workshop5» (to "2021workshop5")
;; «.2021workshop6» (to "2021workshop6")
;; «.2021orgfornonusers» (to "2021orgfornonusers")
+;; «.2021ffll» (to "2021ffll")
;; «.ee-1stclassvideos-field» (to "ee-1stclassvideos-field")
;; «.second-class-videos» (to "second-class-videos")
;; «.code-eevvideo» (to "code-eevvideo")
@@ -524,6 +526,21 @@ and: (find-video-links-intro \"7. \" \"find-eev-video\")
(interactive)
(find-eev-video "2021-org-for-non-users" "Eh5Wz9Vh_XM" time))
+;; «find-2021ffllvideo» (to ".find-2021ffllvideo")
+;; Skel: (find-1stclassvideo-links "2021ffll")
+;; Tests: (find-2021ffllvideo "0:00")
+;; (find-efunctiondescr 'find-2021ffllvideo)
+(defun find-2021ffllvideo (&optional time &rest rest)
+ "Play one of the video tutorials of eev starting at TIME.
+See: (find-eev \"eev-videolinks.el\" \"2021ffll\")
+ http://angg.twu.net/eev-current/eev-videolinks.el.html#eev2020
+ for more info on this particular video,
+and: (find-video-links-intro \"7. \" \"find-eev-video\")
+ or: http://angg.twu.net/eev-intros/find-video-links-intro.html#7
+ for more info on these video tutorials."
+ (interactive)
+ (find-eev-video "2021-ffll" "h1CEL2fmkyc" time))
+
@@ -637,35 +654,35 @@ and: (find-video-links-intro \"7. \" \"find-eev-video\")
: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";
:yt "http://www.youtube.com/watch?v=hqqIlZBXNhk";
- :page "http://angg.twu.net/emacsconf2021.html";)
+ :page "http://angg.twu.net/2021-workshop.html";)
;;
;; «2021workshop3» (to ".2021workshop3")
("2021workshop3"
:title "Material on `M-3 M-e' (workshop 2021-dec-04)"
:mp4 "http://angg.twu.net/eev-videos/2021-workshop-3.mp4";
:yt "http://www.youtube.com/watch?v=r83inf9s8zo";
- :page "http://angg.twu.net/emacsconf2021.html";)
+ :page "http://angg.twu.net/2021-workshop.html";)
;;
;; «2021workshop4» (to ".2021workshop4")
("2021workshop4"
:title "Invisible text (workshop 2021-dec-04)"
:mp4 "http://angg.twu.net/eev-videos/2021-workshop-4.mp4";
:yt "http://www.youtube.com/watch?v=lhpHHjBUxv8";
- :page "http://angg.twu.net/emacsconf2021.html";)
+ :page "http://angg.twu.net/2021-workshop.html";)
;;
;; «2021workshop5» (to ".2021workshop5")
("2021workshop5"
:title "Copy from left to right (workshop 2021-dec-04)"
:mp4 "http://angg.twu.net/eev-videos/2021-workshop-5.mp4";
:yt "http://www.youtube.com/watch?v=VzRsterVSXs";
- :page "http://angg.twu.net/emacsconf2021.html";)
+ :page "http://angg.twu.net/2021-workshop.html";)
;;
;; «2021workshop6» (to ".2021workshop6")
("2021workshop6"
:title "`find-extra-file-links' (workshop 2021-dec-04)"
:mp4 "http://angg.twu.net/eev-videos/2021-workshop-6.mp4";
:yt "http://www.youtube.com/watch?v=-gi15-liGaU";
- :page "http://angg.twu.net/emacsconf2021.html";)
+ :page "http://angg.twu.net/2021-workshop.html";)
;;
;; «2021orgfornonusers» (to ".2021orgfornonusers")
("2021orgfornonusers"
@@ -674,6 +691,13 @@ and: (find-video-links-intro \"7. \" \"find-eev-video\")
:yt "http://www.youtube.com/watch?v=Eh5Wz9Vh_XM";
:page "http://angg.twu.net/2021-org-for-non-users.html";)
;;
+ ;; «2021ffll» (to ".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";
+ :yt "http://www.youtube.com/watch?v=h1CEL2fmkyc";
+ :page "http://angg.twu.net/2021-ffll.html";)
+ ;;
))
diff --git a/eev.el b/eev.el
index 4800d292bf..449d5c4311 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: 20211216
+;; Version: 20211226
;; 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
