branch: externals/eev
commit dfb01f68924518f96210d7e38be0e841a85ce6c1
Author: Eduardo Ochs <eduardoo...@gmail.com>
Commit: Eduardo Ochs <eduardoo...@gmail.com>
New function: `find-find-links-links-new'.
---
ChangeLog | 10 ++++++++++
VERSION | 4 ++--
eev-tlinks.el | 30 +++++++++++++++++++++++++++++-
3 files changed, 41 insertions(+), 3 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 82e658d..bb15ab2 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,13 @@
+2020-01-08 Eduardo Ochs <eduardoo...@gmail.com>
+
+ * eev-tlinks.el (find-find-links-links-new): new function.
+
+2020-01-07 Eduardo Ochs <eduardoo...@gmail.com>
+
+ * eev-tlinks.el (ee-ffll-optional, ee-ffll-setqs, ee-ffll-lets)
+ (ee-ffll-comma-args, ee-ffll-defun-without-lets)
+ (ee-ffll-defun-with-lets, ee-ffll-defun): new functions.
+
2020-01-05 Eduardo Ochs <eduardoo...@gmail.com>
* eev-code.el: added `(code-c-d "elpa" "~/.emacs.d/elpa/")' -
diff --git a/VERSION b/VERSION
index b3f8103..99bfb79 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Tue Jan 7 21:18:50 GMT 2020
-Tue Jan 7 18:18:50 -03 2020
+Wed Jan 8 21:36:29 GMT 2020
+Wed Jan 8 18:36:29 -03 2020
diff --git a/eev-tlinks.el b/eev-tlinks.el
index 4273827..b84f9c5 100644
--- a/eev-tlinks.el
+++ b/eev-tlinks.el
@@ -19,7 +19,7 @@
;;
;; Author: Eduardo Ochs <eduardoo...@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoo...@gmail.com>
-;; Version: 2020jan07
+;; Version: 2020jan08
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-tlinks.el>
@@ -59,6 +59,7 @@
;;
;; «.find-find-links-links» (to "find-find-links-links")
;; «.ee-ffll-functions» (to "ee-ffll-functions")
+;; «.find-find-links-links-new» (to "find-find-links-links-new")
;;
;; «.find-intro-links» (to "find-intro-links")
;; «.find-pdflikedef-links» (to "find-pdflikedef-links")
@@ -372,6 +373,33 @@ This is an internal function used by `find-{stem}-links'.\"
(ee-ffll-defun-without-lets stem args)))
+;; «find-find-links-links-new» (to ".find-find-links-links-new")
+;; Test: (find-find-links-links-new)
+;;
+(defun find-find-links-links-new (&optional stem args vars &rest pos-spec-list)
+"Visit a temporary buffer containing a skeleton of a find-*-links function."
+ (interactive)
+ (setq stem (or stem "{stem}"))
+ (setq args (or args "{args}"))
+ (setq vars (or vars "{vars}"))
+ (apply 'find-elinks-elisp
+ `((find-find-links-links-new ,stem ,args ,vars ,@pos-spec-list)
+ (find-find-links-links-new "mytask" "foo bar" "" ,@pos-spec-list)
+ (find-find-links-links-new "mytask" "foo bar" "plic bletch"
,@pos-spec-list)
+ ;; Convention: the first sexp always regenerates the buffer.
+ (find-efunction 'find-find-links-links-new)
+ ""
+ ,(ee-template0 ";; <find-{stem}-links>")
+ ,(concat ";; Skel: " (ee-S `(find-find-links-links-new ,stem ,args
,vars)))
+ ";;"
+ ,(ee-ffll-defun stem args vars)
+ )
+ pos-spec-list))
+
+
+
+
+
