[elpa] externals/eev 39f6dfdd1d: Added (find-qdraw-links).

[ELPA Syncer]

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

    Added (find-qdraw-links).
---
 ChangeLog     |  7 +++++++
 VERSION       |  4 ++--
 eev-intro.el  | 54 +++++++++++++++++++++++++++++++++++++++++++++++-------
 eev-tlinks.el | 46 +++++++++++++++++++++++++++++++++++++++++++++-
 eev.el        |  2 +-
 5 files changed, 102 insertions(+), 11 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index e024d3780e..c73a80debe 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2024-08-11  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eev-intro.el (find-windows-beginner-intro): added the section
+       "12. Install qdraw".
+
+       * eev-tlinks.el (find-qdraw-links): new function.
+
 2024-08-10  Eduardo Ochs  <eduardoochs@gmail.com>
 
        * eev-intro.el (find-windows-beginner-intro): added a "sudo
diff --git a/VERSION b/VERSION
index b0a1c87ccc..21477f4a55 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Sat Aug 10 22:15:23 GMT 2024
-Sat Aug 10 19:15:23 -03 2024
+Sun Aug 11 07:11:05 GMT 2024
+Sun Aug 11 04:11:05 -03 2024
diff --git a/eev-intro.el b/eev-intro.el
index 2314a0bbe7..bb8c8ab635 100644
--- a/eev-intro.el
+++ b/eev-intro.el
@@ -15132,6 +15132,11 @@ sudo apt-get install -y -f
 
 6. Learn the basics of Emacs and eev
 ====================================
+The best way to learn the basics is to start by copying this
+section to your ~/TODO file. This is explained in these pages:
+  http://anggtwu.net/2024-first-executable-notes.html
+  http://anggtwu.net/2024-restructuring.html
+
 The \"basics\" are these sections of the main tutorial,
 
   (find-eev-quick-intro \"2. Evaluating Lisp\")
@@ -15270,6 +15275,8 @@ See:
   (find-elisp-intro)
   (find-elisp-intro \"M-7 M-j\")
   (find-eev-quick-intro \"4. Creating Elisp Hyperlinks\")
+  (find-eev-quick-intro \"4.2. `find-ekey-links' and friends\")
+
 
 
 
@@ -15277,14 +15284,47 @@ See:
 =======================
 See:
   http://anggtwu.net/2024-find-dot-emacs-links.html
-  (find-efunction 'find-dot-emacs-links)
+  (find-dot-emacs-links)
+
+
+
+
+12. Install qdraw
+=================
+Qdraw is an extension of the default drawing functions
+that come with Maxima. It is explained here:
+
+  https://home.csulb.edu/~woollett/
+  https://home.csulb.edu/~woollett/mbe13.html
+  https://home.csulb.edu/~woollett/mbe13qdraw.pdf
+
+The easiest way to install qdraw is by running this
+eepitch block,
+
+ (eepitch-shell)
+ (eepitch-kill)
+ (eepitch-shell)
+  cd /tmp/
+  wget -N http://anggtwu.net/tmp/edrx-maxima.tgz
+  tar -C ~/ -xvzf /tmp/edrx-maxima.tgz
+
+that also installs my init file for Maxima and lots of
+small programs that I wrote. Note that the \"tar -xvzf\"
+above extracts the files from this .tgz file
+
+  (find-fline \"/tmp/edrx-maxima.tgz\")
+
+into these three directories:
+
+  (find-fline \"~/.maxima/\")
+  (find-fline \"~/MAXIMA/\")
+  (find-fline \"~/luatree/\")
+
+Here are some tests:
+
+  (find-qdraw-links \"x,x^2,x^3,x^4\" \"-2,2\" \"-2,2\")
+  (find-es \"maxima\" \"2024.1-intro-complex\")
 
-  (find-eev-levels-intro \"0. Introduction\")
-  (find-eev-quick-intro \"7.1. `eejump'\")
-  (find-eev-quick-intro \"7.2. The list of eejump targets\")
-  (find-eev-quick-intro \"7.3. Defining eejump targets\")
-  (find-eev-quick-intro \"7.4. Commands with very short names\")
-  (find-eejumps 2 \"eejump-55\")
 
 
 
diff --git a/eev-tlinks.el b/eev-tlinks.el
index 431b41e78b..4e533424d9 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:    20240731
+;; Version:    20240811
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://anggtwu.net/eev-current/eev-tlinks.el>
@@ -182,6 +182,7 @@
 ;; «.code-brappend»                    (to "code-brappend")
 ;; «.find-maximamsg-links»             (to "find-maximamsg-links")
 ;; «.find-maximamsg»                   (to "find-maximamsg")
+;; «.find-qdraw-links»                 (to "find-qdraw-links")
 ;; «.find-linki-links»                 (to "find-linki-links")
 ;; «.find-gitdoc-links»                        (to "find-gitdoc-links")
 ;; «.find-luainit-links»               (to "find-luainit-links")
@@ -5320,6 +5321,49 @@ A \"Maxima message\" is a message in the Maxima mailing 
list."
 
 
 
+;; «find-qdraw-links»  (to ".find-qdraw-links")
+;; Skel: (find-find-links-links-new "qdraw" "fs xr yr" "")
+;; Test: (find-qdraw-links)
+;;
+(defun find-qdraw-links (&optional fs xr yr &rest pos-spec-list)
+"Visit a temporary buffer containing hyperlinks for qdraw."
+  (interactive)
+  (setq fs (or fs "{fs}"))
+  (setq xr (or xr "{xr}"))
+  (setq yr (or yr "{yr}"))
+  (apply
+   'find-elinks
+   `((find-qdraw-links ,fs ,xr ,yr ,@pos-spec-list)
+     (find-qdraw-links "x,x^2,x^3,x^4" "-2,2" "-2,2")
+     ;; Convention: the first sexp always regenerates the buffer.
+     (find-efunction 'find-qdraw-links)
+     ""
+     (find-windows-beginner-intro "12. Install qdraw")
+     ;; (defalias 'qdraw 'find-qdraw-links)
+     ""
+     ,(ee-template0 "\
+ (eepitch-maxima)
+ (eepitch-kill)
+ (eepitch-maxima)
+load_qdraw();
+fs : [{fs}];
+/* qdraw(xr({xr}),yr({yr}), ex(fs,x,{xr})); */
+
+colors : [red, orange, forest_green, blue, dark_violet]$
+myqdraw([lists]) := apply('qdraw, apply('append, lists))$
+myexs_1(ii)      := ex1(fs[ii], x, {xr}, lc(colors[ii]))$
+myexs_1(ii)      := ex1(fs[ii], x, {xr}, lc(colors[ii]), lk(fs[ii]))$
+myexs()          := makelist(myexs_1(ii), ii, length(fs))$
+myexs();
+
+myqdraw([xr({xr}),yr({yr})], myexs());
+")
+     )
+   pos-spec-list))
+
+
+
+
 
 ;; «find-linki-links»  (to ".find-linki-links")
 ;; Used in: (find-eev "eev-kl-here.el" "ee-find-linkis")
diff --git a/eev.el b/eev.el
index fc36e06fd7..f1f4e04fd3 100644
--- a/eev.el
+++ b/eev.el
@@ -6,7 +6,7 @@
 ;; Package-Requires: ((emacs "25.1"))
 ;; Keywords: lisp e-scripts
 ;; URL: http://anggtwu.net/#eev
-;; Version: 20240803
+;; Version: 20240811
 
 ;; 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