[elpa] externals/eev 4f682e2: Added more support functions for `ee-eshell/fakewget'.

[ELPA Syncer]

branch: externals/eev
commit 4f682e2b3853d3800d279c2a57461454718a645b
Author: Eduardo Ochs <eduardoochs@gmail.com>
Commit: Eduardo Ochs <eduardoochs@gmail.com>

    Added more support functions for `ee-eshell/fakewget'.
---
 ChangeLog     |  7 +++++++
 VERSION       |  4 ++--
 eev-blinks.el |  6 +++++-
 eev-intro.el  |  1 +
 eev-plinks.el | 18 ++++++++++++++++--
 eev.el        |  2 +-
 6 files changed, 32 insertions(+), 6 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 967fa83..b65735d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,12 @@
+2021-10-07  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eev-blinks.el (find-eek): new function.
+
 2021-10-06  Eduardo Ochs  <eduardoochs@gmail.com>
 
+       * eev-plinks.el (ee-urlretrieve-header1, ee-urlretrieve-ok)
+       (ee-urlretrieve-assert-ok): new functions.
+
        * eev-code.el: added a (code-c-d "eshell" ...).
 
        * eev-plinks.el (ee-very-primitive-wget1, ee-eshell/fakewget): new
diff --git a/VERSION b/VERSION
index fd72ed6..0709286 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Wed Oct  6 08:09:20 GMT 2021
-Wed Oct  6 05:09:20 -03 2021
+Thu Oct  7 10:33:36 GMT 2021
+Thu Oct  7 07:33:36 -03 2021
diff --git a/eev-blinks.el b/eev-blinks.el
index 9a85bdd..618541e 100644
--- a/eev-blinks.el
+++ b/eev-blinks.el
@@ -21,7 +21,7 @@
 ;;
 ;; Author:     Eduardo Ochs <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version:    20211002
+;; Version:    20211007
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-blinks.el>
@@ -111,6 +111,10 @@ An example: (eek \"C-x 4 C-h\")"
   (interactive "sKeys: ")
   (execute-kbd-macro (read-kbd-macro str)))
 
+(defun find-eek (str &rest pos-spec-list)
+  (eek str)
+  (apply 'ee-goto-position pos-spec-list))
+
 
 
 
diff --git a/eev-intro.el b/eev-intro.el
index 49b5984..57e5da3 100644
--- a/eev-intro.el
+++ b/eev-intro.el
@@ -1992,6 +1992,7 @@ C-x 1   -- delete-other-windows     (\"1 window\") 
(find-enode \"Change Window\"
 C-x 2   -- split-window-vertically (Above/Below) (find-enode \"Split Window\")
 C-x 3   -- split-window-horizontally       (L|R) (find-enode \"Split Window\")
 C-x 4 0 -- kill-buffer-and-window                (find-enode \"Change Window\")
+C-x +   -- balance-windows                       (find-enode \"Change Window\")
 
 
 
diff --git a/eev-plinks.el b/eev-plinks.el
index 598849e..def765e 100644
--- a/eev-plinks.el
+++ b/eev-plinks.el
@@ -268,6 +268,20 @@
 (defvar ee-urlretrieve-headers ""
   "The HTTP headers returned by the last call to `find-urlretrieve'.")
 
+(defun ee-urlretrieve-header1 ()
+  "Return the first line of `ee-urlretrieve-headers'."
+  (replace-regexp-in-string "\n[^z-a]*" "" ee-urlretrieve-headers))
+
+(defun ee-urlretrieve-ok ()
+  "Check if the first line of `ee-urlretrieve-headers' is \"HTTP/1.1 200 OK\"."
+  (equal "HTTP/1.1 200 OK" (ee-urlretrieve-header1)))
+
+(defun ee-urlretrieve-assert-ok ()
+  "Check if the first line of `ee-urlretrieve-headers' is \"HTTP/1.1 200 OK\".
+If it is something else, throw an error."
+  (if (not (ee-urlretrieve-ok))
+      (error "Error: %s" (ee-urlretrieve-header1))))
+
 (defun find-urlretrieve00 (url)
   "An internal function used by `find-urlretrieve'."
   (find-ebuffer
@@ -276,7 +290,7 @@
 
 (defun ee-urlretrieve0 (url)
   "Use `url-retrieve-synchronously' to download URL.
-When `url-retrieve-synchronously' is used for http or http it
+When `url-retrieve-synchronously' is used for http or https it
 returns a buffer containing the response headers, then a blank
 line, then the contents (the \"message body\"). This function
 saves the response headers in the variable
@@ -304,7 +318,7 @@ This is a quick hack."
 
 (defun ee-very-primitive-wget1 (url)
   "This is like `ee-very-primitive-wget0', but always returns a string.
-If URL is, say, http://foo.bar/plic/blech.html then save its
+If URL is, say, http://foo.bar/plic/bletch.html then save its
 contents in a file bletch.html in the current directory.
 Return \"Downloaded nnn bytes\" in case of success and the HTTP
 headers in case of error. This is a quick hack."
diff --git a/eev.el b/eev.el
index 06e92e7..de2c089 100644
--- a/eev.el
+++ b/eev.el
@@ -6,7 +6,7 @@
 ;; Package-Requires: ((emacs "24.4"))
 ;; Keywords: lisp e-scripts
 ;; URL: http://angg.twu.net/#eev
-;; Version: 20211006
+;; Version: 20211007
 
 ;; This program is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by