[elpa] externals/eev 6a2ad49: Several changes for Windows users (for a workshop).

[ELPA Syncer]

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

    Several changes for Windows users (for a workshop).
---
 ChangeLog         | 13 +++++++++
 VERSION           |  4 +--
 eejump.el         |  7 +++--
 eev-blinks.el     | 10 ++++---
 eev-intro.el      | 29 +++++++++++++++-----
 eev-on-windows.el | 80 +++++++++++++++++++++++++++++++++++--------------------
 eev-tlinks.el     | 11 ++++++--
 eev.el            |  2 +-
 8 files changed, 110 insertions(+), 46 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 443655c..391a108 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,16 @@
+2021-10-27  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eev-tlinks.el (ee-psnevideo-url-youtube): small changes.
+
+2021-10-26  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * 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.
+
+       * eejump.el (eejump-21, eejump-31, eejump-7): new functions.
+
 2021-10-25  Eduardo Ochs  <eduardoochs@gmail.com>
 
        * eev-beginner.el: change the `(add-to-list 'load-path
diff --git a/VERSION b/VERSION
index f2318bf..c63405e 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Tue Oct 26 03:23:12 GMT 2021
-Tue Oct 26 00:23:12 -03 2021
+Wed Oct 27 06:52:34 GMT 2021
+Wed Oct 27 03:52:34 -03 2021
diff --git a/eejump.el b/eejump.el
index da5d934..4328110 100644
--- a/eejump.el
+++ b/eejump.el
@@ -1,6 +1,6 @@
 ;;; eejump.el -- jump quickly to predefined places.  -*- lexical-binding: nil; 
-*-
 
-;; Copyright (C) 2012-2019 Free Software Foundation, Inc.
+;; Copyright (C) 2012-2021 Free Software Foundation, Inc.
 ;;
 ;; This file is part of GNU eev.
 ;;
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version:    20200220
+;; Version:    20211026
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eejump.el>
@@ -100,11 +100,14 @@ See: (find-eejump-intro \"\\neejump\\n\")"
 
 (defun eejump-*   () (find-efunction 'eejump-*))
 (defun eejump-1   () (find-fline "~/TODO"))
+(defun eejump-21  () (find-2a nil '(eejump 1)))
+(defun eejump-31  () (find-2b nil '(eejump 1)))
 (defun eejump-2   () (find-emacs-keys-intro))
 (defun eejump-3   () (find-windows-beginner-intro))
 (defun eejump-5   () (find-eev-quick-intro))
 (defun eejump-50  () (find-eev-intro))
 (defun eejump-6   () (find-escripts-intro))
+(defun eejump-7   () (find-elisp-intro))
 
 (defun eejump-10  () (set-frame-font "5x7"  t))
 (defun eejump-11  () (set-frame-font "6x13" t))
diff --git a/eev-blinks.el b/eev-blinks.el
index 618541e..24d4714 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:    20211007
+;; Version:    20211026
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-blinks.el>
@@ -1250,9 +1250,11 @@ Hint: install the Debian package \"unicode-data\".")
 ;;      (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:\n\n")
 
 (defun ee-find-eejumps-body ()
diff --git a/eev-intro.el b/eev-intro.el
index ccdb8d3..250ea9f 100644
--- a/eev-intro.el
+++ b/eev-intro.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version:    20211012
+;; Version:    20211027
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-intro.el>
@@ -388,6 +388,14 @@ behavior. We are only interested in one of them now - `M-0 
M-e'
 highlights the sexp for a fraction of a second instead of executing it.
 Try it above.
 
+In some rare occasions we might want to run something like `M-e'
+but without moving to the end of the line first. Eev-mode
+implements a key binding for that: `M-E' (meta-shift-e). As an
+exercise, try to use `M-0 M-E' at several positions below, to
+highlight the subsexps `(* 2 3)', `(* 4 5)', and `4'.
+
+  (+ (* 2 3) (* 4 5))
+
 
 
 
@@ -406,9 +414,12 @@ this new buffer is killed, and Emacs displays the buffer 
that was just
 below it, which is this tutorial... try it! Here are some nice elisp
 hyperlinks:
 
-  (find-fline \"/tmp/\")
+  (find-fline \"~/\")
   (find-efunctiondescr 'find-file)
+  (find-eval-intro \"5. Going back\")
+  (find-fline \"/tmp/\")
   (find-man \"date\")
+  (find-sh  \"date\")
   (find-sh  \"date; sleep 1; date\")
 
 Not all elisp hyperlinks \"go somewhere\"; some are like buttons that
@@ -426,11 +437,13 @@ be aware that they may show errors instead of opening a 
new buffer.
 The first two of them open a page - actually a section, whose short
 title is \"Lisp Eval\" - from the main Emacs manual. The third one
 opens the file with the source code (in Lisp) for the function
-`find-file'.
+`find-file'. The fourth one opens a directory that contains a part of
+the source code of Emacs.
 
   (find-node \"(emacs)Lisp Eval\")
   (find-enode       \"Lisp Eval\")
   (find-efunction 'find-file)
+  (find-efile \"\")
 
 If they don't work that means that you don't have the Emacs manuals,
 or the elisp source files, installed. The names for the packages which
@@ -13284,6 +13297,7 @@ More intros:  (find-eev-quick-intro)
               (find-eev-intro)
 This buffer is _temporary_ and _editable_.
 It is meant as both a tutorial and a sandbox.
+The quickest way to open or recreate this is with `M-7 M-j'.
 
 
 
@@ -13325,7 +13339,7 @@ then it calls `+' with the results - i.e., it runs (+ 6 
20). Try:
 
 In last sexp the function `list' receives two numbers, 6 and 20, but
 returns a list, (6 20), not a number - and this is an introduction to
-the idea that Elisp functions can receive all kinds of Elips objects
+the idea that Elisp functions can receive all kinds of Elisp objects
 and return all kinds of Elisp objects.
 
 Elisp objects include:
@@ -13459,8 +13473,11 @@ this:
         a
   (* 10 a)
 
-If you execute lines 1, 3, and 4 in it you get one behavior, and if
-you execute lines 2, 3, and 4 you get the other one.
+If you execute lines 1, 3, and 4 in it you get one behavior, and
+if you execute lines 2, 3, and 4 you get the other one. There are
+some exercises on \"choosing the right order\" here:
+
+  (find-eval-intro \"3. What to execute, and in what order\")
 
 Again: note that evaluating the symbol `a' returns the value of a \"as
 a variable\".
diff --git a/eev-on-windows.el b/eev-on-windows.el
index 1c987f7..9128041 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:    20211021
+;; Version:    20211027
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-on-windows.el>
@@ -28,6 +28,20 @@
 ;;                 <http://angg.twu.net/eev-intros/find-eev-intro.html>
 ;;                                                (find-eev-intro)
 
+;; «.how-to-test-this»                 (to "how-to-test-this")
+;; «.ee-download-with-eww»             (to "ee-download-with-eww")
+;; «.ee-use-eshell»                    (to "ee-use-eshell")
+;; «.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")
+;; «.directories»                      (to "directories")
+;; «.basic-tests»                      (to "basic-tests")
+
+
+
+
 ;;; Commentary:
 ;;
 ;; Experimental, undocumented, and messy. Every time that I give a
@@ -43,12 +57,16 @@
 ;;
 ;; This file is not loaded by default. See:
 ;;   (find-eev "eev-load.el")
-;;
 
+
+;; «how-to-test-this»  (to ".how-to-test-this")
+;;
 ;; 0.1. How to test this
 ;; =====================
 ;; The HTMLized version of this file is here:
 ;;   http://angg.twu.net/eev-current/eev-on-windows.el.html
+;; The HTMLized version may be more recent than the one here:
+;;   (find-eev "eev-on-windows.el")
 ;;
 ;; Here's how to load it in Emacs and run its tests.
 ;;   1. update eev using "M-x list-packages eev",
@@ -58,7 +76,8 @@
 ;;   5. run "M-x find-eevfile" to open the directory with the source
 ;;      files of eev,
 ;;   6. open the file eev-on-windows.el in that directory,
-;;   7. run the sexps below with `M-e' on each line:
+;;   7. run the sexps below with `M-e' on each line - they are needed
+;;      to make sure that you have wget.exe and pdftotext.exe:
 ;;
 ;;      (require 'eev-on-windows)
 ;;      (mkdir "~/bin/" t)
@@ -66,6 +85,10 @@
 ;;      (ee-download-with-eww "http://angg.twu.net/2021-oficina/wget.exe"; 
"~/bin/")
 ;;      (delete-file "~/bin/pdftotext.exe")
 ;;      (ee-download-with-eww "http://angg.twu.net/2021-oficina/pdftotext.exe"; 
"~/bin/")
+;;
+;;   8. run these sexps with `M-e' on each line:
+;;
+;;      (require 'eev-on-windows)
 ;;      (ee-use-windows)
 ;;      (to "directories")
 ;;
@@ -77,13 +100,12 @@
 ;; 0.2. Setting your ~/.emacs
 ;; ==========================
 ;; If you are helping me to test this AND you know how to edit your
-;; ~/.emacs (hey Daniel Bastos!) then this is what you should put
-;; there:
+;; ~/.emacs (hey Daniel Bastos! Daniel Tavares and Julha, please
+;; ignore this!) then this is what you should put there:
 ;;
 ;;   ;; See: (find-eevfile "eev-on-windows.el" ".emacs")
-;;   (require 'eev-load)
+;;   (require 'eev-beginner)
 ;;   (require 'eev-on-windows)
-;;   (eev-mode 1)
 ;;   (ee-use-windows)
 ;;   (setenv "FIREFOXDIR"      "c:/Program Files/Mozilla Firefox")
 ;;   (setenv "GOOGLECHROMEDIR" "c:/Program Files/Google/Chrome/Application")
@@ -97,25 +119,6 @@
 
 
 
-;; 2021:
-;; «.ee-download-with-eww»             (to "ee-download-with-eww")
-;; «.ee-use-eshell»                    (to "ee-use-eshell")
-;; «.ee-use-bullets»                   (to "ee-use-bullets")
-;; «.ee-use-find-angg-es-remote»       (to "ee-use-find-angg-es-remote")
-;; «.ee-use-gnu-linux»                 (to "ee-use-gnu-linux")
-;; «.ee-use-windows»                   (to "ee-use-windows")
-;; «.directories»                      (to "directories")
-;; «.basic-tests»                      (to "basic-tests")
-
-
-
-;;;  ____   ___ ____  _ 
-;;; |___ \ / _ \___ \/ |
-;;;   __) | | | |__) | |
-;;;  / __/| |_| / __/| |
-;;; |_____|\___/_____|_|
-;;;                     
-
 (require 'eww)
 (require 'eshell)
 (require 'em-alias)
@@ -162,6 +165,7 @@
 
 
 ;; «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")
 ;; See: (find-angg-es-links)
 ;;
 (defun ee-use-find-angg-es-local ()
@@ -218,9 +222,6 @@
 
 
 ;; «directories»  (to ".directories")
-;; These directories are for Daniel Almeida's machine.
-;; Most people will have to configure this.
-;;
 ;; From the internets:
 ;;
 ;;  "If you can start a Mozilla application by using a shortcut or
@@ -231,9 +232,19 @@
 ;; Apparently you'll have to do this by hand for Firefox, Chrome, and
 ;; Mpv - I couldn't find a way to automate this... =/
 ;;
+;; Most people will have to configure this.
+;;
+;; These directories are for Daniel Almeida's machine.
 (setenv "FIREFOXDIR"      "c:/Program Files/Mozilla Firefox")
 (setenv "GOOGLECHROMEDIR" "c:/Program Files/Google/Chrome/Application")
 (setenv "MPVDIR"          "c:/Users/danie/OneDrive/Documentos/mpv")
+;;
+;; Julha needs to run this:
+;; (setenv "FIREFOXDIR"      "c:/Program Files/Mozilla Firefox")
+;; (setenv "MPVDIR"          "c:/Users/User/Desktop")
+;; (defalias 'find-pdf-page 'find-firefox-page)
+
+
 
 ;; «basic-tests»  (to ".basic-tests")
 ;; 1. Basic tests
@@ -259,6 +270,12 @@
 ;;
 ;;   KNOWN BUG: the "--help" option doesn't work on chrome in Windows.
 ;;
+;; 1.1. Test `M-x brff' and `M-x brg'
+;; ----------------------------------
+;; Check if the tests in this section of the main tutorial work:
+;;   (find-eev-quick-intro "3.1. Non-elisp hyperlinks")
+;;
+;;
 ;; 2. Tests for using the browser as a PDF viewer
 ;; ==============================================
 ;; For the tests for using browsers as PDF viewers you will need to
@@ -274,6 +291,11 @@
 ;;   (find-firefox-page      "~/Coetzee99.pdf" 3)
 ;;   (find-pdf-page          "~/Coetzee99.pdf" 3)
 ;;
+;; You can select the browser to use for PDFs with these sexps:
+;;   (defalias 'find-pdf-page 'find-googlechrome-page)
+;;   (defalias 'find-pdf-page 'find-firefox-page)
+;;
+;;
 ;; 2.1. Test the short links to PDFs
 ;; ---------------------------------
 ;; The short links to PDFs are explained here:
diff --git a/eev-tlinks.el b/eev-tlinks.el
index c6c18e5..c513fa5 100644
--- a/eev-tlinks.el
+++ b/eev-tlinks.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version:    20211021
+;; Version:    20211027
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-tlinks.el>
@@ -1185,10 +1185,14 @@ Files that look like subtitle files are ignored."
      )
    pos-spec-list))
 
+;; Test:
+;; (find-estring (ee-find-psne-core "http://www.lua.org/start.html";))
+;;
 (defun ee-find-psne-core (url &optional wget-options)
   "This is an internal function used by `find-psne-links'."
   (let* ((localurl (ee-url-to-fname0 url))
         (localdir (file-name-directory localurl))
+        (fname0 (file-name-nondirectory localurl))
         (o (format "%3s" (or wget-options ""))))
     (ee-template0 "\
 mkdir -p {localdir}
@@ -1197,6 +1201,7 @@ wget {o} '{url}'
 echo     '{url}' >> ~/.psne.log
 
 # (find-fline \"{localdir}\")
+# (find-fline \"{localdir}\" \"{fname0}\")
 # (find-fline \"{localurl}\")
 ")))
 
@@ -1550,13 +1555,15 @@ netcat -l -p {tgtport}
   (setq youtubeid (or youtubeid "{youtubeid}"))
   (setq time      (or time      "{time}"))
   (let* ((fname       (ee-shorten-file-name (ee-url-to-fname url)))
+         (fname0      (file-name-nondirectory fname))
          (dir         (file-name-directory fname))
         (youtubeurl  (format "http://www.youtube.com/watch?v=%s"; youtubeid))
         (youtubetime (or (ee-time-to-youtube-time time) "")))
     (ee-template0 "\
-# URL, local file, and a link to the directory of the local file:
+# URL, local file, and links to the directory of the local file:
 #               {url}
 #              {fname}
+# (find-fline \"{dir}\" \"{fname0}\")
 # (find-fline \"{dir}\")
 
 # Youtube:
diff --git a/eev.el b/eev.el
index d2f27ad..76857eb 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: 20211024
+;; Version: 20211027
 
 ;; 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