[elpa] externals/eev 515e876c5a: Added `find-newbrowser-links'.

[ELPA Syncer]

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

    Added `find-newbrowser-links'.
---
 ChangeLog         |  5 ++++
 VERSION           |  4 +--
 eev-audiovideo.el |  2 ++
 eev-tlinks.el     | 79 ++++++++++++++++++++++++++++++++++++++++++++++++++++++-
 eev.el            |  2 +-
 5 files changed, 88 insertions(+), 4 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 340a41b675..f0dd255925 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2022-03-24  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eev-tlinks.el (find-newbrowser-links): new function (inspired by
+       a chat with Quiliro Ordoñez).
+
 2022-03-22  Eduardo Ochs  <eduardoochs@gmail.com>
 
        * eev-elinks.el (ee-url-at-point): new function.
diff --git a/VERSION b/VERSION
index 3a41c1252a..08ba677f05 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Wed Mar 23 04:25:30 GMT 2022
-Wed Mar 23 01:25:30 -03 2022
+Fri Mar 25 02:40:33 GMT 2022
+Thu Mar 24 23:40:33 -03 2022
diff --git a/eev-audiovideo.el b/eev-audiovideo.el
index 7a09483bbc..0ebdd94e28 100644
--- a/eev-audiovideo.el
+++ b/eev-audiovideo.el
@@ -604,6 +604,8 @@ See: (find-audiovideo-intro \"`eev-avadj-mode'\")"
 ;;        (ee-find-youtube-video "xQqWufQgzVY" "1:23")
 ;;        (ee-find-youtube-video "xQqWufQgzVY" "1:23" "Bla")
 ;;           (find-youtube-video "xQqWufQgzVY" "1:23")
+;;        (ee-find-youtube-video "FoAzpGzFCSE" "15:14" "nice")
+;;           (find-youtube-video "FoAzpGzFCSE" "15:14" "nice")
 ;;
 (defvar ee-find-youtube-video-program 'find-googlechrome)
 
diff --git a/eev-tlinks.el b/eev-tlinks.el
index 8af273dab2..0c0c4e7ad0 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:    20220321
+;; Version:    20220324
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-tlinks.el>
@@ -119,6 +119,7 @@
 ;; «.find-1stclassvideos»              (to "find-1stclassvideos")
 ;; «.find-advicebefore-links»          (to "find-advicebefore-links")
 ;; «.find-osm-links»                   (to "find-osm-links")
+;; «.find-newbrowser-links»            (to "find-newbrowser-links")
 
 
 (require 'eev-env)
@@ -2947,6 +2948,82 @@ how this works."
 
 
 
+;; «find-newbrowser-links»  (to ".find-newbrowser-links")
+;; Skel: (find-find-links-links-new "newbrowser" "shrt longname binary" "")
+;; Test: (find-newbrowser-links)
+;;
+(defun find-newbrowser-links (&optional shrt longname binary &rest 
pos-spec-list)
+"Visit a temporary buffer containing a script to set up an atypical browser."
+  (interactive)
+  (setq shrt (or shrt "{shrt}"))
+  (setq longname (or longname "{longname}"))
+  (setq binary (or binary "{binary}"))
+  (apply
+   'find-elinks-elisp
+   `((find-newbrowser-links ,shrt ,longname ,binary ,@pos-spec-list)
+     (find-newbrowser-links "g" "googlechrome" "google-chrome")
+     (find-newbrowser-links "g" "iceweasel" "iceweasel-uxp")
+     (find-newbrowser-links "v" "vivaldi" "vivaldi")
+     ;; Convention: the first sexp always regenerates the buffer.
+     (find-efunction 'find-newbrowser-links)
+     ""
+     ,(ee-template0 "\
+;; Basic tests:
+;; (find-sh0 \"which {binary}\")
+;; (find-bgprocess \"{binary} http://www.lua.org/start.html\";)
+;; (find-bgprocess \"{binary} 
https://tannerlectures.utah.edu/_resources/documents/a-to-z/c/Coetzee99.pdf#page=3\";)
+
+
+;; Define `find-{longname}':
+;; Test: (find-{longname} \"http://www.lua.org/start.html\";)
+;;  See: (find-eev \"eev-plinks.el\" \"find-googlechrome\")
+(defun find-{longname} (url &rest rest)
+  (find-bgprocess `(\"{binary}\" ,url)))
+
+
+;; Define `br{shrt}':
+;; See:  (find-eev-quick-intro \"3.1. Non-elisp hyperlinks\")
+;;       (find-eev-quick-intro \"3.1. Non-elisp hyperlinks\" \"not free\")
+;;       (find-eev-quick-intro \"3.1. Non-elisp hyperlinks\" \"M-x brff\")
+;;       (find-eev \"eev-brxxx.el\" \"code-brxxxs\")
+;; Test: (br{shrt} \"http://www.lua.org/start.html\";)
+(code-brurl 'find-{longname}  :remote 'br{shrt}  :local 'br{shrt}l  :dired 
'br{shrt}d)
+
+
+;; Define `find-{longname}-page':
+;; See:  (find-eev \"eev-pdflike.el\" \"find-firefox-page\")
+;;       (find-code-pdfbackend \"{longname}-page\")
+;; Test: (ee-find-{longname}-page \"~/Coetzee99.pdf\" 3)
+;;          (find-{longname}-page \"~/Coetzee99.pdf\" 3)
+;;
+(defun ee-find-{longname}-page (fname &optional page)
+  `(\"{binary}\" ,(ee-fname-page-to-url fname page)))
+;;
+(code-pdfbackend \"{longname}-page\")
+
+
+;; Configure `find-pdf-page':
+;; See:  (find-pdf-like-intro \"3. Hyperlinks to PDF files\")
+;;       (find-pdf-like-intro \"3. Hyperlinks to PDF files\" \"If you have 
xpdf\")
+;;       (find-eev \"eev-pdflike.el\" \"change-default-viewer\")
+;; Test: (find-pdf-like-intro \"2. Preparation\")
+;;       (find-pdf-page \"~/Coetzee99.pdf\" 3)
+(defalias 'find-pdf-page 'find-xpdf-page)
+(defalias 'find-pdf-page 'find-{longname}-page)
+(defalias 'find-pdf-page 'find-mupdf-page)
+
+
+;; Configure `find-youtube-video':
+;; See:  (find-eev \"eev-audiovideo.el\" \"find-youtube-video\")
+;; Test: (ee-find-youtube-video \"FoAzpGzFCSE\" \"15:14\" \"nice\")
+;;          (find-youtube-video \"FoAzpGzFCSE\" \"15:14\")
+(setq ee-find-youtube-video-program 'find-{longname})
+")
+     )
+   pos-spec-list))
+
+
+
 
 (provide 'eev-tlinks)
 
diff --git a/eev.el b/eev.el
index ae49827fd5..780ead7aab 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: 20220316
+;; Version: 20220324
 
 ;; 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