[elpa] externals/eev 055d904 03/12: New feature: `ee-insert-test' (a.k.a. `eeit').

[Stefan Monnier]

branch: externals/eev
commit 055d904f519f7523b6bfb3593d62ac619922785d
Author: Eduardo Ochs <address@hidden>
Commit: Eduardo Ochs <address@hidden>

    New feature: `ee-insert-test' (a.k.a. `eeit').
---
 ChangeLog         |  6 ++++
 VERSION           |  4 +--
 eev-on-windows.el | 11 ++++---
 eev-wrap.el       | 87 +++++++++++++++++++++++++++++++++++++++++++++++++++++++
 4 files changed, 100 insertions(+), 8 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 1ef07ea..87c5a73 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2019-06-29  Eduardo Ochs  <address@hidden>
+
+       * eev-wrap.el (eeit, ee-insert-test, ee-insert-test-lua)
+       (ee-insert-test-python, ee-insert-test-ruby, ee-insert-test-sh)
+       (ee-insert-test-tcl): new functions.
+
 2019-06-25  Eduardo Ochs  <address@hidden>
 
        * eev-blinks.el (find-sh-man-fontify): new function.
diff --git a/VERSION b/VERSION
index 3fde794..d0f28fc 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Fri Jun 28 05:17:05 GMT 2019
-Fri Jun 28 02:17:05 -03 2019
+Sat Jun 29 18:48:47 GMT 2019
+Sat Jun 29 15:48:47 -03 2019
diff --git a/eev-on-windows.el b/eev-on-windows.el
index bffd92c..913fe59 100644
--- a/eev-on-windows.el
+++ b/eev-on-windows.el
@@ -58,8 +58,9 @@
 ;;   (mkdir eev-tar-dir   t)
 ;;   (setq  eev-tar-contents nil)
 ;;   (setq  eev-tar-contents (find-urlretrieve0 eev-tar-url))
-;;   (length eev-tar-contents)
-;;   (ee-write-string eev-tar-contents eev-tar-fname)
+;;   (length (setq eev-tar-contents (find-urlretrieve0 eev-tar-url)))
+;;   (write-region eev-tar-contents nil eev-tar-fname)
+;;   
 ;;   (find-2a nil '(find-fline eev-tar-fname 1 '(tar-untar-buffer)))
 ;;   (eek "C-x o C-x 4 0")
 ;;   (find-2a nil '(find-fline eev-tar-dir nil '(eek "g")))
@@ -80,7 +81,6 @@
 
 
 ;; «add-to-PATH»  (to ".add-to-PATH")
-;; 
https://unix.stackexchange.com/questions/311339/why-was-colon-chosen-as-path-separator
 
 ;; (setq mylist '(22 33 44))
 ;; (add-to-list 'mylist 44)
@@ -105,9 +105,8 @@
   (setq dir  (ee-dospath-to-dos dir))
   (setq path (ee-dospath-to-dos path))
   (let* ((list (ee-dospath-split path))
-        (newlist (cons dir (delete dir list)))
-        (newpath (ee-dospath-unsplit newlist)))
-    newpath))
+        (newlist (cons dir (delete dir list))))
+    (ee-dospath-unsplit newlist)))
 
 (defun add-to-PATH (dir)
   (setenv "PATH" (ee-dospath-add (getenv "PATH") dir)))
diff --git a/eev-wrap.el b/eev-wrap.el
index 0b42756..70bbad3 100644
--- a/eev-wrap.el
+++ b/eev-wrap.el
@@ -41,6 +41,7 @@
 ;; «.ee-S»                     (to "ee-S")
 ;; «.ee-this-line-wrapn»       (to "ee-this-line-wrapn")
 ;; «.find-eewrap-links»                (to "find-eewrap-links")
+;; «.ee-insert-test»           (to "ee-insert-test")
 
 
 (require 'eev-template0)      ; (find-eev "eev-template0.el")
@@ -525,6 +526,92 @@ cd     {dir}"))
 
 
 
+;;;                  _                     _        _            _   
+;;;   ___  ___      (_)_ __  ___  ___ _ __| |_     | |_ ___  ___| |_ 
+;;;  / _ \/ _ \_____| | '_ \/ __|/ _ \ '__| __|____| __/ _ \/ __| __|
+;;; |  __/  __/_____| | | | \__ \  __/ |  | ||_____| ||  __/\__ \ |_ 
+;;;  \___|\___|     |_|_| |_|___/\___|_|   \__|     \__\___||___/\__|
+;;;                                                                  
+;; «ee-insert-test»  (to ".ee-insert-test")
+;; Insert a "test block" in a Lua/Python/Ruby/shell/Tcl script.
+
+(defalias 'eeit 'ee-insert-test)
+
+(defun ee-insert-test ()
+  "Insert an \"test block\" - an eepitch block in a multiline comment."
+  (interactive)
+  (cond ((eq major-mode 'lua-mode)    (ee-insert-test-lua))
+        ((eq major-mode 'python-mode) (ee-insert-test-python))
+        ((eq major-mode 'ruby-mode)   (ee-insert-test-ruby))
+        ((eq major-mode 'sh-mode)     (ee-insert-test-sh))
+        ((eq major-mode 'tcl-mode)    (ee-insert-test-tcl))
+       (t (error "ee-insert-test: Unsupported major mode"))))
+
+(defun ee-insert-test-lua ()
+  (interactive)
+  (insert (format "
+--[[
+ (eepitch-lua51)
+ (eepitch-kill)
+ (eepitch-lua51)
+dofile \"%s\"
+
+--]]
+" (buffer-name))))
+
+(defun ee-insert-test-python ()
+  (interactive)
+  (insert (format "
+\"\"\"
+ (eepitch-python)
+ (eepitch-kill)
+ (eepitch-python)
+execfile(\"%s\", globals())
+
+\"\"\"
+" (buffer-name))))
+
+(defun ee-insert-test-ruby ()
+  (interactive)
+  (insert (format "
+=begin
+ (eepitch-ruby)
+ (eepitch-kill)
+ (eepitch-ruby)
+load \"%s\"
+
+=end
+" (buffer-name))))
+
+(defun ee-insert-test-sh ()
+  (interactive)
+  (insert (format "
+: <<'%%%%%%%%%%'
+ (eepitch-sh)
+ (eepitch-kill)
+ (eepitch-sh)
+. %s
+
+%%%%%%%%%%
+" (buffer-name))))
+
+(defun ee-insert-test-tcl ()
+  (interactive)
+  (insert (format "
+set COMMENTED_OUT {
+ (eepitch-tclsh)
+ (eepitch-kill)
+ (eepitch-tclsh)
+source %s
+
+}
+" (buffer-name))))
+
+
+
+
+
+
 ;;;                                  _   
 ;;;   ___ ___  _ __ ___  _ __   __ _| |_ 
 ;;;  / __/ _ \| '_ ` _ \| '_ \ / _` | __|