branch: externals/eev
commit 0aa0bf872d447d5cf8d4bd464ec59e432253dcc9
Author: Eduardo Ochs <eduardoo...@gmail.com>
Commit: Eduardo Ochs <eduardoo...@gmail.com>
Small fixes in (find-windows-beginner-intro).
---
ChangeLog | 6 ++++++
VERSION | 4 ++--
eev-brxxx.el | 5 ++++-
eev-intro.el | 17 +++++++++++------
eev-plinks.el | 8 +++++++-
eev-tlinks.el | 6 ++++--
6 files changed, 34 insertions(+), 12 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 899f81f4b3..7a8c3e8805 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2024-05-07 Eduardo Ochs <eduardoo...@gmail.com>
+
+ * eev-plinks.el (find-lynx): new function.
+
+ * eev-brxxx.el (brlynx, brlynxl, brlynxd): new functions.
+
2024-05-05 Eduardo Ochs <eduardoo...@gmail.com>
* eev-intro.el (find-windows-beginner-intro): rewritten.
diff --git a/VERSION b/VERSION
index e32b22b29c..c34179eb62 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Mon May 6 01:18:05 GMT 2024
-Sun May 5 22:18:05 -03 2024
+Tue May 7 11:31:10 GMT 2024
+Tue May 7 08:31:10 -03 2024
diff --git a/eev-brxxx.el b/eev-brxxx.el
index faf6c69192..b8cd713ce4 100644
--- a/eev-brxxx.el
+++ b/eev-brxxx.el
@@ -19,7 +19,7 @@
;;
;; Author: Eduardo Ochs <eduardoo...@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoo...@gmail.com>
-;; Version: 20230719
+;; Version: 20240507
;; Keywords: e-scripts
;;
;; Latest version: <http://anggtwu.net/eev-current/eev-brxxx.el>
@@ -384,6 +384,9 @@ This should be made smarter - file:// urls should be
returned unchanged."
;; (find-code-brurl 'find-eww :remote 'brew :local 'brewl :dired 'brewd)
(code-brurl 'find-eww :remote 'brew :local 'brewl :dired 'brewd)
+;; (find-code-brurl 'find-lynx :remote 'brlynx :local 'brlynxl :dired
'brlynxd)
+ (code-brurl 'find-lynx :remote 'brlynx :local 'brlynxl :dired
'brlynxd)
+
;; (find-code-brurl 'find-wget :remote 'brwget)
(code-brurl 'find-wget :remote 'brwget)
diff --git a/eev-intro.el b/eev-intro.el
index c44980137e..8e6ede0f8f 100644
--- a/eev-intro.el
+++ b/eev-intro.el
@@ -15089,13 +15089,11 @@ and these sections on anchors and short hyperlinks:
6. Test Maxima
==============
-Here is a basic test of Maxima. The link with `find-maximanode' will
-open the manual of Maxima, and the eepitch block will define and plot
-two functions using an external program - GnuPlot. Type `q' on the
+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
+program - GnuPlot - that uses an external window. Type `q' on the
GnuPlot window to close it.
-# (find-maximanode \"plot2d\")
-
(eepitch-maxima)
(eepitch-kill)
(eepitch-maxima)
@@ -15109,6 +15107,7 @@ plot3d (S(x,y), [x, 0, 6], [y, 0, 6]);
+
7. Test Maxima with find-wget
=============================
This sexp
@@ -15117,12 +15116,18 @@ This sexp
displays a temporary buffer with instructions for configuring certain
elisp hyperlinks functions to make them use `find-wget'. Run the second
-progn block in it with `M-e', and then try this:
+progn block in it with `M-e', run this `code-c-d' to define
+`find-maximanode',
+
+ (code-c-d \"maxima\" \"/usr/share/maxima/5.47.0/\" \"maxima\")
+
+and then try:
(find-es \"maxima\" \"eev-demo\")
+
8. Videos
=========
This sexp
diff --git a/eev-plinks.el b/eev-plinks.el
index 8a9690afab..c0e26176c9 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: 20240206
+;; Version: 20240507
;; Keywords: e-scripts
;;
;; Latest version: <http://anggtwu.net/eev-current/eev-plinks.el>
@@ -122,6 +122,7 @@
;; «.find-telegachat-msgc» (to "find-telegachat-msgc")
;; «.find-firefox» (to "find-firefox")
;; «.find-googlechrome» (to "find-googlechrome")
+;; «.find-lynx» (to "find-lynx")
;; «.find-lgrep» (to "find-lgrep")
;; «.find-efunctionlgrep» (to "find-efunctionlgrep")
@@ -550,6 +551,11 @@ also go to that message and highlight it."
(defun find-firefox (url) (find-bgprocess `(,ee-firefox-program
,url)))
(defun find-googlechrome (url) (find-bgprocess `(,ee-googlechrome-program
,url)))
+;; «find-lynx» (to ".find-lynx")
+(defun find-lynx (url &rest pos-spec-list)
+ (apply 'find-callprocess
+ `("lynx" "-dump" "-width=205" ,url) pos-spec-list))
+
diff --git a/eev-tlinks.el b/eev-tlinks.el
index 60909e8616..4eb2afd914 100644
--- a/eev-tlinks.el
+++ b/eev-tlinks.el
@@ -3354,8 +3354,10 @@ This function is used by `ee-0x0-upload-region'."
(find-eev-quick-intro "9. Shorter hyperlinks")
(find-eev-quick-intro "9.1. `code-c-d'")
(find-eev-quick-intro "9.2. Extra arguments to `code-c-d'" "to anchors")
- (find-2022findeevanggvideo "11:30" "(find-angg-es-links)")
- (find-2022findeevanggvideo "14:12" "the find-wgeta searches for")
+ (find-2022findeevanggvideo "11:29" "(find-angg-es-links)")
+ (find-2022findeevangghsubs "11:29" "(find-angg-es-links)")
+ (find-2022findeevanggvideo "14:06" "the find-wgeta searches for")
+ (find-2022findeevangghsubs "14:06" "the find-wgeta searches for")
""
,(ee-template0 "\
