[elpa] externals/eev 311825f986: New function: `find-kla-links'.

[ELPA Syncer]

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

    New function: `find-kla-links'.
---
 ChangeLog     |  9 +++++++++
 VERSION       |  4 ++--
 eev-code.el   |  7 ++++---
 eev-hydras.el | 14 +++++++++-----
 eev-intro.el  | 11 ++++++++++-
 eev-kla.el    |  5 +++--
 eev-tlinks.el | 43 +++++++++++++++++++++++++++++++++++++++++++
 7 files changed, 80 insertions(+), 13 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index e136cfae5f..5ee01603c9 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,12 @@
+2022-11-22  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eev-hydras.el (ee-edit-index-hydra): added <right>, <left>, SPC,
+       and DEL.
+
+       * eev-code.el: added a (code-c-d "org" ...).
+
+       * eev-tlinks.el (find-kla-links): new function.
+
 2022-11-21  Eduardo Ochs  <eduardoochs@gmail.com>
 
        * eev-kla.el (ee-kl-sexp-kla, ee-kl-sexp-klas, ee-kl-sexp-klf):
diff --git a/VERSION b/VERSION
index 9a6bb527f8..73902ea1a3 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Mon Nov 21 05:36:44 GMT 2022
-Mon Nov 21 02:36:44 -03 2022
+Wed Nov 23 02:01:14 GMT 2022
+Tue Nov 22 23:01:14 -03 2022
diff --git a/eev-code.el b/eev-code.el
index 2f57258d78..ea2ac05e0e 100644
--- a/eev-code.el
+++ b/eev-code.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version:    20220512
+;; Version:    20221122
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-code.el>
@@ -355,9 +355,10 @@ Note: the POS-SPEC-LIST arguments are currently not used."
       (format "/usr/share/emacs/%d.%d/leim/"
              emacs-major-version emacs-minor-version)))
 
-(code-c-d "e"      ee-emacs-lisp-directory "emacs" :gz) ; (find-enode   "Top")
-(code-c-d "el"     ee-emacs-lisp-directory "elisp" :gz) ; (find-elnode  "Top")
 (code-c-d "eli"    ee-emacs-lisp-directory "eintr" :gz) ; (find-elinode "Top")
+(code-c-d "el"     ee-emacs-lisp-directory "elisp" :gz) ; (find-elnode  "Top")
+(code-c-d "e"      ee-emacs-lisp-directory "emacs" :gz) ; (find-enode   "Top")
+(code-c-d "org"    (ee-locate-library "org") "org" :gz) ; (find-orgnode "Top")
 (code-c-d "cl"     (ee-efile "emacs-lisp/") "cl"   :gz) ; (find-clnode  "Top")
 (code-c-d "eshell" (ee-efile "eshell/") "eshell" :gz) ; (find-eshellnode "Top")
 (code-c-d "eleim"  ee-emacs-leim-directory :gz)
diff --git a/eev-hydras.el b/eev-hydras.el
index ff33385d6e..33338dd302 100644
--- a/eev-hydras.el
+++ b/eev-hydras.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version:    20220330
+;; Version:    20221122
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-hydras.el>
@@ -57,8 +57,8 @@
 
 
 
-;; «.ei»                               (to "ei")
-;; «.ee-edit-index-hydra»              (to "ee-edit-index-hydra")
+;; «.ei»                       (to "ei")
+;; «.ee-edit-index-hydra»      (to "ee-edit-index-hydra")
 
 ;; See: https://github.com/abo-abo/hydra
 ;;      (find-epackage-links 'hydra "hydra" t)
@@ -128,8 +128,12 @@ Use `_,_'s and `_._'s between the `_i_' and the `_0_' to 
adjust the `(to ...)'.\
   ("q" nil)
   ;;
   ;; Reindent:
-  ("<down>" (eek "<down>"))
-  ("<up>"   (eek "<up>"))
+  ("<down>"  (eek "<down>"))
+  ("<up>"    (eek "<up>"))
+  ("<right>" (eek "<right>"))
+  ("<left>"  (eek "<left>"))
+  ("SPC"     (eek "SPC"))
+  ("DEL"     (eek "DEL"))
   (","   (ee-edit-index-replace "\t(to "   "(to "))
   ("."   (ee-edit-index-replace   "(to " "\t(to "))
   ;;
diff --git a/eev-intro.el b/eev-intro.el
index 761e43cd5a..12ac04c5e7 100644
--- a/eev-intro.el
+++ b/eev-intro.el
@@ -14889,7 +14889,16 @@ See: (find-eev \"eev-kla.el\" \"ee-kl-expand\")
 
 10. Aliases
 ===========
-See: (find-eev \"eev-kla.el\" \"aliases\")
+
+;; From: (find-kla-intro \"10. Aliases\")
+(defalias 'kla  'eekla)
+(defalias 'klas 'eeklas)
+(defalias 'klf  'eeklf)
+(defalias 'klfs 'eeklfs)
+(defalias 'klt  'eeklt)
+(defalias 'kli  'ee-kl-insert)
+(defalias 'kla2 'eekla2)
+
 
 
   (find-eev \"eev-kla.el\" \"other-defaults\")
diff --git a/eev-kla.el b/eev-kla.el
index d17da91c7d..af261b35d2 100644
--- a/eev-kla.el
+++ b/eev-kla.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version:    20221119
+;; Version:    20221122
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-kla.el>
@@ -280,7 +280,8 @@
 
 (defvar ee-kl-transforms nil
   "Set this if you need to support symlinks in eev-kla.el.
-The value of this variable should be list of (regexp replacement) pairs.")
+The value of this variable should be a list of pairs of this form:
+(regexp replacement).")
 
 
 
diff --git a/eev-tlinks.el b/eev-tlinks.el
index cb0b4a0576..26e7f7e433 100644
--- a/eev-tlinks.el
+++ b/eev-tlinks.el
@@ -135,6 +135,7 @@
 ;; «.find-nov-links»                   (to "find-nov-links")
 ;; «.find-telegachat-links»            (to "find-telegachat-links")
 ;; «.find-eejump-links»                        (to "find-eejump-links")
+;; «.find-kla-links»                   (to "find-kla-links")
 
 
 (require 'eev-env)
@@ -3735,6 +3736,48 @@ N should be either a number or a symbol; SEXP should be 
a sexp."
 
 
 
+;; «find-kla-links»  (to ".find-kla-links")
+;; Skel: (find-find-links-links-new "kla" "fname" "r c d lrcd")
+;; Tests: (find-kla-links)
+;;        (find-kla-links (ee-efile "array.el"))
+;;
+(defun find-kla-links (&optional fname &rest pos-spec-list)
+"Visit a temporary buffer containing hyperlinks about eev-kla.el."
+  (interactive)
+  (setq fname (ee-expand (or fname (ee-kl-fname))))
+  (let* ((r (ee-kl-r :fname fname))
+         (c (ee-kl-c :fname fname))
+         (d (ee-kl-d :fname fname))
+         (ee-buffer-name (or ee-buffer-name "*find-kla-links*")))
+    (apply
+     'find-elinks-elisp
+     `((find-kla-links ,fname ,@pos-spec-list)
+       ;; Convention: the first sexp always regenerates the buffer.
+       (find-efunction 'find-kla-links)
+       ""
+       ,(ee-template0 "\
+;; See: (find-kla-intro \"3. The components\")
+;;   fname  =>  {(ee-S fname)}
+;;       c  =>  {(ee-S c)}
+;;       d  =>  {(ee-S d)}
+;;       r  =>  {(ee-S r)}
+;;
+;; See: (find-kla-intro \"2. `ee-code-c-d-pairs'\")
+;;   (eek \"<down> M-2 M-e\")
+;;     (find-eppp ee-code-c-d-pairs)
+;;   (eek \"<down> M-3 M-e M-h M-e\")
+;;     (find-fline {(ee-S fname)})
+;;
+;; See: (find-kla-intro \"4. The best `l-r-c-d'\")
+;;   (eek \"<down> M-2 M-e\")
+;;     (find-eppp (ee-kl-lrcds :fname {(ee-S fname)}))
+;;                (ee-kl-lrcd  :fname {(ee-S fname)})
+;;
+;; Source code: (find-eev \"eev-kla.el\")
+")
+       )
+     pos-spec-list)))
+