[elpa] externals/eev ff0854d730: Added `find-emenubar-links' and changed some docs.

[ELPA Syncer]

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

    Added `find-emenubar-links' and changed some docs.
---
 ChangeLog      | 15 +++++++++++++++
 VERSION        |  4 ++--
 eev-elinks.el  | 51 +++++++++++++++++++++++++++++++++++++++++++++++++-
 eev-intro.el   | 59 ++++++++++++++++++++++++++++++++++++++--------------------
 eev-pdflike.el | 15 +++++++++++++--
 5 files changed, 119 insertions(+), 25 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index ff8d735727..f453baffb1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,18 @@
+2022-03-03  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eev-intro.el (find-eev-quick-intro): rewrote the section "10.2.
+       Generating short hyperlinks to info nodes" following some ideas
+       by Bruno Macedo (thanks!=)).
+
+2022-02-26  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eev-pdflike.el (ee-code-pdfbackend): make the functions of the
+       form `find-xxxpage' interactive.
+       (ee-code-pdftextbackend): make the functions of the form
+       `find-xxxtext' interactive.
+
+       * eev-elinks.el (find-emenubar-links): new function.
+
 2022-02-25  Eduardo Ochs  <eduardoochs@gmail.com>
 
        * eev-tlinks.el (ee-0x0-upload): rewritten.
diff --git a/VERSION b/VERSION
index d66682fd92..e8701c529f 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Fri Feb 25 06:52:54 GMT 2022
-Fri Feb 25 03:52:54 -03 2022
+Thu Mar  3 18:41:29 GMT 2022
+Thu Mar  3 15:41:29 -03 2022
diff --git a/eev-elinks.el b/eev-elinks.el
index 25b593c633..54766ca826 100644
--- a/eev-elinks.el
+++ b/eev-elinks.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version:    20220211
+;; Version:    20220226
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-elinks.el>
@@ -83,6 +83,7 @@
 ;; «.find-emajormode-links»    (to "find-emajormode-links")
 ;; «.find-eminormodes-links»   (to "find-eminormodes-links")
 ;; «.find-emodeline-links»     (to "find-emodeline-links")
+;; «.find-emenubar-links»      (to "find-emenubar-links")
 
 ;; «.find-code-pdf-links»      (to "find-code-pdf-links")
 ;; «.find-pdf-links»           (to "find-pdf-links")
@@ -1601,6 +1602,54 @@ You can use this to understand how the mode line works."
    pos-spec-list))
 
 
+;; «find-emenubar-links»  (to ".find-emenubar-links")
+;; Skel: (find-find-links-links-new "emenubar" "" "")
+;; Test: (find-emenubar-links)
+;;
+(defun find-emenubar-links (&rest pos-spec-list)
+"Visit a temporary buffer containing hyperlinks about the menu bar."
+  (interactive)
+  (apply
+   'find-elinks
+   `((find-emenubar-links ,@pos-spec-list)
+     ;; Convention: the first sexp always regenerates the buffer.
+     (find-efunction 'find-emenubar-links)
+     ""
+     ,(ee-template0 "\
+# (find-enode  \"Menu Bar\")
+# (find-elnode \"Menu Bar\")
+# (find-efile  \"menu-bar.el\")
+# (find-elnode \"Easy Menu\")
+# (find-efile  \"easymenu.el\")
+# (find-egrep \"grep --color=auto -nH --null -e easy-menu-define *.el */*.el\")
+
+# (describe-bindings [(menu-bar)])
+# (describe-bindings [(menu-bar) file])
+# (describe-bindings [(menu-bar) edit])
+# (describe-bindings [(menu-bar) options])
+# (describe-bindings [(menu-bar) buffer])
+# (describe-bindings [(menu-bar) tools])
+# (describe-bindings [(menu-bar) help-menu])
+
+# (find-ekeymapdescr menu-bar-file-menu)
+# (find-ekeymapdescr menu-bar-edit-menu)
+# (find-ekeymapdescr menu-bar-options-menu)
+# (find-eapropos    \"menu-bar.*buffer\")
+# (find-ekeymapdescr menu-bar-tools-menu)
+# (find-ekeymapdescr menu-bar-help-menu)
+# (find-evardescr   'menu-bar-final-items)
+
+# (find-efunctiondescr 'menu-bar-mode)
+# (call-interactively  'menu-bar-mode)
+# (find-esetkey-links (kbd \"s-m\") 'menu-bar-mode)
+
+# (load             \"menu-bar.el\")
+# (find-efunctionpp 'menu-bar-mode)
+# (menu-bar-mode 'toggle)
+# (load             \"menu-bar.elc\")
+")
+     )
+   pos-spec-list))
 
 
 
diff --git a/eev-intro.el b/eev-intro.el
index 128a1350e4..afcd42e0cf 100644
--- a/eev-intro.el
+++ b/eev-intro.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version:    20220212
+;; Version:    20220303
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-intro.el>
@@ -1753,30 +1753,44 @@ If you run this
 
 then these three hyperlinks will point to the same info node:
 
-  (info      \"(elisp)Top\")
-  (find-node \"(elisp)Top\")
-  (find-elnode      \"Top\")
+  (info      \"(elisp)Box Diagrams\")
+  (find-node \"(elisp)Box Diagrams\")
+  (find-elnode      \"Box Diagrams\")
 
-Note that the last one is a short hyperlink. If you open that
-info node and type `M-h M-h' this will run `find-here-links',
-that will run something similar to:
+Note that the last one is a short hyperlink. If you follow it and
+then type `M-h M-h' you will see that the last hyperlink in the
+\"*(find-here-links)*\" is exactly that short hyperlink. But try
+this big sexp:
 
-  (find-einfo-links \"(elisp)Top\")
+  (progn (find-elnode \"Box Diagrams\")
+         (eek \"C-h r    ;; info-emacs-manual\")
+         (eek \"M-h M-h  ;; find-here-links\")
+         )
 
-The code that produces the short hyperlink to an info node is not
-currently very smart. If you look at the definition of
-`find-elnode' here
+You will get a \"*(find-here-links)*\" buffer that points to a
+page in the \"(emacs)\" manual instead of to one in the
+\"(elisp)\" manual, and that does not have a short hyperlink at
+the end. What happened?
 
-  (find-code-c-d \"el\" ee-emacs-lisp-directory \"elisp\")
+The trick is that the code that produces that short hyperlink
+uses two global variables and runs conditionally. When you run
+
+  (find-elnode \"Box Diagrams\")
 
-you will see that it saves the \"el\" and the \"elisp\" in global
-variables by running this:
+it sets these two variables:
 
   (setq ee-info-code \"el\")
   (setq ee-info-file \"elisp\")
 
-The short hyperlink to an info node is only produced when Info is
-visiting a node in a manual whose name matches the variable
+You can check that in its source code:
+
+  (find-efunctionpp 'find-elnode)
+  (find-code-c-d \"el\" ee-emacs-lisp-directory \"elisp\")
+
+The sub-function of `find-here-links' that is executed when
+`find-here-links' detects that \"here\" is an info node only
+generates the short hyperlink when the current \"info file\"
+corresponds to the value saved in the global variable
 `ee-info-file'.
 
 
@@ -1827,9 +1841,11 @@ There are two main ways to generate lines like these
   (code-pdf-page \"asy\" 
\"/usr/local/texlive/2019/texmf-dist/doc/asymptote/asymptote.pdf\")
   (code-pdf-text \"asy\" 
\"/usr/local/texlive/2019/texmf-dist/doc/asymptote/asymptote.pdf\")
 
-without having to type much. One way, that is somewhat confusing,
-is with `M-C' (`eewrap-code-c-d') and `M-P' (`eewrap-pdflike');
-you can test it by running the `eek' sexps below:
+without having to type much. The old way is with
+`M-C' (`eewrap-code-c-d') and `M-P' (`eewrap-pdflike'), that
+transform the current line in a way similar to
+`M-T' (`eewrap-eepitch'). You can test these key sequences by
+running the `eek' sexps below:
 
   (eek \"<down> M-C\")
   asy /usr/local/texlive/2019/texmf-dist/doc/asymptote/
@@ -1837,7 +1853,10 @@ you can test it by running the `eek' sexps below:
   (eek \"<down> M-P\")
   asy /usr/local/texlive/2019/texmf-dist/doc/asymptote/asymptote.pdf
 
-We will only discuss here the other way.
+The new way is with `M-h M-e', that is explained here:
+
+  (find-audiovideo-intro \"4.1. `find-extra-file-links'\")
+
 
 
 
diff --git a/eev-pdflike.el b/eev-pdflike.el
index 6184bea1d0..7a8dcc95ce 100644
--- a/eev-pdflike.el
+++ b/eev-pdflike.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version:    20220104
+;; Version:    20220226
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-pdflike.el>
@@ -283,6 +283,9 @@ newline are spurious - and replaces them by \"(ff)\"."
   (ee-template0 "\
 ;; (find-code-pdfbackend \"{pdfbackend}\")
 ;;      (code-pdfbackend \"{pdfbackend}\")
+;; (find-eev \"eev-pdflike.el\" \"code-pdfbackend\")
+;; (find-eevfile \"eev-pdflike.el\" \"\\\"{pdfbackend}\\\"\")
+;; (find-eevgrep \"grep --color=auto -nH -e '\\\"{pdfbackend}\\\"' 
eev-pdflike.el\")
 ;;
 ;; The code here defines this structure:
 ;;
@@ -316,6 +319,7 @@ newline are spurious - and replaces them by \"(ff)\"."
   ;;
   (setq ee-pdflike-last 'find-{<}c{>}page)
   (defun find-{<}c{>}page (&optional page &rest rest)
+    (interactive)
     (setq ee-pdflike-last 'find-{<}c{>}page)
     (find-{pdfbackend} {<}(ee-pp0 fname){>} page))
   \"))
@@ -335,6 +339,9 @@ newline are spurious - and replaces them by \"(ff)\"."
   (ee-template0 "\
 ;; (find-code-pdftextbackend \"{pdftextbackend}\")
 ;;      (code-pdftextbackend \"{pdftextbackend}\")
+;; (find-eev \"eev-pdflike.el\" \"code-pdftextbackend\")
+;; (find-eevfile \"eev-pdflike.el\" \"\\\"{pdftextbackend}\\\"\")
+;; (find-eevgrep \"grep --color=auto -nH -e '\\\"{pdftextbackend}\\\"' 
eev-pdflike.el\")
 ;;
 ;; The code here defines this structure:
 ;;
@@ -371,6 +378,7 @@ newline are spurious - and replaces them by \"(ff)\"."
   (setq ee-page-fname  {<}(ee-pp0 fname){>})
   (setq ee-page-offset {<}(ee-pp0 offset){>})
   (defun find-{<}c{>}text (&optional page &rest rest)
+    (interactive)
     (setq ee-page-c      {<}(ee-pp0 c){>})
     (setq ee-page-fname  {<}(ee-pp0 fname){>})
     (setq ee-page-offset {<}(ee-pp0 offset){>})
@@ -382,7 +390,7 @@ newline are spurious - and replaces them by \"(ff)\"."
 
 ;; «code-pdfbackendalias»  (to ".code-pdfbackendalias")
 ;; See: (find-eevfile "eev-pdflike.el" "2. ALIASES")
-;; Test: (find-code-pdfbackendalias "PDF-PAGE" "XPDF-PAGE")
+;; Test: (find-code-pdfbackendalias "NEWPDFPROG-PAGE" "OLDPDFPROG-PAGE")
 ;;
 (defun      code-pdfbackendalias (newbackend oldbackend)
   (eval (ee-read      (ee-code-pdfbackendalias newbackend oldbackend))))
@@ -392,6 +400,9 @@ newline are spurious - and replaces them by \"(ff)\"."
   (ee-template0 "\
 ;; (find-code-pdfbackendalias \"{newbackend}\" \"{oldbackend}\")
 ;;      (code-pdfbackendalias \"{newbackend}\" \"{oldbackend}\")
+;; (find-eev \"eev-pdflike.el\" \"code-pdfbackendalias\")
+;; (find-eevfile \"eev-pdflike.el\" \"\\\"{newbackend}\\\"\")
+;; (find-eevgrep \"grep --color=auto -nH  -e '\\\"{newbackend}\\\"' 
eev-pdflike.el\")
 ;;
 \(defalias   'ee-find-{newbackend}   'ee-find-{oldbackend})
 \(defalias      'find-{newbackend}      'find-{oldbackend})