[elpa] externals/eev fcba239: Made the [Video links:] blocks easier to use on Windows.

[ELPA Syncer]

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

    Made the [Video links:] blocks easier to use on Windows.
---
 ChangeLog         | 15 +++++++++++-
 VERSION           |  4 ++--
 eev-audiovideo.el | 72 ++++++++++++++++++++++++++++++++++++++++++++++++++++++-
 eev-blinks.el     | 11 +++++----
 eev-hlinks.el     | 19 ++++++++-------
 eev-intro.el      | 16 +++++++------
 eev-mode.el       |  4 ++--
 eev-on-windows.el | 46 +++++++++++++++++++++++++----------
 eev.el            |  2 +-
 9 files changed, 148 insertions(+), 41 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 62f1512..654abd4 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,11 +1,24 @@
+2021-11-01  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eev-audiovideo.el (ee-find-youtube-video-program): new variable.
+       (ee-find-youtube-video, find-youtube-video): new functions.
+       (ee-use-find-youtube-video, ee-use-find-eevvideo-links): new
+       functions.
+
+       * eev-blinks.el (find-eejumps): use "*(find-eejumps)*" as the
+       buffer name.
+
 2021-10-31  Eduardo Ochs  <eduardoochs@gmail.com>
 
+       * eev-mode.el (eev-mode-help): fixed a typo.
+
        * eev-hlinks.el (ee-find-here-links): rewritten.
        (find-here-links): cosmetic changes.
        (find-here-links-test): commented out.
        (ee-fhl-main-program, ee-fhl-sexp1, ee-fhl-sexp2): new variables.
        (ee-fhl-run, ee-fhl-eval, ee-fhl-:eval, ee-fhl-:if, ee-fhl-:or):
        new functions.
+       (find-here-links): use "*(find-here-links)*" as the buffer name.
 
        * eev-intro.el (find-multiwindow-intro): deleted the sections 9
        and 10 of the tutorial. Their names were "9. Executing key
@@ -25,7 +38,7 @@
        * eev-intro.el (find-eev-quick-intro): small changes.
 
        * eev-blinks.el (ee-find-eejumps-header): added M-21j and M-31j to
-       the list of importante examples.
+       the list of important examples.
 
        * eejump.el (eejump-21, eejump-31, eejump-7): new functions.
 
diff --git a/VERSION b/VERSION
index 8261cb4..b151623 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Sun Oct 31 16:00:09 GMT 2021
-Sun Oct 31 13:00:09 -03 2021
+Mon Nov  1 07:34:08 GMT 2021
+Mon Nov  1 04:34:08 -03 2021
diff --git a/eev-audiovideo.el b/eev-audiovideo.el
index 494e19d..787ae84 100644
--- a/eev-audiovideo.el
+++ b/eev-audiovideo.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version:    20211031
+;; Version:    20211101
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-audiovideo.el>
@@ -101,6 +101,8 @@
 ;; «.find-mpv-video»           (to "find-mpv-video")
 ;; «.find-mpv-audio»           (to "find-mpv-audio")
 ;; «.find-vlc-video»           (to "find-vlc-video")
+;; «.find-youtube-video»       (to "find-youtube-video")
+;; «.ee-use-find-youtube-video»        (to "ee-use-find-youtube-video")
 ;; «.code-brxxxs»              (to "code-brxxxs")
 ;; «.aliases»                  (to "aliases")
 ;; «.video-tutorials»          (to "video-tutorials")
@@ -577,6 +579,74 @@ See: (find-audiovideo-intro \"`eev-avadj-mode'\")"
 
 
 
+;;;                    _         _                     _     _            
+;;;  _   _  ___  _   _| |_ _   _| |__   ___     __   _(_) __| | ___  ___  
+;;; | | | |/ _ \| | | | __| | | | '_ \ / _ \____\ \ / / |/ _` |/ _ \/ _ \ 
+;;; | |_| | (_) | |_| | |_| |_| | |_) |  __/_____\ V /| | (_| |  __/ (_) |
+;;;  \__, |\___/ \__,_|\__|\__,_|_.__/ \___|      \_/ |_|\__,_|\___|\___/ 
+;;;  |___/                                                                
+;;
+;; «find-youtube-video»  (to ".find-youtube-video")
+;; Play a video on youtube using a browser.
+;; Tests: (ee-find-youtube-video "xQqWufQgzVY")
+;;        (ee-find-youtube-video "xQqWufQgzVY" "1:23")
+;;        (ee-find-youtube-video "xQqWufQgzVY" "1:23" "Bla")
+;;           (find-youtube-video "xQqWufQgzVY" "1:23")
+;;
+(defvar ee-find-youtube-video-program 'find-googlechrome)
+
+(defun ee-find-youtube-video (youtubeid &optional time &rest rest)
+  (let* ((youtubeurl  (format "http://www.youtube.com/watch?v=%s"; youtubeid))
+        (youtubetime (ee-time-to-youtube-time (or time "")))
+        (url (concat youtubeurl youtubetime)))
+    (list ee-find-youtube-video-program url)))
+
+(defun find-youtube-video (youtubeid &optional time &rest rest)
+  (eval (ee-find-youtube-video youtubeid time)))
+
+
+
+
+;; «ee-use-find-youtube-video»  (to ".ee-use-find-youtube-video")
+;; See: (find-eev-quick-intro "[Video links:]")
+;;      (find-eev "eev-audiovideo.el" "video-tutorials")
+;;      (find-eev "eev-audiovideo.el" "video-tutorials" "find-eevvideo-links")
+;;      (find-eev "eev-tlinks.el" "find-eevvideo-links")
+;; Tests: (ee-use-find-eevvideo-links)
+;;        (ee-use-find-youtube-video)
+;;        (find-eevtestblsvideo "2:33")
+;;
+(defun ee-use-find-youtube-video ()
+  "Make `find-eevvideo-links' 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
+local copies of videos and plays the local copies with mpv, and
+this makes the default behavior of the links in [Video links:]
+blocks very inconvenient for beginners. This hack redefines the
+function `find-eevvideo-links', that is used by the links to
+videos that are used in [Video links:] blocks, to make those
+links use a browser to play the videos on youtube. To get back
+the default behavior, run `ee-use-find-eevvideo-links'."
+  (interactive)
+  (defun find-eevvideo-links (&optional c stem youtubeid time &rest 
pos-spec-list)
+    (find-youtube-video youtubeid time)))
+
+(defun ee-use-find-eevvideo-links ()
+  "Use the default definition for `find-eevvideo-links'.
+With the default definition the links in the [Video links:]
+blocks of the tutorials of eev will work as documented - they
+will try to download local copies of the videos. Compare with
+`ee-use-find-youtube-video'."
+  (interactive)
+  ;; This is a quick hack! It simply loads eev-tlinks.el again.
+  ;; See: (find-eev "eev-tlinks.el" "find-eevvideo-links")
+  (load "eev-tlinks.el"))
+
+
+
+
+
+
 ;;;                _            _                               
 ;;;   ___ ___   __| | ___      | |__  _ ____  ____  ____  _____ 
 ;;;  / __/ _ \ / _` |/ _ \_____| '_ \| '__\ \/ /\ \/ /\ \/ / __|
diff --git a/eev-blinks.el b/eev-blinks.el
index 24d4714..f536d6b 100644
--- a/eev-blinks.el
+++ b/eev-blinks.el
@@ -21,7 +21,7 @@
 ;;
 ;; Author:     Eduardo Ochs <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version:    20211026
+;; Version:    20211101
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-blinks.el>
@@ -1262,10 +1262,11 @@ Hint: install the Debian package \"unicode-data\".")
 
 (defun find-eejumps (&rest pos-spec-list) (interactive)
   "See: (find-eev-quick-intro \"find-eejumps\")"
-  (apply 'find-estring-elisp
-        (concat (ee-find-eejumps-header)
-                (ee-find-eejumps-body))
-        pos-spec-list))
+  (let ((ee-buffer-name "*(find-eejumps)*"))
+    (apply 'find-estring-elisp
+          (concat (ee-find-eejumps-header)
+                  (ee-find-eejumps-body))
+          pos-spec-list)))
 
 
 
diff --git a/eev-hlinks.el b/eev-hlinks.el
index 8c7e773..9d79231 100644
--- a/eev-hlinks.el
+++ b/eev-hlinks.el
@@ -257,15 +257,16 @@ return the result of (eval ee-fhl-sexp2), slightly 
preprocessed."
 "Visit a temporary buffer containing hyperlinks pointing to \"here\".
 See: (find-here-links-intro)"
   (interactive)
-  (apply
-   'find-elinks
-   `(;; The first line of a find-here-links buffer DOES NOT
-     ;; regenerates the buffer - instead the first lines point to
-     ;; help pages.
-     ,@(ee-find-here-links0)
-     ,@(ee-find-here-links)
-     )
-   pos-spec-list))
+  (let ((ee-buffer-name "*(find-here-links)*"))
+    (apply
+     'find-elinks
+     `(;; The first line of a find-here-links buffer DOES NOT
+       ;; regenerates the buffer - instead the first lines point to
+       ;; help pages.
+       ,@(ee-find-here-links0)
+       ,@(ee-find-here-links)
+       )
+     pos-spec-list)))
 
 (defun ee-find-here-links0 ()
   "The header used by `find-here-links'."
diff --git a/eev-intro.el b/eev-intro.el
index cfc0784..f26f908 100644
--- a/eev-intro.el
+++ b/eev-intro.el
@@ -1136,16 +1136,18 @@ The header is this:
   ;;      (find-emacs-keys-intro \"1. Basic keys (eev)\")
   ;;      (find-emacs-keys-intro \"2. Key sequences\")
   ;; For example,
-  ;;     M-1 M-j  runs:  (find-fline \"~/TODO\")
-  ;;     M-2 M-j  runs:  (find-emacs-keys-intro)
-  ;;     M-5 M-j  runs:  (find-eev-quick-intro)
+  ;;         M-5 M-j  runs:  (find-eev-quick-intro)
+  ;;         M-2 M-j  runs:  (find-emacs-keys-intro)
+  ;;         M-1 M-j  runs:  (find-fline \"~/TODO\")
+  ;;     M-2 M-1 M-j  shows the file ~/TODO in the right window
+  ;;     M-3 M-1 M-j  opens ~/TODO in the right window
   ;; Current eejump targets:
 
-Note that after the \"See:\" we have three elisp hyperlinks to
+Note that after the \"See:\" we have four elisp hyperlinks to
 sections of tutorials, and after the \"For example:\" we have
-three examples of how to run `M-j' with numeric prefixes; each
-one of these examples is followed by the elisp hyperlink whose
-action corresponds to running `M-j' with that prefix.
+five examples of how to run `M-j' with numeric prefixes; the
+first three of these examples are followed by the elisp hyperlink
+whose action corresponds to running `M-j' with that prefix.
 
 That header is very beginner-friendly, and if you are a beginner
 who only knows how to use `M-e' and `M-j' you can, and should,
diff --git a/eev-mode.el b/eev-mode.el
index bfec817..0b78a72 100644
--- a/eev-mode.el
+++ b/eev-mode.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version:    20211023
+;; Version:    20211031
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-mode.el>
@@ -258,7 +258,7 @@ Commands to generate pages with lists of hyperlinks:
       \\[find-eface-links] -- hyperlinks to a face (default: face at point)
       \\[find-debpkg-links] -- hyperlinks about a Debian package
       \\[find-here-links] -- hyperlinks to here
-  M-3 \\[find-here-links] -- hyperlinks to here for beginners
+      \\[find-here-links-3] -- hyperlinks to here for beginners
   See: (find-eev-quick-intro \"\\n4.2.\" \"find-ekey-links\")
        (find-here-links-intro  \"4.\"   \"find-here-links-3\")
 Commands to edit hyperlinks:
diff --git a/eev-on-windows.el b/eev-on-windows.el
index 9128041..090ca4c 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:    20211027
+;; Version:    20211101
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-on-windows.el>
@@ -34,8 +34,9 @@
 ;; «.ee-use-bullets»                   (to "ee-use-bullets")
 ;; «.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-gnu-linux»                 (to "ee-use-gnu-linux")
 ;; «.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")
 
@@ -47,7 +48,7 @@
 ;; Experimental, undocumented, and messy. Every time that I give a
 ;; workshop to Windows users this file changes a lot. The most recent
 ;; changes in this file correspond to a workshop that I will give in
-;; mid-october 2021, and that I described in this thread:
+;; november 2021, and that I described in this thread:
 ;;
 ;; https://lists.gnu.org/archive/html/help-gnu-emacs/2021-10/msg00037.html
 ;;
@@ -187,9 +188,26 @@
 
 
 
-;; «ee-use-gnu-linux»  (to ".ee-use-gnu-linux")
 ;; «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")
 ;;
+(defun ee-use-windows ()
+  (interactive)
+  (ee-use-bullets)
+  (ee-use-eshell)
+  (delete-file eshell-aliases-file)    ; workaround for a bug
+  (eshell/alias "wget"          "~/bin/wget.exe $*")
+  (setq ee-wget-program         "~/bin/wget.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-find-youtube-video)
+  )
+
 (defun ee-use-gnu-linux ()
   (interactive)
   (ee-use-red-stars)
@@ -202,25 +220,27 @@
   (setq ee-googlechrome-program "google-chrome")
   (setq ee-mpv-program          "mpv")
   (ee-use-find-angg-es-local)
+  (ee-use-find-eevvideo-links)
   )
 
-(defun ee-use-windows ()
+(defun ee-use-gnu-linux-but-simulate ()
   (interactive)
   (ee-use-bullets)
   (ee-use-eshell)
-  (delete-file eshell-aliases-file)    ; workaround for a bug
-  (eshell/alias "wget"          "~/bin/wget.exe $*")
-  (setq ee-wget-program         "~/bin/wget.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)
+  (delete-file eshell-aliases-file)
+  (eshell/alias "wget"          "wget $*")
+  (setq ee-wget-program         "wget")
+  (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-find-youtube-video)
   )
 
 
 
+
 ;; «directories»  (to ".directories")
 ;; From the internets:
 ;;
diff --git a/eev.el b/eev.el
index 76857eb..839c46c 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: 20211027
+;; Version: 20211101
 
 ;; 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