[elpa] externals/eev ad58a3e39e: Use `find-psne-eevvideo-links' to download videos and subtitles.

[ELPA Syncer]

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

    Use `find-psne-eevvideo-links' to download videos and subtitles.
---
 ChangeLog         |  25 ++++++++++++
 VERSION           |   4 +-
 eev-blinks.el     |   6 +--
 eev-intro.el      |  50 +++++++++++++++++-------
 eev-tlinks.el     | 114 +++++++++++++++++++++++++++++++++++++++++++++++++++---
 eev-videolinks.el |  63 +++++++++++++++++++-----------
 eev-wconfig.el    |  63 ++++++++++++++++++++++++++----
 7 files changed, 273 insertions(+), 52 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 9f5d40e77e..81fa065462 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,28 @@
+2022-05-11  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eev-intro.el (find-video-links-intro): rewrote the section "5.1.
+       Subtitles".
+
+       * eev-tlinks.el (find-psne-eevvideo-links)
+       (ee-psne-eevvideo-core, find-psne-1stclassvideo-links): new
+       functions.
+       (ee-1stclassvideos-dlsubs): use `find-psne-1stclassvideo-links'
+       and `find-psne-eevvideo-links' instead of
+       `find-wgeteevsubtitles-links'.
+       (find-wgeteevsubtitles-links): marked as obsolete.
+
+       * eev-videolinks.el (ee-1stclassvideos-localmp4)
+       (ee-1stclassvideos-mp4found): new functions.
+
+2022-05-09  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eev-videolinks.el (ee-eevlocal-body): rewritten.
+
+2022-05-07  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eev-blinks.el (find-etpat): use `find-dbsw-call' instead of
+       `find-wottb-call'.
+
 2022-05-05  Eduardo Ochs  <eduardoochs@gmail.com>
 
        * eev-videolinks.el (find-2022eevwconfigpt1video)
diff --git a/VERSION b/VERSION
index 2306878839..f656a5b8eb 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Fri May  6 01:14:21 GMT 2022
-Thu May  5 22:14:21 -03 2022
+Wed May 11 05:05:32 GMT 2022
+Wed May 11 02:05:32 -03 2022
diff --git a/eev-blinks.el b/eev-blinks.el
index 87635dbe27..11b0d2535f 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:    20220502
+;; Version:    20220507
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-blinks.el>
@@ -484,8 +484,8 @@ See `find-etpat0' and `find-etpat00' for lower-level tools 
for
 inspecting text proprties."
   (interactive)
   (setq pos (or pos (point)))
-  (apply 'find-wottb-call '(describe-text-properties pos)
-        "*Help*" pos-spec-list))
+  (apply 'find-dbsw-call '(describe-text-properties pos)
+        pos-spec-list))
 
 (defun find-etpat0 (&rest pos-spec-list)
 "Hyperlink to a pretty version of the result of (text-properties-at (point))."
diff --git a/eev-intro.el b/eev-intro.el
index a9ccc29bb8..36772afcef 100644
--- a/eev-intro.el
+++ b/eev-intro.el
@@ -11518,33 +11518,57 @@ The local copy will be played with Mpv, with:
 
 5.1. Subtitles
 --------------
-Some video have subtitles. If you run this sexp
+Some video have subtitles. The low-level way to download a video
+and its subtitles is with sexps like these ones - try them:
 
-  (find-wgeteevsubtitles-links \"2022-pict2e-lua\" \".vtt\")
+  (find-psne-eevvideo-links \"NAMEOFTHEVIDEO\" \"\")
+  (find-psne-eevvideo-links \"NAMEOFTHEVIDEO\" \".srt\")
+  (find-psne-eevvideo-links \"NAMEOFTHEVIDEO\" \".srt .vtt\")
 
-it will create a temporary buffer with this eepitch block:
+The third sexp generates a temporary buffer whose core is this
+eepitch block:
 
  (eepitch-shell2)
  (eepitch-kill)
  (eepitch-shell2)
   mkdir -p $S/http/angg.twu.net/eev-videos/
   cd       $S/http/angg.twu.net/eev-videos/
-  wget -nc  http://angg.twu.net/eev-videos/2022-pict2e-lua.mp4
-  wget -N   http://angg.twu.net/eev-videos/2022-pict2e-lua.vtt
+  wget -nc  http://angg.twu.net/eev-videos/NAMEOFTHEVIDEO.mp4
+  wget -N   http://angg.twu.net/eev-videos/NAMEOFTHEVIDEO.srt
+  wget -N   http://angg.twu.net/eev-videos/NAMEOFTHEVIDEO.vtt
 
 The \"-nc\" says to wget that if the .mp4 (the video) is already
-downloaded then it shouldn't try to download it again; the \"-N\" says
-to wget that if the version of the .vtt (the subtitles) at
-angg.twu.net is newer than the local copy then wget should download
-the newer version, and replace the local copy with the newer version.
-
-When a video has subtitles its `find-1stclassvideo-links' page
-contains a section titled \"Download subtitles:\". Compare:
+downloaded then it (the wget) shouldn't try to download it again;
+the \"-N\" says to wget that if the version of the file at
+angg.twu.net is newer than the local copy then wget should
+download the newer version, and replace the local copy with the
+newer version. The argument \".srt .vtt\" is a list of the
+extensions of the subtitles.
+
+The higher-level ways to play first-class videos (see section 9)
+call `find-psne-eevvideo-links' when they try to play a local
+copy of the video and they see that it hasn't been downloaded
+yet. This involves looking up information about the video in
+`ee-1stclassvideos-info'. Try:
+
+  (find-eev \"eev-videolinks.el\" \"eev2021\")
+  (find-eev \"eev-videolinks.el\" \"eevnav\")
+
+You will see that a few of the videos have a \":subs\" field
+indicating that they have subtitles, but most videos don't.
+
+The support for subtitles is recent, and is still a bit
+primitive. The temporary buffer generated by
+`find-1stclassvideo-links' contains a few extra lines when a
+video has subtitles - compare:
 
   (find-1stclassvideo-links \"2022pict2elua\")
   (find-1stclassvideo-links \"2021workshop6\")
 
-The video \"2022pict2elua\" has subtitles, and \"2021workshop6\" doesn't.
+The video \"2022pict2elua\" has subtitles, and \"2021workshop6\"
+doesn't.
+
+(TODO: rewrite the rest of this section)
 
 When both the .mp4 and .vtt files are present mpv plays the local copy
 with subtitles. Try:
diff --git a/eev-tlinks.el b/eev-tlinks.el
index 16ddf5e7b4..12fed27d50 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:    20220501
+;; Version:    20220511
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-tlinks.el>
@@ -82,8 +82,12 @@
 ;; «.find-eev-update-links»            (to "find-eev-update-links")
 ;; «.find-youtubedl-links»             (to "find-youtubedl-links")
 ;;   «.ee-youtubedl-command»           (to "ee-youtubedl-command")
+;;
 ;; «.find-psne-links»                  (to "find-psne-links")
 ;;   «.ee-find-psne-echo-options»      (to "ee-find-psne-echo-options")
+;; «.find-psne-eevvideo-links»         (to "find-psne-eevvideo-links")
+;; «.find-psne-1stclassvideo-links»    (to "find-psne-1stclassvideo-links")
+;;
 ;; «.find-git-links»                   (to "find-git-links")
 ;; «.find-fossil-links»                        (to "find-fossil-links")
 ;; «.find-apt-get-source-links»                (to "find-apt-get-source-links")
@@ -1274,6 +1278,101 @@ echo {e} '{url}' >> ~/.psne.log
 
 
 
+;;;                                                    _     _            
+;;;  _ __  ___ _ __   ___        ___  _____   ____   _(_) __| | ___  ___  
+;;; | '_ \/ __| '_ \ / _ \_____ / _ \/ _ \ \ / /\ \ / / |/ _` |/ _ \/ _ \ 
+;;; | |_) \__ \ | | |  __/_____|  __/  __/\ V /  \ V /| | (_| |  __/ (_) |
+;;; | .__/|___/_| |_|\___|      \___|\___| \_/    \_/ |_|\__,_|\___|\___/ 
+;;; |_|                                                                   
+;;
+;; «find-psne-eevvideo-links»  (to ".find-psne-eevvideo-links")
+;; Skel: (find-find-links-links-new "psne-eevvideo" "stem exts" "")
+;; Test: (find-psne-eevvideo-links "NAMEOFTHEVIDEO" ".srt .vtt")
+;; See:  (find-video-links-intro "5.1. Subtitles")
+;;
+;; NOTE: `find-psne-eevvideo-links', `ee-psne-eevvideo-core', and
+;;       `find-psne-1stclassvideo-links' were written in 2022may11 and
+;;       will probably replace some of the older functions for
+;;       downloading videos from http://angg.twu.net/ soon - the older
+;;       functions didn't have support for subtitles, and these
+;;       functions do.
+;;
+(defun find-psne-eevvideo-links (&optional stem exts &rest pos-spec-list)
+"Visit a temporary buffer containing a script for downloading a video."
+  (interactive)
+  (setq stem (or stem "{stem}"))
+  (setq exts (or exts "{exts}"))
+  (apply
+   'find-elinks
+   `((find-psne-eevvideo-links ,stem ,exts ,@pos-spec-list)
+     ;; Convention: the first sexp always regenerates the buffer.
+     (find-efunction 'find-psne-eevvideo-links)
+     ""
+     ,(ee-psne-eevvideo-core stem exts)
+     ,(ee-template0 "\
+")
+     )
+   pos-spec-list))
+
+;; Tests:
+;; (find-estring (ee-psne-eevvideo-core "NAMEOFTHEVIDEO" ".vtt .srt"))
+;; (find-estring (ee-psne-eevvideo-core "NAMEOFTHEVIDEO" ""))
+;; (defun ee-find-psne-echo-options () "-N")
+;; (defun ee-find-psne-echo-options () "")
+;;
+(defun ee-psne-eevvideo-core (stem exts)
+  "An internal function used by `find-psne-eevvideo-links'."
+  (let* ((dir         "$S/http/angg.twu.net/eev-videos/")
+         (url- (concat "http://angg.twu.net/eev-videos/"; stem))
+        (eo (format "%-3s" (ee-find-psne-echo-options)))
+         (wf (lambda (ext) (format "wget -N   %s%s\n" url- ext)))
+         (ef (lambda (ext) (format "echo %s  %s%s >> ~/.psne.log\n" eo url- 
ext)))
+         (wgets (mapconcat wf (split-string exts)))
+         (echos (mapconcat ef (cons ".mp4" (split-string exts))))
+        )
+    (ee-template0 "\
+# (find-psne-intro \"1. Local copies of files from the internet\")
+# (find-video-links-intro \"5. Local copies\")
+# (find-video-links-intro \"5.1. Subtitles\")
+
+ (sh-mode)
+ (eepitch-shell2)
+ (eepitch-kill)
+ (eepitch-shell2)
+mkdir -p {dir}
+cd       {dir}
+wget -nc  {url-}.mp4
+{wgets}\
+{echos}\
+
+# (find-fline \"{dir}\" \"{stem}.mp4\")
+# (find-video \"{dir}{stem}.mp4\")
+")))
+
+;; «find-psne-1stclassvideo-links»  (to ".find-psne-1stclassvideo-links")
+;; Skel: (find-find-links-links-new "psne-1stclassvideo" "c" "stem subexts")
+;; Test: (find-psne-1stclassvideo-links "eev2021")
+;;       (find-psne-1stclassvideo-links "2021workshop6")
+;;
+(defun find-psne-1stclassvideo-links (&optional c &rest pos-spec-list)
+"Visit a temporary buffer containing hyperlinks for psne-1stclassvideo."
+  (interactive)
+  (setq c (or c "{c}"))
+  (let* ((stem    (ee-1stclassvideos-mp4stem c))
+         (subexts (or (ee-1stclassvideos-field c :subs) "")))
+    (apply
+     'find-elinks
+     `((find-psne-1stclassvideo-links ,c ,@pos-spec-list)
+       ;; Convention: the first sexp always regenerates the buffer.
+       (find-efunction 'find-psne-1stclassvideo-links)
+       ""
+       ,(ee-psne-eevvideo-core stem subexts)
+       )
+     pos-spec-list)))
+
+
+
+
 
 
 
@@ -1640,7 +1739,8 @@ netcat -l -p {tgtport}
 
 ;; «ee-psne-if-needed»  (to ".ee-psne-if-needed")
 ;; Tests:
-;; (ee-psne-if-needed "http://www.gnu.org/software/emacs/emacs-paper.html";)
+;;               (ee-psne-if-needed "https://www.lua.org/index.html";)
+;; (find-estring (ee-psne-if-needed "https://www.lua.org/index.html";))
 ;; (find-estring (ee-psne-if-needed "http://www.foo.org/bar.html";))
 ;; (find-estring (ee-psne-download  "http://www.foo.org/bar.html";))
 ;; (find-estring (ee-psne-download0 "http://www.foo.org/bar.html";))
@@ -1920,6 +2020,9 @@ and: (find-video-links-intro \\\"7. `find-eev-video'\\\")
 ;;        (find-wgetnode "Download Options" "-N" "--timestamping")
 ;;        (find-wgetnode "Time-Stamping")
 ;;
+;; NOTE: this function was superseded by
+;;       `find-psne-1stclassvideo-links' and will be deleted soon!
+;;
 (defun find-wgeteevsubtitles-links (&optional stem exts &rest pos-spec-list)
 "Visit a temporary buffer containing a script for downloading subtitles.
 The script downloads an eev video and it subtitles. For example,
@@ -1967,7 +2070,7 @@ wget -nc  {url-}.mp4
 {wgets}\
 ")))
 
-
+;; 2022may10: 
 
 
 
@@ -3067,8 +3170,9 @@ For more info on this particular video, run:
       (let ((mp4stem (ee-1stclassvideos-mp4stem c)))
        (ee-template0 "\
 ;;
-;; Download subtitles:
-;;        (find-wgeteevsubtitles-links \"{mp4stem}\" \"{exts}\")
+;; Download or update subtitles:
+;;        (find-psne-1stclassvideo-links \"{c}\")
+;;        (find-psne-eevvideo-links \"{mp4stem}\" \"{exts}\")
 ")
        ))))
 
diff --git a/eev-videolinks.el b/eev-videolinks.el
index a6e8baf0f9..bd85413a23 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:    20220505
+;; Version:    20220511
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-videolinks.el>
@@ -195,20 +195,26 @@
 ;; (find-estring (ee-eevlocal-body "emacsconf2020" "0123456789a" nil))
 ;; (find-estring (ee-eevlocal-body "emacsconf2020" "0123456789a" "1:23"))
 ;; (find-estring (ee-eevlocal-body "emacsconf1234" "0123456789a" "1:23"))
+;; (find-estring (ee-eevlocal-youtube-comment "0123456789a" nil))
+;; (find-estring (ee-eevlocal-youtube-comment "0123456789a" ""))
+;; (find-estring (ee-eevlocal-youtube-comment "0123456789a" "1:23"))
+;; (find-estring (ee-psne-url-comment "http://www.foo.org/bar.html";))
+;; (find-estring (ee-eevlocal-psne "emacsconf1234" nil))
+;; (find-estring (ee-eevlocal-psne "emacsconf2020" nil))
+;; (find-estring (ee-eevlocal-psne "emacsconf2020" "1:23"))
 
 (defun ee-eevlocal-body (stem hash time)
   "An internal function used by `find-eevlocal-links'."
-  (let ((url (format "http://angg.twu.net/eev-videos/%s.mp4"; stem)))
-    (concat (ee-eevlocal-youtube-comment hash time)
-           "\n" (ee-psne-url-comment url)
-           "\n\n" (ee-eevlocal-psne stem time)
-           )))
+  (let* ((url (format "http://angg.twu.net/eev-videos/%s.mp4"; stem))
+        (youtube-comment (ee-eevlocal-youtube-comment hash time))
+        (psne-comment    (ee-psne-url-comment         url))
+        (psne            (ee-eevlocal-psne            stem time)))
+    (ee-template0 "\
+{youtube-comment}
+{psne-comment}
+{psne}\
+")))
 
-;; Tests:
-;; (find-estring (ee-eevlocal-youtube-comment "0123456789a" nil))
-;; (find-estring (ee-eevlocal-youtube-comment "0123456789a" ""))
-;; (find-estring (ee-eevlocal-youtube-comment "0123456789a" "1:23"))
-;;
 (defun ee-eevlocal-youtube-comment (hash time)
   "An internal function used by `find-eevlocal-links'."
   (let* ((youtubeurl (ee-find-youtube-url hash time))
@@ -221,9 +227,11 @@
 ")))
 
 ;; Tests:
-;; (find-estring (ee-eevlocal-psne "emacsconf1234" nil))
 ;; (find-estring (ee-eevlocal-psne "emacsconf2020" nil))
 ;; (find-estring (ee-eevlocal-psne "emacsconf2020" "1:23"))
+;; (find-estring (ee-eevlocal-psne "emacsconf2345" nil))
+;; (find-estring (ee-psne-if-needed "https://www.lua.org/index.html";))
+;; (find-estring (ee-psne-if-needed "http://foo/bar";))
 ;; (find-estring (ee-eevlocal-findmpvvideo "emacsconf2020" nil))
 ;; (find-estring (ee-eevlocal-findmpvvideo "emacsconf2020" "{foo}"))
 ;; (find-estring (ee-eevlocal-findmpvvideo "emacsconf2020" "1:23"))
@@ -249,6 +257,7 @@
 
 
 
+
 ;;;  ____       _           _   
 ;;; / ___|  ___| | ___  ___| |_ 
 ;;; \___ \ / _ \ |/ _ \/ __| __|
@@ -945,16 +954,18 @@ For more info on this particular video, run:
 
 ;; «ee-1stclassvideos-field»  (to ".ee-1stclassvideos-field")
 ;;
-;;                           (find-eppp ee-1stclassvideos-info)
-;;                     (assoc "eev2021" ee-1stclassvideos-info)
-;;                (cdr (assoc "eev2021" ee-1stclassvideos-info))
-;;     (plist-get (cdr (assoc "eev2021" ee-1stclassvideos-info)) :page)
-;;     (plist-get (cdr (assoc "foo"     ee-1stclassvideos-info)) :page)
-;; (ee-1stclassvideos-field   "eev2021" :page)
-;; (ee-1stclassvideos-field   "eev2021" :mp4)
-;; (ee-1stclassvideos-field   "eev2021" :yt)
-;; (ee-1stclassvideos-mp4stem "eev2021")
-;; (ee-1stclassvideos-hash    "eev2021")
+;;                            (find-eppp ee-1stclassvideos-info)
+;;                      (assoc "eev2021" ee-1stclassvideos-info)
+;;                 (cdr (assoc "eev2021" ee-1stclassvideos-info))
+;;      (plist-get (cdr (assoc "eev2021" ee-1stclassvideos-info)) :page)
+;;      (plist-get (cdr (assoc "foo"     ee-1stclassvideos-info)) :page)
+;; (ee-1stclassvideos-field    "eev2021" :page)
+;; (ee-1stclassvideos-field    "eev2021" :mp4)
+;; (ee-1stclassvideos-field    "eev2021" :yt)
+;; (ee-1stclassvideos-mp4stem  "eev2021")
+;; (ee-1stclassvideos-localmp4 "eev2021")
+;; (ee-1stclassvideos-mp4found "eev2021")
+;; (ee-1stclassvideos-hash     "eev2021")
 ;; (find-eev "eev-videolinks.el" "more-info")
 ;;
 (defun ee-1stclassvideos-field (c &optional field)
@@ -968,6 +979,14 @@ For more info on this particular video, run:
   (let ((yt (ee-1stclassvideos-field c :yt)))
      (replace-regexp-in-string "^.*=\\([^=]*\\)$" "\\1" yt)))
 
+(defun ee-1stclassvideos-localmp4 (c)
+  (ee-shorten-file-name
+   (ee-url-to-fname
+    (ee-1stclassvideos-field c :mp4))))
+
+(defun ee-1stclassvideos-mp4found (c)
+  (ee-psne-downloaded-p
+   (ee-1stclassvideos-field c :mp4)))
 
 
 
diff --git a/eev-wconfig.el b/eev-wconfig.el
index 240cf4cebc..a705ad93c4 100644
--- a/eev-wconfig.el
+++ b/eev-wconfig.el
@@ -147,8 +147,12 @@
 ;; «.find-wconfig-shell-links»         (to "find-wconfig-shell-links")
 ;; «.find-wconfig-lua-links»           (to "find-wconfig-lua-links")
 ;; «.find-wconfig-mpv-links»           (to "find-wconfig-mpv-links")
+;;
 ;; «.find-wconfig-magic-links»         (to "find-wconfig-magic-links")
 ;;   «.ee-wconfig-run-magic»           (to "ee-wconfig-run-magic")
+;;
+;; «.find-wconfig-exercises-links»     (to "find-wconfig-exercises-links")
+;;
 ;; «.find-wconfig-undo-links»          (to "find-wconfig-undo-links")
 
 
@@ -211,7 +215,6 @@
 ;; «find-wconfig-browser-links»  (to ".find-wconfig-browser-links")
 ;; Skel: (find-find-links-links-new "wconfig-browser" "" "")
 ;; Test: (find-wconfig-browser-links)
-;;       (defun edt () (interactive) (eval-defun nil) 
(find-wconfig-browser-links))
 ;;
 (defun find-wconfig-browser-links (&rest pos-spec-list)
 "Visit a temporary buffer containing a script for configuring the browser."
@@ -294,7 +297,6 @@
 ;; «find-wconfig-wget-links»  (to ".find-wconfig-wget-links")
 ;; Skel: (find-find-links-links-new "wconfig-wget" "" "")
 ;; Test: (find-wconfig-wget-links)
-;;       (defun edt () (interactive) (eval-defun nil) 
(find-wconfig-wget-links))
 ;;
 (defun find-wconfig-wget-links (&rest pos-spec-list)
 "Visit a temporary buffer containing a script for configuring wget on Windows."
@@ -462,7 +464,6 @@ cd       ~/eev-wconfig/
 ;; «find-wconfig-shell-links»  (to ".find-wconfig-shell-links")
 ;; Skel: (find-find-links-links-new "wconfig-shell" "" "")
 ;; Test: (find-wconfig-shell-links)
-;;       (defun edt () (interactive) (eval-defun nil) 
(find-wconfig-shell-links))
 ;;
 (defun find-wconfig-shell-links (&rest pos-spec-list)
 "Visit a temporary buffer containing a script for configuring eshell on 
Windows."
@@ -524,6 +525,17 @@ wget --version
 (defun eepitch-shell2 () (interactive) (eepitch-eshell2))
 (defun eepitch-shell3 () (interactive) (eepitch-eshell3))
 
+;; Test: check that the two eepitch
+;; blocks below both run Eshell.
+
+ (eepitch-eshell)
+ (eepitch-kill)
+ (eepitch-eshell)
+
+ (eepitch-shell)
+ (eepitch-kill)
+ (eepitch-shell)
+
 
 
 ;; 3. Configure the `echo' of eshell
@@ -574,7 +586,6 @@ wget --version
 ;; «find-wconfig-lua-links»  (to ".find-wconfig-lua-links")
 ;; Skel: (find-find-links-links-new "wconfig-lua" "" "")
 ;; Test: (find-wconfig-lua-links)
-;;       (defun edt () (interactive) (eval-defun nil) (find-wconfig-lua-links))
 ;;
 (defun find-wconfig-lua-links (&rest pos-spec-list)
 "Visit a temporary buffer containing hyperlinks for wconfig-lua."
@@ -662,7 +673,6 @@ for k,v in pairs(_G) do print(k) end
 ;; «find-wconfig-mpv-links»  (to ".find-wconfig-mpv-links")
 ;; Skel: (find-find-links-links-new "wconfig-mpv" "" "")
 ;; Test: (find-wconfig-mpv-links)
-;;       (defun edt () (interactive) (eval-defun nil) (find-wconfig-mpv-links))
 ;;
 (defun find-wconfig-mpv-links (&rest pos-spec-list)
 "Visit a temporary buffer containing hyperlinks for wconfig-mpv."
@@ -734,7 +744,6 @@ for k,v in pairs(_G) do print(k) end
 ;; «find-wconfig-magic-links»  (to ".find-wconfig-magic-links")
 ;; Skel: (find-find-links-links-new "wconfig-magic" "" "")
 ;; Test: (find-wconfig-magic-links)
-;;       (defun edt () (interactive) (eval-defun nil) 
(find-wconfig-magic-links))
 ;;
 (defun find-wconfig-magic-links (&rest pos-spec-list)
 "Visit a temporary buffer containing hyperlinks for wconfig-magic."
@@ -797,6 +806,7 @@ for k,v in pairs(_G) do print(k) end
 
 ;; See: (find-wconfig-magic-links)
 ;;      (find-wconfig-magic-links 2 \"1. Configure chrome and mpv\")
+;;      (find-wconfig-magic-links 2 \"2. Things that you need to run once\")
 ;;      (find-wconfig-magic-links 2 \"3. Magic\")
 ;;      (find-eev \"eev-load.el\" \"autoloads\")
 ;;      (find-eev \"eev-wconfig.el\" \"intro\")
@@ -851,6 +861,45 @@ See the variable `ee-wconfig-magic-code'."
 
 
 
+;;;  _____                   _               
+;;; | ____|_  _____ _ __ ___(_)___  ___  ___ 
+;;; |  _| \ \/ / _ \ '__/ __| / __|/ _ \/ __|
+;;; | |___ >  <  __/ | | (__| \__ \  __/\__ \
+;;; |_____/_/\_\___|_|  \___|_|___/\___||___/
+;;;                                          
+;; «find-wconfig-exercises-links»  (to ".find-wconfig-exercises-links")
+;; Skel: (find-find-links-links-new "wconfig-exercises" "" "")
+;; Test: (find-wconfig-exercises-links)
+;;
+(defun find-wconfig-exercises-links (&rest pos-spec-list)
+"Visit a temporary buffer containing hyperlinks for wconfig-exercises."
+  (interactive)
+  (let ((ee-buffer-name (or ee-buffer-name 
"*(find-wconfig-exercises-links)*")))
+    (apply
+     'find-elinks-elisp
+     `((find-wconfig-exercises-links ,@pos-spec-list)
+       ;; Convention: the first sexp always regenerates the buffer.
+       (find-wconfig-links)
+       (find-efunction 'find-wconfig-exercises-links)
+       ""
+       ,(ee-template0 "\
+;; 1. Understand `code-c-d'
+;; ========================
+
+;; 2. Download the .zip
+
+;; 3. Understand `M-h M-e'
+;; =======================
+
+;; Exercise: learn Org!
+;; See: http://angg.twu.net/eev-wconfig.el#learn-org
+
+")
+       )
+     pos-spec-list)))
+
+
+
 
 ;;;  _   _           _       
 ;;; | | | |_ __   __| | ___  
@@ -861,7 +910,6 @@ See the variable `ee-wconfig-magic-code'."
 ;; «find-wconfig-undo-links»  (to ".find-wconfig-undo-links")
 ;; Skel: (find-find-links-links-new "wconfig-undo" "" "")
 ;; Test: (find-wconfig-undo-links)
-;;       (defun edt () (interactive) (eval-defun nil) 
(find-wconfig-undo-links))
 ;;
 (defun find-wconfig-undo-links (&rest pos-spec-list)
 "Visit a temporary buffer containing hyperlinks for wconfig-undo."
@@ -919,6 +967,7 @@ See the variable `ee-wconfig-magic-code'."
 
 
 
+
 (provide 'eev-wconfig)