branch: externals/eev
commit 9019554599f37803fac0bfeb4efad77f024209ef
Author: Eduardo Ochs <eduardoo...@gmail.com>
Commit: Eduardo Ochs <eduardoo...@gmail.com>
Added `find-2022eevwconfigvideo'.
---
ChangeLog | 13 +++++++++++++
VERSION | 4 ++--
eev-audiovideo.el | 2 +-
eev-elinks.el | 4 ++++
eev-tlinks.el | 2 +-
eev-videolinks.el | 27 ++++++++++++++++++++++++++-
eev-wconfig.el | 47 +++++++++++++++++++++++++++++++++++++++++------
eev.el | 2 +-
8 files changed, 89 insertions(+), 12 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 6b76169691..d57e745212 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,16 @@
+2022-05-18 Eduardo Ochs <eduardoo...@gmail.com>
+
+ * eev-audiovideo.el (ee-time-to-youtube-time): fixed a bug.
+
+2022-05-15 Eduardo Ochs <eduardoo...@gmail.com>
+
+ * eev-videolinks.el (find-2022eevwconfigvideo): new function.
+ (ee-1stclassvideos-info): added an entry for "2022eevwconfig".
+
+2022-05-14 Eduardo Ochs <eduardoo...@gmail.com>
+
+ * eev-elinks.el (find-eface-links): added some items.
+
2022-05-12 Eduardo Ochs <eduardoo...@gmail.com>
* eev-videolinks.el (find-eev2019video, find-eev2020video)
diff --git a/VERSION b/VERSION
index 93b8cd4a69..abb38c22af 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Thu May 12 07:56:36 GMT 2022
-Thu May 12 04:56:36 -03 2022
+Wed May 18 06:39:49 GMT 2022
+Wed May 18 03:39:49 -03 2022
diff --git a/eev-audiovideo.el b/eev-audiovideo.el
index 0ebdd94e28..aa0cd96aa6 100644
--- a/eev-audiovideo.el
+++ b/eev-audiovideo.el
@@ -255,7 +255,7 @@ default is \"#\", but in some situations we need \"&\"
instead."
(format "%st=%sm%ss" c (match-string 1 str) (match-string 2 str)))
((string-match "^\\([0-9]+\\):\\([0-9][0-9]\\):\\([0-9][0-9]\\)$"
str)
(format "%st=%sh%sm%ss" c (match-string 1 str) (match-string 2 str)
- (match-string 2 str))))))
+ (match-string 3 str))))))
;; Tests: (ee-time-to-arg "")
;; (ee-time-to-arg nil)
diff --git a/eev-elinks.el b/eev-elinks.el
index a5bf30db5a..dc93a2eade 100644
--- a/eev-elinks.el
+++ b/eev-elinks.el
@@ -1113,6 +1113,7 @@ means."
(find-efacedescr ',face-symbol)
(find-efaces ',face-symbol)
(find-eface ',face-symbol)
+ (describe-face ',face-symbol)
(customize-face ',face-symbol)
(set-face-foreground ',face-symbol ,fg)
(set-face-background ',face-symbol ,bg)
@@ -1121,6 +1122,9 @@ means."
(find-ecolor-links ,bg)
(find-ecolors)
""
+ (face-all-attributes ',face-symbol (selected-frame))
+ (find-epp (face-all-attributes ',face-symbol (selected-frame)))
+ ""
(face-id ',face-symbol)
(find-epp (mapcar (lambda (face) (cons (face-id face) face))
(face-list)))
)
diff --git a/eev-tlinks.el b/eev-tlinks.el
index 649742b595..d1b3e00a6c 100644
--- a/eev-tlinks.el
+++ b/eev-tlinks.el
@@ -3213,7 +3213,7 @@ This function is used by `ee-0x0-upload-region'."
For more info on this particular video, run:
(find-1stclassvideo-links \\\"{c}\\\")\"
(interactive)
- (find-eev-video \"{mp4stem}\" \"{hash}\" time))
+ (find-1stclassvideo-video \"{c}\" time))
"))
;; Tests: (ee-1stclassvideos-dlsubs "2022pict2elua")
diff --git a/eev-videolinks.el b/eev-videolinks.el
index 260224f82b..0a89c3b36e 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: 20220512
+;; Version: 20220518
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-videolinks.el>
@@ -66,6 +66,7 @@
;; «.find-2022pict2eluavideo» (to "find-2022pict2eluavideo")
;; «.find-2022eevwconfigpt1video» (to "find-2022eevwconfigpt1video")
;; «.find-2022eevwconfigpt2video» (to "find-2022eevwconfigpt2video")
+;; «.find-2022eevwconfigvideo» (to "find-2022eevwconfigvideo")
;; «.more-info» (to "more-info")
;; «.ee-1stclassvideos-info» (to "ee-1stclassvideos-info")
;; «.eev2019» (to "eev2019")
@@ -94,6 +95,7 @@
;; «.2022pict2elua» (to "2022pict2elua")
;; «.2022eevwconfigpt1» (to "2022eevwconfigpt1")
;; «.2022eevwconfigpt2» (to "2022eevwconfigpt2")
+;; «.2022eevwconfig» (to "2022eevwconfig")
;; «.ee-1stclassvideos-field» (to "ee-1stclassvideos-field")
;; «.second-class-videos» (to "second-class-videos")
;; «.code-eevvideo» (to "code-eevvideo")
@@ -594,6 +596,16 @@ For more info on this particular video, run:
(interactive)
(find-1stclassvideo-video "2022eevwconfigpt2" time))
+;; «find-2022eevwconfigvideo» (to ".find-2022eevwconfigvideo")
+;; Info: (find-1stclassvideo-links "2022eevwconfig")
+;; Play: (find-2022eevwconfigvideo "0:00")
+(defun find-2022eevwconfigvideo (&optional time &rest rest)
+ "Play one of the first-class videos of eev starting at TIME.
+For more info on this particular video, run:
+ (find-1stclassvideo-links \"2022eevwconfig\")"
+ (interactive)
+ (find-1stclassvideo-video "2022eevwconfig" time))
+
@@ -957,6 +969,19 @@ For more info on this particular video, run:
:length "46:00"
:comment "A video in Portuguese about eev-wconfig.el - second part.")
;;
+ ;; «2022eevwconfig» (to ".2022eevwconfig")
+ ;; Play: (find-2022eevwconfigvideo "0:00")
+ ;; Index: (find-1stclassvideoindex "2022eevwconfig")
+ ("2022eevwconfig"
+ :title "Eev-config.el: a way without \"magic\" to configure eev on M$
Windows"
+ :mp4 "http://angg.twu.net/eev-videos/2022-eev-wconfig.mp4";
+ :yt "http://www.youtube.com/watch?v=Rm29XSdGCXw";
+ :page "http://angg.twu.net/eev-wconfig.html";
+ :date "2022may15"
+ :length "1:15:48"
+ :subs ".vtt"
+ :comment "This is mainly for beginners who use Windows.")
+ ;;
))
diff --git a/eev-wconfig.el b/eev-wconfig.el
index a705ad93c4..113d318a26 100644
--- a/eev-wconfig.el
+++ b/eev-wconfig.el
@@ -19,7 +19,7 @@
;;
;; Author: Eduardo Ochs <eduardoo...@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoo...@gmail.com>
-;; Version: 20220501
+;; Version: 20220516
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-wconfig.el>
@@ -47,6 +47,7 @@
;; (find-psne-intro "1. Local copies of files from the internet" "wget")
;; (find-video-links-intro "1. Introduction")
;; (find-video-links-intro "1. Introduction" "[Video links:]")
+;; (find-video-links-intro "5.1. Subtitles")
;; (find-audiovideo-intro "4.3. A demo")
;; (find-audiovideo-intro "4.3. A demo" "mpv")
;; (find-pdf-like-intro "3. Hyperlinks to PDF files")
@@ -72,9 +73,13 @@
;; "Any sufficiently advanced technology
;; is indistinguishable from magic"
;;
-;; Here I will use the term "magic" as a shorthand for "black box".
-;; A black box that is hard to open, and hard to look inside, is an
-;; "advanced technology that is indistinguishable from magic".
+;; Here I will use the term "magic" as a shorthand for a "sufficiently
+;; advanced technology", i.e., something complex and non-obvious,
+;; "that is indistinguishable from magic", in the sense of being
+;; almost impossible to understand. I will also use "black box" as a
+;; near-synonym for "magic"; "black box" has more letters than
+;; "magic", but it invites us to use expressions like "opening the
+;; black box".
;;
;; In dec/2021 I recorded a video, called "Org for Non-Users",
;;
@@ -199,6 +204,11 @@
(find-wconfig-magic-links)
+
+;; Exercise: Learn Org!
+
+(find-wconfig-exercises-links)
+
")
)
pos-spec-list)))
@@ -883,16 +893,41 @@ See the variable `ee-wconfig-magic-code'."
(find-efunction 'find-wconfig-exercises-links)
""
,(ee-template0 "\
+;; Exercise: learn Org!
+;; See: http://angg.twu.net/eev-wconfig.html
+;; http://angg.twu.net/eev-wconfig.html#learn-org
+
+
;; 1. Understand `code-c-d'
;; ========================
+;; (find-eev-quick-intro \"9. Shorter hyperlinks\")
+;; (find-eev-quick-intro \"9. Shorter hyperlinks\" \"[Video links:]\")
+;; (find-eev-quick-intro \"9.1. `code-c-d'\")
;; 2. Download the .zip
+;; ====================
+;; From:
+;; http://angg.twu.net/eev-wconfig.html#learn-org
+;; and unpack it.
+
+;; 3. Create a link to the directory
+;; =================================
+;; Something like:
+;; (find-fline \"C:/I/unpacked/the/videos/here/\")
+;; This may help:
+;; (find-enode \"Dired\")
;; 3. Understand `M-h M-e'
;; =======================
+;; See: (find-audiovideo-intro \"4.1. `find-extra-file-links'\")
+;; and use that to create links like these:
+
+(code-c-d \"rainerkoenig\" \"C:/I/unpacked/the/videos/here/\")
+;; (find-rainerkoenigfile \"\")
+(code-video \"E02S01video\" \".../OrgMode_E02S01_-_Tags-GcUVvlClo9k.webm\")
+;; (find-E02S01video \"0:00\")
+
-;; Exercise: learn Org!
-;; See: http://angg.twu.net/eev-wconfig.el#learn-org
")
)
diff --git a/eev.el b/eev.el
index 83252aeda1..fedbbd3443 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: 20220416
+;; Version: 20220518
;; 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
