[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/eev 055d904 03/12: New feature: `ee-insert-test' (a.k.a
From: |
Stefan Monnier |
Subject: |
[elpa] externals/eev 055d904 03/12: New feature: `ee-insert-test' (a.k.a. `eeit'). |
Date: |
Mon, 2 Sep 2019 16:57:43 -0400 (EDT) |
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))))
+
+
+
+
+
+
;;; _
;;; ___ ___ _ __ ___ _ __ __ _| |_
;;; / __/ _ \| '_ ` _ \| '_ \ / _` | __|
- [elpa] externals/eev updated (e836949 -> 3c8a166), Stefan Monnier, 2019/09/02
- [elpa] externals/eev 7b43692 01/12: New file: eev-on-windows.el., Stefan Monnier, 2019/09/02
- [elpa] externals/eev f937acb 02/12: New file: eev-on-windows.el., Stefan Monnier, 2019/09/02
- [elpa] externals/eev 055d904 03/12: New feature: `ee-insert-test' (a.k.a. `eeit').,
Stefan Monnier <=
- [elpa] externals/eev 4dad071 07/12: New function: `find-apt-get-source-links'., Stefan Monnier, 2019/09/02
- [elpa] externals/eev e7bef85 08/12: Added `find-mpv-video' and `find-mpv-audio'., Stefan Monnier, 2019/09/02
- [elpa] externals/eev 1c35021 05/12: Many changes in (find-eev-quick-intro)., Stefan Monnier, 2019/09/02
- [elpa] externals/eev f182220 11/12: Added `ee-copy-preceding-tag-to-kill-ring'., Stefan Monnier, 2019/09/02
- [elpa] externals/eev 07a62d0 10/12: Added links to videos to ` find-three-main-keys-intro., Stefan Monnier, 2019/09/02
- [elpa] externals/eev 9a00208 09/12: Now `find-video' and `find-audio' use `find-mpv-video' and `find-mpv-audio'., Stefan Monnier, 2019/09/02
- [elpa] externals/eev 4e306ac 04/12: Rewrote `(find-pdf-like-intro)'., Stefan Monnier, 2019/09/02
- [elpa] externals/eev 0361b42 06/12: New file: eev-explain.el., Stefan Monnier, 2019/09/02
- [elpa] externals/eev 3c8a166 12/12: Merge remote-tracking branch 'eev/UTF-8' into externals/eev, Stefan Monnier, 2019/09/02