[elpa] externals/eev 4f4a4f1 12/14: Added `find-windows-eepitch-lua-links'.

[Stefan Monnier]

branch: externals/eev
commit 4f4a4f1644fa005949e6a14842cadf6cb9150ba7
Author: Eduardo Ochs <address@hidden>
Commit: Eduardo Ochs <address@hidden>

    Added `find-windows-eepitch-lua-links'.
---
 ChangeLog     |   4 ++
 VERSION       |   4 +-
 eev-tlinks.el | 133 ++++++++++++++++++++++++++++++++++++++++++++++++----------
 3 files changed, 118 insertions(+), 23 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index d2286ed..e5cabb5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2020-02-16  Eduardo Ochs  <address@hidden>
+
+       * eev-tlinks.el (find-windows-eepitch-lua-links): new function.
+
 2020-01-08  Eduardo Ochs  <address@hidden>
 
        * eev-hlinks.el: new file.
diff --git a/VERSION b/VERSION
index e7fce61..2e53e5d 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Tue Feb 11 20:11:50 GMT 2020
-Tue Feb 11 17:11:50 -03 2020
+Sun Feb 16 05:20:23 GMT 2020
+Sun Feb 16 02:20:23 -03 2020
diff --git a/eev-tlinks.el b/eev-tlinks.el
index b280b53..f20ee80 100644
--- a/eev-tlinks.el
+++ b/eev-tlinks.el
@@ -1,6 +1,6 @@
 ;;; eev-tlinks.el --- hyperlinks to temporary buffers generated by templates
 
-;; Copyright (C) 2013-2019 Free Software Foundation, Inc.
+;; Copyright (C) 2013-2020 Free Software Foundation, Inc.
 ;;
 ;; This file is part of GNU eev.
 ;;
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <address@hidden>
 ;; Maintainer: Eduardo Ochs <address@hidden>
-;; Version:    2020jan08
+;; Version:    2020feb16
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-tlinks.el>
@@ -55,29 +55,30 @@
 
 
 
-;; «.ee-copy-rest»             (to "ee-copy-rest")
+;; «.ee-copy-rest»                     (to "ee-copy-rest")
 ;;
-;; «.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-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")
-;; «.find-eev-header-links»    (to "find-eev-header-links")
+;; «.find-intro-links»                 (to "find-intro-links")
+;; «.find-pdflikedef-links»            (to "find-pdflikedef-links")
+;; «.find-eev-header-links»            (to "find-eev-header-links")
 ;;
-;; «.find-debpkg-links»                (to "find-debpkg-links")
-;; «.find-eev-install-links»   (to "find-eev-install-links")
-;; «.find-eev-update-links»    (to "find-eev-update-links")
-;; «.find-youtubedl-links»     (to "find-youtubedl-links")
-;; «.find-psne-links»          (to "find-psne-links")
-;; «.find-git-links»           (to "find-git-links")
-;; «.find-fossil-links»                (to "find-fossil-links")
-;; «.find-apt-get-source-links»        (to "find-apt-get-source-links")
-;; «.find-eev-video-links»     (to "find-eev-video-links")
+;; «.find-debpkg-links»                        (to "find-debpkg-links")
+;; «.find-eev-install-links»           (to "find-eev-install-links")
+;; «.find-eev-update-links»            (to "find-eev-update-links")
+;; «.find-youtubedl-links»             (to "find-youtubedl-links")
+;; «.find-psne-links»                  (to "find-psne-links")
+;; «.find-git-links»                   (to "find-git-links")
+;; «.find-fossil-links»                        (to "find-fossil-links")
+;; «.find-apt-get-source-links»                (to "find-apt-get-source-links")
+;; «.find-eev-video-links»             (to "find-eev-video-links")
 ;;
-;; «.find-latex-links»         (to "find-latex-links")
-;; «.find-lua-links»           (to "find-lua-links")
-;; «.find-escreenshot-links»   (to "find-escreenshot-links")
+;; «.find-latex-links»                 (to "find-latex-links")
+;; «.find-lua-links»                   (to "find-lua-links")
+;; «.find-escreenshot-links»           (to "find-escreenshot-links")
+;; «.find-windows-eepitch-lua-links»   (to "find-windows-eepitch-lua-links")
 
 
 (require 'eev-env)
@@ -1671,6 +1672,96 @@ dofile \"{fname0}\"
 
 
 
+
+
+;; «find-windows-eepitch-lua-links»  (to ".find-windows-eepitch-lua-links")
+;; Skel: (find-find-links-links-new "windows-eepitch-lua" "dir" "")
+;; Test: (find-windows-eepitch-lua-links "/tmp/")
+;;
+(defun find-windows-eepitch-lua-links (&optional dir &rest pos-spec-list)
+"Visit a temporary buffer that helps in setting up `eepitch-lua52's on M$ 
Windows."
+  (interactive)
+  ;; (setq dir (or dir "{dir}"))
+  (setq dir (or dir default-directory))
+  (apply
+   'find-elinks-elisp
+   `((find-windows-eepitch-lua-links ,dir ,@pos-spec-list)
+     (find-windows-eepitch-lua-links "{dir}" ,@pos-spec-list)
+     ;; Convention: the first sexp always regenerates the buffer.
+     ;; (find-efunction 'find-windows-eepitch-lua-links)
+     ""
+     ,(ee-template0 "\
+;; Instructions:
+;; To configure the `eepitch-lua52' function on M$ Windows, do this:
+;;
+;; 1) Install ZeroBrane from:
+;;      https://studio.zerobrane.com/
+;;
+;; 2) Find the directory inside the ZeroBrane installation that
+;;    has the file lua52.exe.
+;;
+;; 3) Open that directory in Emacs using Dired - see:
+;;      (find-node \"(emacs)Dired\")
+;;    Hints: use RET to enter into a subdirectory; use M-k to go back;
+;;    you may start here:
+;;      (find-fline \"C:/\")
+;;
+;; 4) Run `M-x find-windows-eepitch-lua-links' there. You should get
+;;    a buffer like this one, but with that directory in the first line.
+;;    This is like adjusting the parameter of `find-latex-links',
+;;    but the value of \"{<}dir{>}\" is set to the current directory. See:
+;;      (find-eev-quick-intro \"7.5. `find-latex-links'\")
+;;
+;; 5) Test if you've got the correct \"{<}dir{>}\". If you got it
+;;    right then the sexp below should open that directory and go to
+;;    line where the \"lua52.exe\" is:
+;;      (find-fline \"{dir}\" \"lua52.exe\")
+;;
+;; 6) Try the sexp below - it is a low-level test to see a) if our
+;;    current path to \"lua52.exe\" is the right one AND b) if we can run
+;;    that \"lua52.exe\" as a \"shell-like program\" in a target buffer.
+;;    These ideas are explained here,
+;;      (find-eev-quick-intro \"6.1. The main key: <F8>\")
+;;      (find-eepitch-intro \"1.1. Another target\")
+;;    and the test sexp is:
+;;      (eepitch-comint \"lua52\" \"{dir}\" \"lua52.exe\")
+;;
+;; 7) If you got a prompt like this one
+;;
+;;      Lua 5.2.4  Copyright (C) 1994-2015 Lua.org, PUC-Rio
+;;      > 
+;;
+;;    in the right window in the test in item (6) then everything is
+;;    working. If you didn't get a prompt like that then you NEED to run
+;;    this before performing another test:
+;;      (eepitch-kill)
+;;      
+;; 8) Override the current definition of eepitch-lua52 by running this:
+
+(defun eepitch-lua52 () (interactive)
+  (eepitch-comint \"lua52\"
+     \"{dir}lua52.exe\"))
+
+;;    Note that it is a 3-line sexp! If you execute it with `M-e'
+;;    the result in the echo area should be \"eepitch-lua52\".
+;;
+;; 9) Test if the eepitch block below works: run it by typing
+;;    `<f8>'s on its three red star lines, and then `<f8>'s on its three
+;;    non-red star lines.
+
+ (eepitch-lua52)
+ (eepitch-kill)
+ (eepitch-lua52)
+print(2+3)
+for i=2,20,3 do print(i) end
+os.exit()
+
+")
+     )
+   pos-spec-list))
+
+
+
 (provide 'eev-tlinks)