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)) + + + + +