branch: externals/eev
commit 1379ca71a9dd409d0c28fb1995bbd6a4c252ea07
Author: Eduardo Ochs <eduardoo...@gmail.com>
Commit: Eduardo Ochs <eduardoo...@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 <eduardoo...@gmail.com>
+
+ * eev-tlinks.el (find-newbrowser-links): marked as obsolete.
+ (find-newbrowser2-links): new function.
+
+2024-07-19 Eduardo Ochs <eduardoo...@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 <eduardoo...@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 <eduardoo...@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoo...@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))
