[elpa] externals/eev 23e4e26: New functions: ee-use-youtube-videos and ee-use-local-videos.

[ELPA Syncer]

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

    New functions: ee-use-youtube-videos and ee-use-local-videos.
---
 ChangeLog         |   8 ++-
 VERSION           |   4 +-
 eev-on-windows.el |  11 +--
 eev-tlinks.el     |  47 +++++++++++++
 eev-videolinks.el | 205 ++++++++++++++++++++++++++++--------------------------
 eev.el            |   2 +-
 6 files changed, 168 insertions(+), 109 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index f16edf9..7e5c219 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,7 +1,11 @@
+2021-11-08  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eev-tlinks.el (find-eevvideo-1stclass-links): new function.
+
 2021-11-07  Eduardo Ochs  <eduardoochs@gmail.com>
 
-       * eev-videolinks.el (ee-use-eevyoutube-video)
-       (ee-use-eevlocal-video): new functions.
+       * eev-videolinks.el (ee-use-youtube-videos)
+       (ee-use-local-videos): new functions.
 
        * eev-audiovideo.el (ee-use-find-youtube-video)
        (ee-use-find-eevvideo-links): deleted.
diff --git a/VERSION b/VERSION
index e8d9dc6..359b346 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Mon Nov  8 02:56:07 GMT 2021
-Sun Nov  7 23:56:07 -03 2021
+Mon Nov  8 03:26:31 GMT 2021
+Mon Nov  8 00:26:31 -03 2021
diff --git a/eev-on-windows.el b/eev-on-windows.el
index 090ca4c..e452b81 100644
--- a/eev-on-windows.el
+++ b/eev-on-windows.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version:    20211101
+;; Version:    20211107
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-on-windows.el>
@@ -205,7 +205,8 @@
   (setq ee-mpv-program          "$MPVDIR/mpv.exe")
   (defalias 'find-pdf-page 'find-googlechrome-page)
   (ee-use-find-angg-es-remote)
-  (ee-use-find-youtube-video)
+  ;; (ee-use-find-youtube-video)
+  (ee-use-youtube-videos)
   )
 
 (defun ee-use-gnu-linux ()
@@ -220,7 +221,8 @@
   (setq ee-googlechrome-program "google-chrome")
   (setq ee-mpv-program          "mpv")
   (ee-use-find-angg-es-local)
-  (ee-use-find-eevvideo-links)
+  ;; (ee-use-find-eevvideo-links)
+  (ee-use-local-videos)
   )
 
 (defun ee-use-gnu-linux-but-simulate ()
@@ -235,7 +237,8 @@
   (setq ee-googlechrome-program "google-chrome")
   (setq ee-mpv-program          "mpv")
   (ee-use-find-angg-es-remote)
-  (ee-use-find-youtube-video)
+  ;; (ee-use-find-youtube-video)
+  (ee-use-youtube-videos)
   )
 
 
diff --git a/eev-tlinks.el b/eev-tlinks.el
index 46b230e..a7563ab 100644
--- a/eev-tlinks.el
+++ b/eev-tlinks.el
@@ -95,6 +95,7 @@
 ;; «.find-red-star-links»              (to "find-red-star-links")
 ;; «.find-eepitch-bullet-links»                (to "find-eepitch-bullet-links")
 ;; «.find-angg-es-links»               (to "find-angg-es-links")
+;; «.find-eevvideo-1stclass-links»     (to "find-eevvideo-1stclass-links")
 
 
 (require 'eev-env)
@@ -2665,6 +2666,52 @@ This function is used by `ee-0x0-upload-region'."
 
 
 
+;; «find-eevvideo-1stclass-links»  (to ".find-eevvideo-1stclass-links")
+;; Skel: (find-find-links-links-new "eevvideo-1stclass" "c" "")
+;;  See: (find-eev "eev-videolinks.el" "first-class-videos")
+;;       (find-eev "eev-videolinks.el" "second-class-videos")
+;; Tests: (find-eevvideo-1stclass-links "eev2019")
+;;        (find-eevvideo-1stclass-links "eev2020")
+;;
+(defun find-eevvideo-1stclass-links (&optional c &rest pos-spec-list)
+"Visit a temporary buffer containing hyperlinks for a first-class video."
+  (interactive)
+  (setq c (or c "{c}"))
+  (apply
+   'find-elinks-elisp
+   `((find-eevvideo-1stclass-links ,c ,@pos-spec-list)
+     ;; Convention: the first sexp always regenerates the buffer.
+     (find-efunction 'find-eevvideo-1stclass-links)
+     ""
+     ,(ee-template0 "\
+;; Definition of the function:
+;; (find-eev \"eev-videolinks.el\" \"first-class-videos\")
+;; (find-eev \"eev-videolinks.el\" \"find-{c}video\")
+;; (find-efunction 'find-{c}video)
+
+;; Play:
+;; (find-{c}video \"0:00\")
+
+;; Index with time marks:
+;; (find-angg \".emacs.videos\" \"{c}\")
+;; http://angg.twu.net/.emacs.videos.html#{c}
+
+;; Places with more info about this video:
+;; (find-angg \".emacs.templates\" \"eev-videos-data\" \"{c}\")
+;; http://angg.twu.net/.emacs.templates.html#eev-videos-data
+;; (find-videos-intro \"1. Some videos\" \"{c}\")
+
+;; See:
+;; (find-eev \"eev-videolinks.el\" \"first-class-videos\")
+;; (find-eev \"eev-videolinks.el\" \"second-class-videos\")
+")
+     )
+   pos-spec-list))
+
+
+
+
+
 
 (provide 'eev-tlinks)
 
diff --git a/eev-videolinks.el b/eev-videolinks.el
index bc73fc4..7ff549e 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:    20211027
+;; Version:    20211108
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-videolinks.el>
@@ -35,11 +35,10 @@
 ;; «.find-eev-video»           (to "find-eev-video")
 ;; «.find-eevlocal-links»      (to "find-eevlocal-links")
 ;; «.select»                   (to "select")
-;;   «.ee-use-eevyoutube-video»        (to "ee-use-eevyoutube-video")
-;;   «.ee-use-eevlocal-video»  (to "ee-use-eevlocal-video")
-;; «.code-eevvideo»            (to "code-eevvideo")
+;;   «.ee-use-youtube-videos»  (to "ee-use-youtube-videos")
+;;   «.ee-use-local-videos»    (to "ee-use-local-videos")
 ;; «.first-class-videos»       (to "first-class-videos")
-;; «.video-tutorials»          (to "video-tutorials")
+;;  «.video-tutorials»         (to "video-tutorials")
 ;;   «.find-eev2019video»      (to "find-eev2019video")
 ;;   «.find-eev2020video»      (to "find-eev2020video")
 ;;   «.find-eevnavvideo»       (to "find-eevnavvideo")
@@ -47,6 +46,8 @@
 ;;   «.find-eevfherelvideo»    (to "find-eevfherelvideo")
 ;;   «.find-eevtestblsvideo»   (to "find-eevtestblsvideo")
 ;;   «.find-eevvlinksvideo»    (to "find-eevvlinksvideo")
+;; «.second-class-videos»      (to "second-class-videos")
+;;   «.code-eevvideo»          (to "code-eevvideo")
 
 ;;; Commentary:
 
@@ -201,11 +202,11 @@
 ;;;                             
 ;; «select»  (to ".select")
 ;; Tests: (ee-use-eevvideo-links)
-;;        (ee-use-eevyoutube-video)
+;;        (ee-use-youtube-videos)
 ;;        (find-eevtestblsvideo "2:33")
 ;;
-;; «ee-use-eevyoutube-video»  (to ".ee-use-eevyoutube-video")
-(defun ee-use-eevyoutube-video ()
+;; «ee-use-youtube-videos»  (to ".ee-use-youtube-videos")
+(defun ee-use-youtube-videos ()
   "Make `find-eev-video' play videos on youtube using a browser.
 This is a quick hack inspired by a workshop for Windows users. On
 Windows it is hard to configure the mechanism that downloads
@@ -219,8 +220,8 @@ the default behavior, run `ee-use-find-eevlocal-links'."
   (interactive)
   (setq ee-find-eev-video-function 'find-eevyoutube-video))
 
-;; «ee-use-eevlocal-video»  (to ".ee-use-eevlocal-video")
-(defun ee-use-eevlocal-video ()
+;; «ee-use-local-videos»  (to ".ee-use-local-videos")
+(defun ee-use-local-videos ()
   "Use the default behavior for `find-eev-video'.
 With the default definition the links in the [Video links:]
 blocks of the tutorials of eev will try to download local copies
@@ -235,96 +236,6 @@ of the videos and play them with mpv. Compare with
 
 
 
-
-
-
-
-
-;;;                _                                   _     _            
-;;;   ___ ___   __| | ___        ___  _____   ____   _(_) __| | ___  ___  
-;;;  / __/ _ \ / _` |/ _ \_____ / _ \/ _ \ \ / /\ \ / / |/ _` |/ _ \/ _ \ 
-;;; | (_| (_) | (_| |  __/_____|  __/  __/\ V /  \ V /| | (_| |  __/ (_) |
-;;;  \___\___/ \__,_|\___|      \___|\___| \_/    \_/ |_|\__,_|\___|\___/ 
-;;;                                                                       
-;; «code-eevvideo»  (to ".code-eevvideo")
-;; I store lots of videos in:
-;;
-;;   http://angg.twu.net/eev-videos/
-;;
-;; besides the official video tutorials for eev. The functions to
-;; access the official video tutorials are defined in the next
-;; section, as real defuns with real docstrings, but for the videos
-;; that are not so important - my "second-class videos" - I prefer to
-;; use sexps like these to define the sexp hyperlinks to them:
-;;
-;;        (code-eevvideo      "2021daniel4" "2021-daniel-4")
-;;        (code-eevlinksvideo "2021daniel4" "2021-daniel-4")
-;;                       (find-2021daniel4video "0:00")
-;;
-;; To understand how they work, try:
-;;
-;;       (find-code-eevvideo      "2021daniel4" "2021-daniel-4")
-;;       (find-code-eevlinksvideo "2021daniel4" "2021-daniel-4")
-;;   (find-code-eev{mod}video "M" "2021daniel4" "2021-daniel-4" "HASH")
-;;
-;; They are implemented using the three functions with "{mod}"s in
-;; their names, defined below.
-
-;; Test: (find-code-eev{mod}video "M" "2021daniel4" "2021-daniel-4" "HASH")
-;;
-(defun find-code-eev{mod}video (&optional mod c stem hash &rest rest)
-  (find-estring-elisp (apply 'ee-code-eev{mod}video mod c stem hash rest)))
-(defun      code-eev{mod}video (mod c stem &optional hash)
-  (eval (ee-read (ee-code-eev{mod}video mod c stem hash))))
-(defun   ee-code-eev{mod}video (&optional mod c stem hash)
-  (setq mod  (or mod "{mod}"))
-  (setq c    (or c "{c}"))
-  (setq stem (or stem "{stem}"))
-  (setq hash (or hash "{hash}"))
-  (ee-template0 "\
-;; (find-code-eev{<}mod{>}video \"{mod}\" \"{c}\" \"{stem}\" \"{hash}\")
-;;      (code-eev{<}mod{>}video \"{mod}\" \"{c}\" \"{stem}\" \"{hash}\")
-;;                (find-{c}video \"0:00\")
-;;
-;; 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)
-  (interactive)
-  (find-eev{mod}-video \"{stem}\" \"{hash}\" time))
-"))
-
-;; Tests:
-;; (find-code-eevvideo      "2021daniel4" "2021-daniel-4" "HASH")
-;; (find-code-eevlocalvideo "2021daniel4" "2021-daniel-4" "HASH")
-;; (find-code-eevlinksvideo "2021daniel4" "2021-daniel-4" "HASH")
-;;      (code-eevvideo      "2021daniel4" "2021-daniel-4" "HASH")
-;;      (code-eevlocalvideo "2021daniel4" "2021-daniel-4" "HASH")
-;;      (code-eevlinksvideo "2021daniel4" "2021-daniel-4" "HASH")
-;;                     (find-2021daniel4video "0:00")
-;;
-(defun find-code-eevvideo (&optional c stem hash &rest rest)
-  (find-estring-elisp (apply 'ee-code-eev{mod}video "local" c stem hash rest)))
-(defun      code-eevvideo (c stem &optional hash)
-  (eval (ee-read (ee-code-eev{mod}video "local" c stem hash))))
-
-(defun find-code-eevlocalvideo (&optional c stem hash &rest rest)
-  (find-estring-elisp (apply 'ee-code-eev{mod}video "local" c stem hash rest)))
-(defun      code-eevlocalvideo (c stem &optional hash)
-  (eval (ee-read (ee-code-eev{mod}video "local" c stem hash))))
-
-(defun find-code-eevlinksvideo (&optional c stem hash &rest rest)
-  (find-estring-elisp (apply 'ee-code-eev{mod}video "links" c stem hash rest)))
-(defun      code-eevlinksvideo (c stem &optional hash)
-  (eval (ee-read (ee-code-eev{mod}video "links" c stem hash))))
-
-
-
-
-
-
-
-
 ;;;        _     _                  _         _             _       _     
 ;;; __   _(_) __| | ___  ___       | |_ _   _| |_ ___  _ __(_) __ _| |___ 
 ;;; \ \ / / |/ _` |/ _ \/ _ \ _____| __| | | | __/ _ \| '__| |/ _` | / __|
@@ -342,6 +253,14 @@ of the videos and play them with mpv. Compare with
 ;; docstrings and `find-efunction' wouldn't be able to find their
 ;; definitions.
 
+;; (find-eevvideo-1stclass-links "eev2019")
+;; (find-eevvideo-1stclass-links "eev2020")
+;; (find-eevvideo-1stclass-links "eevnav")
+;; (find-eevvideo-1stclass-links "eevtempl")
+;; (find-eevvideo-1stclass-links "eevfherel")
+;; (find-eevvideo-1stclass-links "eevtestbls")
+;; (find-eevvideo-1stclass-links "eevvlinks")
+
 ;; «find-eev2019video»  (to ".find-eev2019video")
 ;; Skel: (find-eevshortvideo-links "eev2019" "emacsconf2019" "86yiRG8YJD0")
 ;;  See: (find-videos-intro "1. Some videos" "emacsconf2019")
@@ -458,6 +377,92 @@ and: (find-video-links-intro \"7. `find-eev-video'\")
 
 
 
+;;;                _                                   _     _            
+;;;   ___ ___   __| | ___        ___  _____   ____   _(_) __| | ___  ___  
+;;;  / __/ _ \ / _` |/ _ \_____ / _ \/ _ \ \ / /\ \ / / |/ _` |/ _ \/ _ \ 
+;;; | (_| (_) | (_| |  __/_____|  __/  __/\ V /  \ V /| | (_| |  __/ (_) |
+;;;  \___\___/ \__,_|\___|      \___|\___| \_/    \_/ |_|\__,_|\___|\___/ 
+;;;                                                                       
+;; «second-class-videos»  (to ".second-class-videos")
+;; «code-eevvideo»  (to ".code-eevvideo")
+;; I store lots of videos in:
+;;
+;;   http://angg.twu.net/eev-videos/
+;;
+;; besides the official video tutorials for eev. The functions to
+;; access the official video tutorials are defined in the next
+;; section, as real defuns with real docstrings, but for the videos
+;; that are not so important - my "second-class videos" - I prefer to
+;; use sexps like these to define the sexp hyperlinks to them:
+;;
+;;        (code-eevvideo      "2021daniel4" "2021-daniel-4")
+;;        (code-eevlinksvideo "2021daniel4" "2021-daniel-4")
+;;                       (find-2021daniel4video "0:00")
+;;
+;; To understand how they work, try:
+;;
+;;       (find-code-eevvideo      "2021daniel4" "2021-daniel-4")
+;;       (find-code-eevlinksvideo "2021daniel4" "2021-daniel-4")
+;;   (find-code-eev{mod}video "M" "2021daniel4" "2021-daniel-4" "HASH")
+;;
+;; They are implemented using the three functions with "{mod}"s in
+;; their names, defined below.
+
+;; Test: (find-code-eev{mod}video "M" "2021daniel4" "2021-daniel-4" "HASH")
+;;
+(defun find-code-eev{mod}video (&optional mod c stem hash &rest rest)
+  (find-estring-elisp (apply 'ee-code-eev{mod}video mod c stem hash rest)))
+(defun      code-eev{mod}video (mod c stem &optional hash)
+  (eval (ee-read (ee-code-eev{mod}video mod c stem hash))))
+(defun   ee-code-eev{mod}video (&optional mod c stem hash)
+  (setq mod  (or mod "{mod}"))
+  (setq c    (or c "{c}"))
+  (setq stem (or stem "{stem}"))
+  (setq hash (or hash "{hash}"))
+  (ee-template0 "\
+;; (find-code-eev{<}mod{>}video \"{mod}\" \"{c}\" \"{stem}\" \"{hash}\")
+;;      (code-eev{<}mod{>}video \"{mod}\" \"{c}\" \"{stem}\" \"{hash}\")
+;;                (find-{c}video \"0:00\")
+;;
+;; 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)
+  (interactive)
+  (find-eev{mod}-video \"{stem}\" \"{hash}\" time))
+"))
+
+;; Tests:
+;; (find-code-eevvideo      "2021daniel4" "2021-daniel-4" "HASH")
+;; (find-code-eevlocalvideo "2021daniel4" "2021-daniel-4" "HASH")
+;; (find-code-eevlinksvideo "2021daniel4" "2021-daniel-4" "HASH")
+;;      (code-eevvideo      "2021daniel4" "2021-daniel-4" "HASH")
+;;      (code-eevlocalvideo "2021daniel4" "2021-daniel-4" "HASH")
+;;      (code-eevlinksvideo "2021daniel4" "2021-daniel-4" "HASH")
+;;                     (find-2021daniel4video "0:00")
+;;
+(defun find-code-eevvideo (&optional c stem hash &rest rest)
+  (find-estring-elisp (apply 'ee-code-eev{mod}video "local" c stem hash rest)))
+(defun      code-eevvideo (c stem &optional hash)
+  (eval (ee-read (ee-code-eev{mod}video "local" c stem hash))))
+
+(defun find-code-eevlocalvideo (&optional c stem hash &rest rest)
+  (find-estring-elisp (apply 'ee-code-eev{mod}video "local" c stem hash rest)))
+(defun      code-eevlocalvideo (c stem &optional hash)
+  (eval (ee-read (ee-code-eev{mod}video "local" c stem hash))))
+
+(defun find-code-eevlinksvideo (&optional c stem hash &rest rest)
+  (find-estring-elisp (apply 'ee-code-eev{mod}video "links" c stem hash rest)))
+(defun      code-eevlinksvideo (c stem &optional hash)
+  (eval (ee-read (ee-code-eev{mod}video "links" c stem hash))))
+
+
+
+
+
+
+
+
 (provide 'eev-videolinks)
 
 
diff --git a/eev.el b/eev.el
index 839c46c..dff7521 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: 20211101
+;; Version: 20211108
 
 ;; 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