[elpa] externals/eev c39099062d: Added (find-dot-emacs-links).

[ELPA Syncer]

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

    Added (find-dot-emacs-links).
---
 ChangeLog         |  17 ++++++++
 VERSION           |   4 +-
 eev-intro.el      |  41 +++++++++++-------
 eev-tlinks.el     | 123 ++++++++++++++++++++++++++++++++++++++++++++++++++----
 eev-videolinks.el |  18 +++++++-
 5 files changed, 178 insertions(+), 25 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index b57f8c384e..2b9dd54be8 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,20 @@
+2024-07-17  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eev-tlinks.el (find-dot-emacs-links, ee-dot-emacs-concat)
+       (ee-dot-emacs-eev, ee-dot-emacs-mfms, ee-dot-emacs-angges)
+       (ee-dot-emacs-maxima5470, ee-dot-emacs-epl): new functions.
+
+       * eev-intro.el (find-windows-beginner-intro): small changes.
+
+2024-07-15  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eev-tlinks.el (ee-debootstrap1): new argument: `container'.
+
+2024-07-14  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eev-videolinks.el (ee-1stclassvideos-info): new video:
+       "2024algpergs".
+
 2024-07-10  Eduardo Ochs  <eduardoochs@gmail.com>
 
        * eev.el: bumped the version.
diff --git a/VERSION b/VERSION
index d5a418a517..80887d86d9 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Thu Jul 11 00:43:13 GMT 2024
-Wed Jul 10 21:43:13 -03 2024
+Thu Jul 18 00:53:31 GMT 2024
+Wed Jul 17 21:53:31 -03 2024
diff --git a/eev-intro.el b/eev-intro.el
index 4b0cbbb8d7..1edea9ad9d 100644
--- a/eev-intro.el
+++ b/eev-intro.el
@@ -15049,15 +15049,15 @@ Type `M-x find-windows-beginner-intro' to open this 
intro.
 
 
 
-3. Use eepitch to install Debian packages
+3. Use eepitch to add a Debian repository
 =========================================
 Eepitch is explained here:
 
   http://anggtwu.net/eepitch.html
 
 Run the eepitch block below by typing <f8> on each line, starting by the
-first line with a red star. Some lines will ask for a password in the
-minibuffer (at the bottom of the screen).
+first line with a red star. The line with the \"sudo\" will ask for a
+password in the minibuffer (at the bottom of the screen).
 
  (eepitch-shell)
  (eepitch-kill)
@@ -15066,6 +15066,20 @@ echo '
   # Edrx:
   deb http://deb.debian.org/debian/ bookworm main contrib non-free
 ' | sudo tee -a /etc/apt/sources.list
+
+ Lines with two red stars are comments.
+ If you need to edit /etc/apt/sources.list by hand, use:
+ (find-fline \"/sudo:root@localhost:/etc/apt/sources.list\")
+
+
+
+4. Use eepitch to install Debian packages
+=========================================
+Run the eepitch block below:
+
+ (eepitch-shell)
+ (eepitch-kill)
+ (eepitch-shell)
 sudo apt-get update
 sudo apt-get upgrade -y
 sudo apt-get install -y emacs-el emacs-common-non-dfsg
@@ -15073,7 +15087,7 @@ sudo apt-get install -y wget curl
 sudo apt-get install -y mpv
 sudo apt-get install -y xterm xpdf poppler-utils
 sudo apt-get install -y sbcl sbcl-doc sbcl-source
-sudo apt-get install -y maxima gnuplot
+sudo apt-get install -y maxima maxima-doc gnuplot
 sudo apt-get install -y lua5.1 lua5.1-dev lua5.1-doc
 sudo apt-get install -y lua5.2 lua5.2-dev lua5.2-doc
 sudo apt-get install -y lua5.3 lua5.3-dev
@@ -15089,8 +15103,7 @@ sudo apt-get install -y lynx
 
 
 
-
-4. Use eepitch to install Google Chrome
+5. Use eepitch to install Google Chrome
 =======================================
 Run the eepitch block below by typing <f8> on each line.
 Note the comments about errors...
@@ -15099,7 +15112,7 @@ Note the comments about errors...
  (eepitch-kill)
  (eepitch-shell)
 cd /tmp/
-wget https://dl.google.com/linux/direct/google-chrome-stable_current_amd64.deb
+wget -N 
https://dl.google.com/linux/direct/google-chrome-stable_current_amd64.deb
 #
 # The \"dpkg -i\" below will give lots of errors:
 sudo dpkg -i google-chrome-stable_current_amd64.deb
@@ -15110,7 +15123,7 @@ sudo apt-get install -y -f
 
 
 
-5. Learn the basics of Emacs and eev
+6. Learn the basics of Emacs and eev
 ====================================
 The \"basics\" are these sections of the main tutorial,
 
@@ -15160,7 +15173,7 @@ and these sections on anchors and short hyperlinks:
 
 
 
-6. Test Maxima
+7. Test Maxima
 ==============
 Here is a basic test of Maxima. The eepitch block below will define
 three functions in Maxima and then plot two of them using an external
@@ -15181,7 +15194,7 @@ plot3d (S(x,y), [x, 0, 6], [y, 0, 6]);
 
 
 
-7. Test Maxima with find-wget
+8. Test Maxima with find-wget
 =============================
 This sexp
 
@@ -15201,7 +15214,7 @@ and then try:
 
 
 
-8. Videos
+9. Videos
 =========
 This sexp
 
@@ -15238,8 +15251,8 @@ to see a way to convert:
 
 
 
-9. Learn Lisp
-=============
+10. Learn Lisp
+==============
 See:
   (find-elisp-intro)
   (find-elisp-intro \"M-7 M-j\")
@@ -15247,7 +15260,7 @@ See:
 
 
 
-10. Edit your init file
+11. Edit your init file
 =======================
 See:
   (find-eev-levels-intro \"0. Introduction\")
diff --git a/eev-tlinks.el b/eev-tlinks.el
index 8973f14ef9..5c9550664e 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:    20240530
+;; Version:    20240717
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://anggtwu.net/eev-current/eev-tlinks.el>
@@ -156,6 +156,7 @@
 ;; «.find-1stclassvideos»              (to "find-1stclassvideos")
 ;;   «.1c»                             (to "1c")
 ;;   «.aliases»                                (to "aliases")
+;; «.find-dot-emacs-links»             (to "find-dot-emacs-links")
 ;; «.find-advicebefore-links»          (to "find-advicebefore-links")
 ;; «.find-osm-links»                   (to "find-osm-links")
 ;; «.find-pip3-links»                  (to "find-pip3-links")
@@ -3861,7 +3862,108 @@ is nil, use the result of (ee-1stclassvideos)."
 
 
 
+;;;      _       _                                      
+;;;   __| | ___ | |_       ___ _ __ ___   __ _  ___ ___ 
+;;;  / _` |/ _ \| __|____ / _ \ '_ ` _ \ / _` |/ __/ __|
+;;; | (_| | (_) | ||_____|  __/ | | | | | (_| | (__\__ \
+;;;  \__,_|\___/ \__|     \___|_| |_| |_|\__,_|\___|___/
+;;;                                                     
+;; «find-dot-emacs-links»  (to ".find-dot-emacs-links")
+;; Skel: (find-find-links-links-new "dot-emacs" "opts" "ee-buffer-name")
+;; Test: (find-dot-emacs-links)
+;;
+(defun find-dot-emacs-links (&optional opts &rest pos-spec-list)
+"Visit a temporary buffer containing hyperlinks for dot-emacs."
+  (interactive)
+  (setq opts (or opts "eev"))
+  (let* ((body (ee-dot-emacs-concat opts))
+         (ee-buffer-name "*(find-dot-emacs-links)*"))
+    (apply
+     'find-elinks-elisp
+     `((find-dot-emacs-links ,opts ,@pos-spec-list)
+       (find-dot-emacs-links "eev angges")
+       (find-dot-emacs-links "eev angges maxima5470 mfms")
+       ;; Convention: the first sexp always regenerates the buffer.
+       (find-efunction 'find-dot-emacs-links)
+       (find-dot-emacs-intro)
+       ""
+       ,(ee-template0 "\
+;; (ee-copy-rest-3 nil \";;--end\" \"~/.emacs\")
+{body}\
+;;--end
+")
+       )
+     pos-spec-list)))
+
+;; Test: (find-estring-elisp (ee-dot-emacs-concat "eev mfms"))
+(defun ee-dot-emacs-concat (opts)
+  (string-join 
+   (cl-loop for opt in (ee-split opts)
+            for sym = (ee-intern "ee-dot-emacs-%s" opt)
+            collect (funcall sym))
+   "\n"))
+
+;; Test: (find-estring-elisp (ee-dot-emacs-eev))
+(defun ee-dot-emacs-eev (&rest rest) "\
+;; See: (find-eev-levels-intro)
+(require 'eev-load)               ; (find-eev \"eev-load.el\")
+(require 'eev-aliases)            ; (find-eev \"eev-aliases.el\")
+(eev-mode 1)                      ; (find-eev \"eev-mode.el\")
+")
 
+;; Test: (find-estring-elisp (ee-dot-emacs-mfms))
+(defun ee-dot-emacs-mfms (&rest rest) "\
+;; From: (find-mpv-links)
+;;  See: http://anggtwu.net/eev-videos.html#smaller-fullscreen
+;;
+(defun mf ()
+  \"Make mpv use (real) full screen.\"
+  (interactive)
+  (setq ee-mpv-video-options '(\"--fs\" \"--osd-level=2\")))
+;;
+(defun ms ()
+  \"Make mpv use a \\\"smaller full screen\\\".\"
+  (interactive)
+  (setq ee-mpv-video-options
+       '(\"--fs\" \"--osd-level=2\"
+         \"--video-margin-ratio-bottom=0.15\"
+         \"--sub-font-size=35\")))
+")
+
+;; Test: (find-estring-elisp (ee-dot-emacs-angges))
+(defun ee-dot-emacs-angges (&rest rest) "\
+;; From: (find-angg-es-links)
+(defun find-angg (fname &rest rest)
+  (apply 'find-wgeta (format \"http://anggtwu.net/%s\"; fname) rest))
+(defun find-anggfile (fname &rest rest)
+  (apply 'find-wget  (format \"http://anggtwu.net/%s\"; fname) rest))
+(defun find-es (fname &rest rest)
+  (apply 'find-wgeta (format \"http://anggtwu.net/e/%s.e\"; fname) rest))
+")
+
+;; Test: (find-estring-elisp (ee-dot-emacs-maxima5470))
+(defun ee-dot-emacs-maxima5470 (&rest rest) "\
+;; From: (find-windows-beginner-intro \"8. Test Maxima with find-wget\")
+(code-c-d \"maxima\" \"/usr/share/maxima/5.47.0/\" \"maxima\")
+")
+
+;; Test: (find-estring-elisp (ee-dot-emacs-epl))
+(defun ee-dot-emacs-epl (&rest rest) "\
+;; See: (find-eepitch-intro \"3.3. `eepitch-preprocess-line'\")
+(defvar eepitch-preprocess-regexp \"^\")
+(setq   eepitch-preprocess-regexp \"^\")
+(defun eepitch-preprocess-line (line)
+  (replace-regexp-in-string eepitch-preprocess-regexp \"\" line))
+")
+
+
+
+;;;            _       _          
+;;;   __ _  __| |_   _(_) ___ ___ 
+;;;  / _` |/ _` \ \ / / |/ __/ _ \
+;;; | (_| | (_| |\ V /| | (_|  __/
+;;;  \__,_|\__,_| \_/ |_|\___\___|
+;;;                               
 ;; «find-advicebefore-links»  (to ".find-advicebefore-links")
 ;; Skel: (find-find-links-links-new "advicebefore" "fun" "")
 ;; Test: (find-advicebefore-links)
@@ -5553,16 +5655,17 @@ sudo ls -lAFh /var/lib/machines/
 
 
 ;; «ee-debootstrap1»  (to ".ee-debootstrap1")
-;; Tests: (find-estring-2a (ee-debootstrap1 "{user}" "{passwd}"))
-;;        (find-estring-2a (ee-debootstrap1 "edrx" "edrx"))
+;; Tests: (find-estring-2a (ee-debootstrap1 "{container}" "{user}" "{passwd}"))
+;;        (find-estring-2a (ee-debootstrap1 "subdebian" "edrx" "edrx"))
 ;;
-(defun ee-debootstrap1 (&optional user passwd)
+(defun ee-debootstrap1 (&optional container user passwd)
   "An internal function used by `find-debootstrap1-links'."
-  (setq user   (or user   user-login-name))
-  (setq passwd (or passwd user))
+  (setq container (or container "subdebian"))
+  (setq user      (or user   user-login-name))
+  (setq passwd    (or passwd user))
   (let* ((key (find-sh0 "cat ~/.ssh/id_rsa.pub")))
     (ee-template0 "\
- From: (find-estring-2a (ee-debootstrap1 \"{user}\" \"{passwd}\"))
+ From: (find-estring-2a (ee-debootstrap1 \"{container}\" \"{user}\" 
\"{passwd}\"))
  (sh-mode)
 
 echo \"{passwd}/{passwd}/Full Name/////Y/\" | tr / '\\n' | adduser {user}
@@ -5576,6 +5679,10 @@ echo '
 ' | tee -a /etc/sudoers
 ls -lAF    /etc/sudoers
 
+cat /etc/hosts
+echo '127.0.1.1   {container}' | tee -a /etc/hosts
+cat /etc/hosts
+
 mkdir -p            /home/{user}/.ssh/
 mkdir -p                 /root/.ssh/
 echo '{key}' > /home/edrx/.ssh/authorized_keys
@@ -5633,7 +5740,7 @@ sudo du -ch                /var/lib/machines/{container}/
 
 sudo systemd-nspawn -U --machine {container}
 
-{(ee-debootstrap1 user passwd)}\
+{(ee-debootstrap1 container user passwd)}\
 
 exit
 
diff --git a/eev-videolinks.el b/eev-videolinks.el
index b10d7eab72..77b4936ec7 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:    20240517
+;; Version:    20240715
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://anggtwu.net/eev-current/eev-videolinks.el>
@@ -74,6 +74,7 @@
 ;;   «.eev2023replsb»                  (to "eev2023replsb")
 ;;   «.2024git»                                (to "2024git")
 ;;   «.2024luaso»                      (to "2024luaso")
+;;   «.2024algpergs»                   (to "2024algpergs")
 ;; «.ee-1stclassvideos-field»          (to "ee-1stclassvideos-field")
 ;; «.second-class-videos»              (to "second-class-videos")
 ;;   «.code-eevvideo»                  (to "code-eevvideo")
@@ -827,6 +828,21 @@ of the videos and play them with mpv. Compare with
      :length  "14:16"
      :subs    ".vtt"
      :comment "See: (find-lua-tutorial-intro)")
+    ;;
+    ;; «2024algpergs»  (to ".2024algpergs")
+    ;; Play: (find-2024algpergsvideo "0:00")
+    ;; Index: (find-1stclassvideoindex "2024algpergs")
+    ("2024algpergs"
+     :title "Algumas perguntas pros estudantes de C2 que estão aprendendo 
Emacs, eev e Maxima"
+     :mp4   "http://anggtwu.net/eev-videos/2024-algumas-perguntas.mp4";
+     :yt    "http://www.youtube.com/watch?v=FjhyhTxN_-o";
+     :page  "http://anggtwu.net/2024-algumas-perguntas.html";
+     :hsubs "http://anggtwu.net/2024-algumas-perguntas.html#00:00";
+     :lang  "portuguese"
+     :date    "2024jul13"
+     :length  "10:13"
+     :subs    ".vtt"
+     :comment "A video in Portuguese about installation on Windows.")
     ))