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)