[elpa] externals/eev 542bbcb0ae: Added `ee-kl-format' and `ee-kl-insert'.

[ELPA Syncer]

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

    Added `ee-kl-format' and `ee-kl-insert'.
---
 ChangeLog    |  8 ++++++++
 VERSION      |  4 ++--
 eev-intro.el |  2 ++
 eev-kla.el   | 43 +++++++++++++++++++++++++++++++++++--------
 4 files changed, 47 insertions(+), 10 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 63c2538bf6..872cd6dc94 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,14 @@
+2022-09-20  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eev-kla.el (ee-kl-insert): new variable.
+       (ee-kl-insert): new function.
+
 2022-09-18  Eduardo Ochs  <eduardoochs@gmail.com>
 
        * eev-kla.el: small changes in the docs.
+       (ee-kl-sexp-klt, eeklt): new functions.
+       (ee-kl-format): new function.
+       (ee-kl-kill): use the function `ee-kl-format'.
 
 2022-09-17  Eduardo Ochs  <eduardoochs@gmail.com>
 
diff --git a/VERSION b/VERSION
index f1cba80ba6..d3cdc87478 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Sun Sep 18 10:50:25 GMT 2022
-Sun Sep 18 07:50:25 -03 2022
+Tue Sep 20 04:26:51 GMT 2022
+Tue Sep 20 01:26:52 -03 2022
diff --git a/eev-intro.el b/eev-intro.el
index 7ca953b8ab..3aae2188d2 100644
--- a/eev-intro.el
+++ b/eev-intro.el
@@ -5785,6 +5785,8 @@ It is meant as both a tutorial (for eepitch) and a 
sandbox.
 
 This intro _complements_ the material in:
   (find-eev-quick-intro \"6. Controlling shell-like programs\")
+For a good visual introduction to eepitch, see this page:
+  http://angg.twu.net/eepitch.html
 
 My video for the EmacsConf2019 has a simple demo of eepitch:
   https://www.youtube.com/watch?v=86yiRG8YJD0&t=956
diff --git a/eev-kla.el b/eev-kla.el
index 7da1909c8c..a2128f17e2 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:    20220918
+;; Version:    20220920
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-kla.el>
@@ -317,9 +317,13 @@
 ;;
 ;;        Copied to the kill ring: (find-eevfile "eev-kla.el" "bleh")
 ;;
-;; TODO: `M-x eeklt', that <K>ills a <L>ink made with (<T>o ...);
-;; rewrite `ee-preferred-c-show' - I deleted the old version.
+;;   5) `M-x eeklt': <K>ills a <L>ink made with (<T>o ...).
+;;      To test this, run `M-x eeklt' here. You will see this message
+;;      in the echo area:
 ;;
+;;         Copied to the kill ring: (to "test")
+;;
+;;   6) `M-x ee-kl-insert'. TODO: explain this.
 ;;
 ;;
 ;; 9. Aliases
@@ -333,7 +337,10 @@
 (defvar ee-preferred-c nil
   "See: (find-eev \"eev-kla.el\")")
 
-(defvar ee-kl-format "%s"
+(defvar ee-kl-format nil
+  "See: (find-eev \"eev-kla.el\")")
+
+(defvar ee-kl-insert nil
   "See: (find-eev \"eev-kla.el\")")
 
 ;;;###autoload
@@ -342,12 +349,22 @@
 ;;;###autoload
 (put   'ee-kl-format 'safe-local-variable #'stringp)
 
+;;;###autoload
+(put   'ee-kl-insert 'safe-local-variable #'stringp)
+
+(defun ee-kl-format (str)
+  (format (or ee-kl-format "%s") str))
+
 (defun ee-kl-kill (sexp)
   (if (not (stringp sexp))
       (setq sexp (ee-S sexp)))
-  (kill-new (format ee-kl-format sexp))
+  (kill-new (ee-kl-format sexp))
   (message "Copied to the kill ring: %s" sexp))
 
+(defun ee-kl-insert ()
+  (interactive)
+  (insert (format (or ee-kl-insert "%s") (car kill-ring))))
+
 
 
 ;; «simple-defaults»  (to ".simple-defaults")
@@ -440,6 +457,10 @@
        (ee-kl-shortfname :c c :fname fname)
        region))
 
+(cl-defun ee-kl-sexp-klt
+    (&key (anchor (ee-kl-anchor)))
+  (list 'to anchor))
+
 ;; «kill-sexps»  (to ".kill-sexps")
 ;; Commands that push sexps into the kill ring. Note that
 ;; they are "(interactive)" and can be invoked with `M-x'.
@@ -466,6 +487,11 @@ Put in the kill ring a link to the preceding anchor."
   (interactive)
   (ee-kl-kill (ee-kl-sexp-klfs)))
 
+(defun eeklt ()
+  "<K>ill <L>ink to a (<T>o ...)."
+  (interactive)
+  (ee-kl-kill (ee-kl-sexp-klt)))
+
 ;; (eekla)
 
 
@@ -480,6 +506,7 @@ Put in the kill ring a link to the preceding anchor."
 ;; «eekla2»  (to ".eekla2")
 ;; See: (find-kla-test-intro)
 ;;      (find-kla-test-intro "3. Run some tests")
+;; TODO: make this use `kli'.
 
 (defun eekla2 ()
   "Insert a link \"to here\" \"there\" and a link \"to there\" \"here\".
@@ -509,7 +536,7 @@ then run `eekla' in the next window, and save the result in
 ;; «demo»  (to ".demo")
 ;; See: (find-kla-test-intro)
 ;;      (find-kla-test-intro "2. Setup for a demo")
-;; TODO: rewrite this.
+;; TODO: How obsolete is this? Check and rewrite!
 
 (defun ee-kla-demo-write-file (fname contents)
   "See: (find-kla-test-intro)"
@@ -554,10 +581,10 @@ Body:
 ;; (defalias 'klas 'eeklas)
 ;; (defalias 'klf  'eeklf)
 ;; (defalias 'klfs 'eeklfs)
+;; (defalias 'klt  'eeklt)
+;; (defalias 'kli  'ee-kl-insert)
 ;; (defalias 'kla2 'eekla2)
 
-
-
 (provide 'eev-kla)