branch: externals/eev
commit 4f4a4f1644fa005949e6a14842cadf6cb9150ba7
Author: Eduardo Ochs <eduardoo...@gmail.com>
Commit: Eduardo Ochs <eduardoo...@gmail.com>
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 <eduardoo...@gmail.com>
+
+ * eev-tlinks.el (find-windows-eepitch-lua-links): new function.
+
2020-01-08 Eduardo Ochs <eduardoo...@gmail.com>
* 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 <eduardoo...@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoo...@gmail.com>
-;; 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)
