[elpa] externals/eev 1379ca71a9 1/2: Added (find-newbrowser2-links).

[ELPA Syncer]

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

    Added (find-newbrowser2-links).
---
 ChangeLog     | 13 ++++++++++++
 VERSION       |  4 ++--
 eev-intro.el  |  6 ++++++
 eev-tlinks.el | 64 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-
 4 files changed, 84 insertions(+), 3 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index e7a9ff25df..62f23fd396 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,16 @@
+2024-07-21  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eev-tlinks.el (find-newbrowser-links): marked as obsolete.
+       (find-newbrowser2-links): new function.
+
+2024-07-19  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eev-tlinks.el (find-dot-emacs-links): point to
+       <http://anggtwu.net/2024-find-dot-emacs-links.html>.
+
+       * eev-intro.el (find-dot-emacs-intro): point to
+       <http://anggtwu.net/2024-find-dot-emacs-links.html>.
+
 2024-07-18  Eduardo Ochs  <eduardoochs@gmail.com>
 
        * eev-tlinks.el (ee-dot-emacs-melpa, ee-dot-emacs-lean4): new
diff --git a/VERSION b/VERSION
index 633383df5c..eebcb7388d 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Fri Jul 19 16:13:19 GMT 2024
-Fri Jul 19 13:13:19 -03 2024
+Mon Jul 22 05:10:08 GMT 2024
+Mon Jul 22 02:10:08 -03 2024
diff --git a/eev-intro.el b/eev-intro.el
index 1e57d3497a..9af955c1bb 100644
--- a/eev-intro.el
+++ b/eev-intro.el
@@ -17809,6 +17809,12 @@ UNFINISHED! UNTESTED!
 ================
   http://anggtwu.net/2024-lean4-oficina-0.html
   (find-windows-beginner-intro)
+  (find-windows-beginner-intro \"6. Learn the basics of Emacs and eev\")
+
+(find-eev-quick-intro \"6.1. The main key: <F8>\")
+(find-eev-quick-intro \"6.2. Other targets\")
+(find-eev-quick-intro \"6.3. Creating eepitch blocks: `M-T'\")
+(find-eev-quick-intro \"6.4. Red stars\")
 
 
 
diff --git a/eev-tlinks.el b/eev-tlinks.el
index 9728c62660..a7ab25d6af 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:    20240719
+;; Version:    20240721
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://anggtwu.net/eev-current/eev-tlinks.el>
@@ -132,6 +132,7 @@
 ;; «.find-eeit-links»                  (to "find-eeit-links")
 ;; «.find-texlive-links»               (to "find-texlive-links")
 ;; «.find-newbrowser-links»            (to "find-newbrowser-links")
+;; «.find-newbrowser2-links»           (to "find-newbrowser2-links")
 ;; «.find-newpdfviewer-links»          (to "find-newpdfviewer-links")
 ;; «.ee-0x0-upload-region»             (to "ee-0x0-upload-region")
 ;; «.find-0x0-links»                   (to "find-0x0-links")
@@ -3116,6 +3117,11 @@ sudo ./install-tl -select-repository
      ;; Convention: the first sexp always regenerates the buffer.
      (find-efunction 'find-newbrowser-links)
      ""
+     ";; Important: this function is OBSOLETE!"
+     ";; It was superseded by: (find-newbrowser2-links)"
+     ""
+     ""
+     ""
      ";; See: (find-wconfig-browser-links)"
      ""
      ,(ee-template0 "\
@@ -3200,7 +3206,63 @@ sudo ./install-tl -select-repository
 ;;          (find-youtube-video \"FoAzpGzFCSE\" \"15:14\")
 ;;                 (find-2022findeevanggvideo \"15:14\")
 (setq ee-find-youtube-video-program 'find-{browser})
+")
+     )
+   pos-spec-list))
+
 
+
+
+;;;                      _                                    ____  
+;;;  _ __   _____      _| |__  _ __ _____      _____  ___ _ _|___ \ 
+;;; | '_ \ / _ \ \ /\ / / '_ \| '__/ _ \ \ /\ / / __|/ _ \ '__|__) |
+;;; | | | |  __/\ V  V /| |_) | | | (_) \ V  V /\__ \  __/ |  / __/ 
+;;; |_| |_|\___| \_/\_/ |_.__/|_|  \___/ \_/\_/ |___/\___|_| |_____|
+;;;                                                                 
+;; «find-newbrowser2-links»  (to ".find-newbrowser2-links")
+;; Skel: (find-find-links-links-new "newbrowser2" "binary" "")
+;; Test: (find-newbrowser2-links)
+;;
+(defun find-newbrowser2-links (&optional binary &rest pos-spec-list)
+"Visit a temporary buffer with instructions for making `find-googlechrome'
+call BINARY instead of \"google-chrome\"."
+  (interactive)
+  (setq binary (or binary "{binary}"))
+  (apply
+   'find-elinks-elisp
+   `((find-newbrowser2-links ,binary ,@pos-spec-list)
+     (find-newbrowser2-links "{binary}" ,@pos-spec-list)
+     (find-newbrowser2-links "google-chrome" ,@pos-spec-list)
+     (find-newbrowser2-links "chromium" ,@pos-spec-list)
+     ;; Convention: the first sexp always regenerates the buffer.
+     (find-efunction 'find-newbrowser2-links)
+     ""
+     ,(ee-template0 "\
+;; Make `{binary}' the default browser.
+;; This is a hack that makes `find-googlechrome' call `{binary}'!
+
+
+;; Try:
+;;
+(defun find-googlechrome (url) (find-bgprocess `(\"{binary}\" ,url)))
+(find-googlechrome \"https://www.lua.org/\";)
+;;
+;; Then run these tests:
+;;   (find-bgprocess \"{binary} https://www.lua.org/\";)
+;;   (find-googlechrome \"https://www.lua.org/\";)
+;;   (brg \"https://www.lua.org/\";)
+;;   (find-eev-quick-intro \"3.1. Non-elisp hyperlinks\" \"M-x brg\")
+
+
+;; To save this configuration, see:
+;;   (find-dot-emacs-intro)
+;; and run:
+;;   
+;; (ee-copy-rest-3 nil \";;--end\" \"~/.emacs\")
+;; From: (find-newbrowser2-links \"{binary}\")
+(defun find-googlechrome (url) (find-bgprocess `(\"{binary}\" ,url)))
+(find-googlechrome \"https://www.lua.org/\";)
+;;--end
 ")
      )
    pos-spec-list))