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 "\