[elpa] externals/eev a68aecc0e0 1/6: Added `find-emenubar-links'.

[ELPA Syncer]

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

    Added `find-emenubar-links'.
---
 ChangeLog      |  9 +++++++++
 VERSION        |  4 ++--
 eev-elinks.el  | 51 ++++++++++++++++++++++++++++++++++++++++++++++++++-
 eev-pdflike.el | 15 +++++++++++++--
 4 files changed, 74 insertions(+), 5 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index ff8d735727..016e5c6f2a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,12 @@
+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..8504cdfadd 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
+Mon Feb 28 06:20:20 GMT 2022
+Mon Feb 28 03:20:20 -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-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})