[elpa] externals/eev 702ae78cf6: Added this video: (find-1stclassvideo-links "oficina20210")

[ELPA Syncer]

branch: externals/eev
commit 702ae78cf6ef062f4638ac3e03aad5a6e9107852
Author: Eduardo Ochs <eduardoochs@gmail.com>
Commit: Eduardo Ochs <eduardoochs@gmail.com>

    Added this video: (find-1stclassvideo-links "oficina20210")
---
 ChangeLog         |  4 ++++
 VERSION           |  4 ++--
 eev-elinks.el     |  2 +-
 eev-tlinks.el     |  3 ++-
 eev-videolinks.el | 33 +++++++++++++++++++++++++++------
 5 files changed, 36 insertions(+), 10 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 83d15f3990..77020d68c5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2022-02-13  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eev-videolinks.el (find-oficina20210video): new function.
+
 2022-02-12  Eduardo Ochs  <eduardoochs@gmail.com>
 
        * eev-tlinks.el (ee-find-1stclassvideo-links): changed the part of
diff --git a/VERSION b/VERSION
index 9a8d8433e0..d6e64cce75 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Sat Feb 12 04:24:38 GMT 2022
-Sat Feb 12 01:24:38 -03 2022
+Sun Feb 13 07:50:10 GMT 2022
+Sun Feb 13 04:50:10 -03 2022
diff --git a/eev-elinks.el b/eev-elinks.el
index cd38a76410..ac400f116b 100644
--- a/eev-elinks.el
+++ b/eev-elinks.el
@@ -1098,7 +1098,7 @@ means."
          (bg (face-background face-symbol)))
     (apply
      'find-elinks
-     `((find-eface-links ,face-symbol ,@pos-spec-list)
+     `((find-eface-links ',face-symbol ,@pos-spec-list)
        ;; Convention: the first sexp always regenerates the buffer.
        (find-efunction 'find-eface-links)
        ""
diff --git a/eev-tlinks.el b/eev-tlinks.el
index a74dbf559e..f899c82b39 100644
--- a/eev-tlinks.el
+++ b/eev-tlinks.el
@@ -2754,7 +2754,8 @@ This function is used by `ee-0x0-upload-region'."
 "Visit a temporary buffer containing stuff for a first-class video."
   (interactive (list (ee-1stclassvideo-around-point-ask)))
   (setq c (or c "{c}"))
-  (let* ((body (if (member c (ee-1stclassvideos))
+  (let* ((ee-buffer-name (or ee-buffer-name "*find-1stclassvideo-links*"))
+        (body (if (member c (ee-1stclassvideos))
                   (ee-find-1stclassvideo-links c)
                 ";; Not in: (ee-1stclassvideos)")))
     (apply
diff --git a/eev-videolinks.el b/eev-videolinks.el
index 7aae6f1131..1dfb57fb09 100644
--- a/eev-videolinks.el
+++ b/eev-videolinks.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version:    20220210
+;; Version:    20220213
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-videolinks.el>
@@ -48,7 +48,9 @@
 ;;   «.find-eevfherelvideo»            (to "find-eevfherelvideo")
 ;;   «.find-eevtestblsvideo»           (to "find-eevtestblsvideo")
 ;;   «.find-eevvlinksvideo»            (to "find-eevvlinksvideo")
+;;   «.find-oficina20210video»         (to "find-oficina20210video")
 ;;   «.find-oficina2021avideo»         (to "find-oficina2021avideo")
+;;   «.find-oficina2021bvideo»         (to "find-oficina2021bvideo")
 ;;   «.find-2021ssrvideo»              (to "find-2021ssrvideo")
 ;;   «.find-2021workshop1video»                (to "find-2021workshop1video")
 ;;   «.find-2021workshop2video»                (to "find-2021workshop2video")
@@ -71,6 +73,7 @@
 ;;   «.eevfherel»                      (to "eevfherel")
 ;;   «.eevtestbls»                     (to "eevtestbls")
 ;;   «.eevvlinks»                      (to "eevvlinks")
+;;   «.oficina20210»                   (to "oficina20210")
 ;;   «.oficina2021a»                   (to "oficina2021a")
 ;;   «.oficina2021b»                   (to "oficina2021b")
 ;;   «.2021ssr»                                (to "2021ssr")
@@ -395,6 +398,16 @@ For more info on this particular video, run:
   (interactive)
   (find-eev-video "2021-video-links" "xQqWufQgzVY" time))
 
+;; «find-oficina20210video»  (to ".find-oficina20210video")
+;; Info: (find-1stclassvideo-links "oficina20210")
+;; Play: (find-oficina20210video "0:00")
+(defun find-oficina20210video (&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 \"oficina20210\")"
+  (interactive)
+  (find-eev-video "2021projeto-de-ensino" "OW6WRnSQwc0" time))
+
 ;; «find-oficina2021avideo»  (to ".find-oficina2021avideo")
 ;; Info: (find-1stclassvideo-links "oficina2021a")
 ;; Play: (find-oficina2021avideo "0:00")
@@ -405,7 +418,7 @@ For more info on this particular video, run:
   (interactive)
   (find-eev-video "2021-oficina-1" "acFPMuZ5Jf4" time))
 
-;; «find-oficina2021bvideo»  (to ".find-oficina2021avideo")
+;; «find-oficina2021bvideo»  (to ".find-oficina2021bvideo")
 ;; Info: (find-1stclassvideo-links "oficina2021b")
 ;; Play: (find-oficina2021bvideo "0:00")
 (defun find-oficina2021bvideo (&optional time &rest rest)
@@ -646,10 +659,6 @@ For more info on this particular video, run:
      :length  "4:45"
      :comment "My first video on test blocks. Watch the video `eev2021' 
instead.")
     ;;
-    ;; :title "Short videos about workflows - and how to upload them"
-    ;; :page  "http://angg.twu.net/2021-ssr.html";
-    ;; ^ bad & obsolete
-    ;;
     ;; «eevvlinks»  (to ".eevvlinks")
     ;; Play: (find-eevvlinksvideo "0:00")
     ("eevvlinks"
@@ -661,6 +670,18 @@ For more info on this particular video, run:
      :length  "14:56"
      :comment "A very good tutorial on how the `(find-*video)' links work.")
     ;;
+    ;; «oficina20210»  (to ".oficina20210")
+    ;; Play: (find-oficina20210video "0:00")
+    ("oficina20210"
+     :title "Introdução ao Software Livre: Python, Shell, Lua, Emacs, eev"
+     :mp4   "http://angg.twu.net/eev-videos/2021projeto-de-ensino.mp4";
+     :yt    "http://www.youtube.com/watch?v=OW6WRnSQwc0";
+     :page  "http://angg.twu.net/2021-oficina.html";
+     :lang  "portuguese"
+     :date    "2021sep05"
+     :length  "1:27:01"
+     :comment "A (long) non-technical introduction to Free Software, Emacs, 
and eev.")
+    ;;
     ;; «oficina2021a»  (to ".oficina2021a")
     ;; Play: (find-oficina2021avideo "0:00")
     ("oficina2021a"