branch: externals/eev
commit 1509c58f1b73da81dae218c1ad81ddb30c61f63d
Author: Eduardo Ochs <eduardoo...@gmail.com>
Commit: Eduardo Ochs <eduardoo...@gmail.com>
Added `ee-very-primitive-wget0'.
---
ChangeLog | 3 +++
VERSION | 4 ++--
eepitch.el | 4 ++--
eev-intro.el | 7 +++++++
eev-plinks.el | 11 +++++++++++
5 files changed, 25 insertions(+), 4 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index f2aacad..298d153 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,10 +1,13 @@
2021-10-05 Eduardo Ochs <eduardoo...@gmail.com>
+ * eev-plinks.el (ee-very-primitive-wget0): new function.
+
* eepitch.el (find-vtermprocess, eepitch-vterm): rewritten.
Beware: their arguments are different now!
(eepitch-ansiterm, eepitch-line-ansiterm)
(find-ansitermprocess, eepitch-pwsh)
(eepitch-pwsh2): new functions.
+ (eepitch-ansiterm): fixed some typos.
2021-10-04 Eduardo Ochs <eduardoo...@gmail.com>
diff --git a/VERSION b/VERSION
index 954fb8f..19425e4 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Tue Oct 5 05:12:21 GMT 2021
-Tue Oct 5 02:12:21 -03 2021
+Wed Oct 6 03:57:17 GMT 2021
+Wed Oct 6 00:57:17 -03 2021
diff --git a/eepitch.el b/eepitch.el
index ca9fa8b..3c9d113 100644
--- a/eepitch.el
+++ b/eepitch.el
@@ -863,8 +863,8 @@ It uses `eepitch-line-ansiterm' instead of `eepitch-line'.
The arguments are explained here:
(find-eev \"eepitch.el\" \"other-terms\")"
(interactive)
- (prog1 (eepitch `(find-vtermprocess ,program ,name0))
- (setq eepitch-line 'eepitch-line-vterm)))
+ (prog1 (eepitch `(find-ansitermprocess ,program ,name0))
+ (setq eepitch-line 'eepitch-line-ansiterm)))
;; «eepitch-vterm» (to ".eepitch-vterm")
;; Tests:
diff --git a/eev-intro.el b/eev-intro.el
index 656ed5a..49b5984 100644
--- a/eev-intro.el
+++ b/eev-intro.el
@@ -12445,6 +12445,13 @@ Version of these instructions: 2021sep20.
Read the README below and then install Emacs using either the
link to the .exe or the link to the .zip:
+http://alpha.gnu.org/gnu/emacs/pretest/windows/emacs-28/
+http://alpha.gnu.org/gnu/emacs/pretest/windows/emacs-28/README-windows-binaries
+http://alpha.gnu.org/gnu/emacs/pretest/windows/emacs-28/emacs-28.0.50-snapshot-2021-01-15-installer.exe
+http://alpha.gnu.org/gnu/emacs/pretest/windows/emacs-28/emacs-28.0.50-snapshot-2021-01-15.zip
+
+If you prefer Emacs27, use these links:
+
https://ftp.gnu.org/gnu/emacs/windows/emacs-27/
https://ftp.gnu.org/gnu/emacs/windows/emacs-27/README-windows-binaries
https://ftp.gnu.org/gnu/emacs/windows/emacs-27/emacs-27.2-x86_64-installer.exe
diff --git a/eev-plinks.el b/eev-plinks.el
index 0c1a4dc..7b2651f 100644
--- a/eev-plinks.el
+++ b/eev-plinks.el
@@ -291,6 +291,17 @@ simplistic as possible. Use it only to experiment with
(prog1 (buffer-substring (point) (point-max))
(kill-buffer (current-buffer))))
+(defun ee-very-primitive-wget0 (url fname)
+ "Try to download the contents of URL into FNAME.
+If that works return the number of bytes written.
+If that fails return nil or throw an error.
+This is a quick hack."
+ (let* ((contents (ee-urlretrieve0 url))
+ (ok (string-match "^HTTP/1.1 200 OK" ee-urlretrieve-headers)))
+ (when ok
+ (write-region contents nil (ee-expand fname))
+ (string-bytes contents))))
+
;;; __ _ _ _
