branch: externals/eev
commit ee938154735b3508ffc1328472ffe0f85db2873c
Author: Eduardo Ochs <eduardoo...@gmail.com>
Commit: Eduardo Ochs <eduardoo...@gmail.com>
Small changes in eev-on-windows.el.
---
ChangeLog | 6 ++++++
VERSION | 4 ++--
eev-brxxx.el | 6 ------
eev-pdflike.el | 5 ++++-
eev-plinks.el | 12 +++++++++++-
eev.el | 2 +-
6 files changed, 24 insertions(+), 11 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 345cf62..f90b43e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2021-10-11 Eduardo Ochs <eduardoo...@gmail.com>
+
+ * eev-plinks.el (ee-firefox-program, ee-googlechrome-program)
+ (find-firefox, find-googlechrome): moved from the file
+ eev-brxxx.el to eev-plinks.el.
+
2021-10-09 Eduardo Ochs <eduardoo...@gmail.com>
* eev-pdflike.el (ee-find-firefox-page): use `ee-firefox-program'.
diff --git a/VERSION b/VERSION
index 55381dd..e21fe18 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Sun Oct 10 06:55:33 GMT 2021
-Sun Oct 10 03:55:33 -03 2021
+Mon Oct 11 08:36:57 GMT 2021
+Mon Oct 11 05:36:57 -03 2021
diff --git a/eev-brxxx.el b/eev-brxxx.el
index 4484be4..31102a7 100644
--- a/eev-brxxx.el
+++ b/eev-brxxx.el
@@ -366,12 +366,6 @@ This should be made smarter - file:// urls should be
returned unchanged."
;; (find-eev "eev-blinks.el" "find-w3m")
;; (find-efile "net/browse-url.el")
-(defvar ee-googlechrome-program "google-chrome")
-(defvar ee-firefox-program "firefox")
-
-(defun find-googlechrome (url) (find-bgprocess `(,ee-googlechrome-program
,url)))
-(defun find-firefox (url) (find-bgprocess `(,ee-firefox-program
,url)))
-
;; (find-code-brurl 'find-psne-links :remote 'brep)
(code-brurl 'find-psne-links :remote 'brep)
diff --git a/eev-pdflike.el b/eev-pdflike.el
index 8af840d..ccd9cec 100644
--- a/eev-pdflike.el
+++ b/eev-pdflike.el
@@ -19,7 +19,7 @@
;;
;; Author: Eduardo Ochs <eduardoo...@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoo...@gmail.com>
-;; Version: 20211009
+;; Version: 20211011
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-pdflike.el>
@@ -193,6 +193,7 @@
;; «.code-brxxxs» (to "code-brxxxs")
+(require 'eev-plinks) ; (find-eev "eev-plinks.el")
(require 'eev-brxxx) ; (find-eev "eev-brxxx.el")
@@ -946,6 +947,8 @@ may want to put here code that cleans up that page
information.")
;; "file:///tmp/foo.pdf#page=42"...
;; See: (find-efunction 'ee-fname-to-url)
+;; (find-eev "eev-plinks.el" "find-firefox")
+;; (find-eev "eev-plinks.el" "find-googlechrome")
;; Tests: (ee-fname-page-to-url "~/Coetzee99.pdf")
;; (ee-fname-page-to-url "~/Coetzee99.pdf" 4)
;; (ee-fname-page-to-url "$S/http/foo/bar/Coetzee99.pdf" 4)
diff --git a/eev-plinks.el b/eev-plinks.el
index c0d99a6..13ec158 100644
--- a/eev-plinks.el
+++ b/eev-plinks.el
@@ -19,7 +19,7 @@
;;
;; Author: Eduardo Ochs <eduardoo...@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoo...@gmail.com>
-;; Version: 20211009
+;; Version: 20211011
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-plinks.el>
@@ -115,6 +115,8 @@
;; «.find-wget» (to "find-wget")
;; «.find-gitk» (to "find-gitk")
;; «.find-tkdiff» (to "find-tkdiff")
+;; «.find-firefox» (to "find-firefox")
+;; «.find-googlechrome» (to "find-googlechrome")
@@ -428,6 +430,14 @@ If wget can't download URL then this function runs
`error'."
(find-bgprocess `("tkdiff" ,f1 ,f2)))
+;; «find-firefox» (to ".find-firefox")
+;; «find-googlechrome» (to ".find-googlechrome")
+;;
+(defvar ee-firefox-program "firefox")
+(defvar ee-googlechrome-program "google-chrome")
+(defun find-firefox (url) (find-bgprocess `(,ee-firefox-program
,url)))
+(defun find-googlechrome (url) (find-bgprocess `(,ee-googlechrome-program
,url)))
+
diff --git a/eev.el b/eev.el
index 314e390..0e2f6bf 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: 20211008
+;; Version: 20211011
;; 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
