[elpa] externals/eev d971c75 3/4: Added `find-eww'.

[Stefan Monnier]

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

    Added `find-eww'.
---
 ChangeLog         | 10 ++++++++++
 VERSION           |  4 ++--
 eev-blinks.el     | 19 +++++++++++++++++++
 eev-brxxx.el      |  5 +++++
 eev-code.el       | 10 +++++-----
 eev-intro.el      |  2 ++
 eev-pdflike.el    | 10 ++++++++++
 eev-testblocks.el |  2 +-
 8 files changed, 54 insertions(+), 8 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 2f6892b..13f1df3 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,12 @@
+2021-02-23  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eev-pdflike.el (ee-find-pdftotext-text): added a comment
+       explaining how to use UTF-8 instead of Latin-1.
+
 2021-02-08  Eduardo Ochs  <eduardoochs@gmail.com>
 
+       * eev-blinks.el (find-eww): new function.
+
        * eev-brxxx.el (ee-code-brurl-:remote, ee-code-brurl-:local)
        (ee-code-brfile-:local): commented out the `(setq
        browse-url-browser-function ...)'s in the generated code - they
@@ -7,11 +14,14 @@
        them annoying.
        (ee-code-brurl, ee-code-brfile): added help links to the generated
        code.
+       (brew, brewl, brewd, breww, brewwl, brewwd): new functions.
 
        * eev-intro.el (find-eev-intro): promoted `(find-videos-intro)' to
        the list of basic intros.
        (find-eev-quick-intro): fixed a typo in the section "1. Installing
        eev": the "eev-" in `M-x eev-beginner' was missing.
+       (find-eev-install-intro): added the line `(autoload 'eev-beginner
+       "eev-beginner")' to some installation instructions.
 
 2021-02-03  Eduardo Ochs  <eduardoochs@gmail.com>
 
diff --git a/VERSION b/VERSION
index 0705090..e4cada0 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Mon Feb  8 23:38:56 GMT 2021
-Mon Feb  8 20:38:56 -03 2021
+Wed Feb 24 00:24:42 GMT 2021
+Tue Feb 23 21:24:42 -03 2021
diff --git a/eev-blinks.el b/eev-blinks.el
index 44af9e6..f052455 100644
--- a/eev-blinks.el
+++ b/eev-blinks.el
@@ -55,6 +55,7 @@
 ;; «.find-man»                 (to "find-man")
 ;; «.find-man-bug»             (to "find-man-bug")
 ;; «.find-w3m»                 (to "find-w3m")
+;; «.find-eww»                 (to "find-eww")
 ;; «.find-Package»             (to "find-Package")
 ;; «.find-epp»                 (to "find-epp")
 ;; «.find-eloadhistory»                (to "find-eloadhistory")
@@ -763,6 +764,24 @@ it doesn't convert relative filenames into urls. See
 
 
 
+;; «find-eww»  (to ".find-eww")
+;; Tests: (find-eww "http://angg.twu.net/";)
+;;        (find-eww "/tmp/")
+;;
+(defun find-eww (url &rest pos-spec-list)
+  "Hyperlink to a page in HTML. Use eww as the browser.
+URL can be either a real URL or a file name.
+The POS-SPEC-LIST is ignored. =("
+  (eww (replace-regexp-in-string "^/" "file:///" (ee-expand url))))
+
+;; (code-c-d "eww" (ee-elfile "net/") "eww" :gz)
+;; ;; (find-ewwfile "")
+;; ;; (find-ewwfile "eww.el")
+;; ;; (find-ewwnode "")
+;; 
+
+
+
 
 
 ;;;      _      _     _             
diff --git a/eev-brxxx.el b/eev-brxxx.el
index 4f2ec9b..af4bb12 100644
--- a/eev-brxxx.el
+++ b/eev-brxxx.el
@@ -381,6 +381,11 @@ This should be made smarter - file:// urls should be 
returned unchanged."
 ;; (find-code-brurl 'find-w3m          :remote 'brw  :local 'brwl  :dired 
'brwd)
         (code-brurl 'find-w3m          :remote 'brw  :local 'brwl  :dired 
'brwd)
 
+;; (find-code-brurl 'find-eww      :remote 'breww :local 'brewwl :dired 
'brewwd)
+        (code-brurl 'find-eww      :remote 'breww :local 'brewwl :dired 
'brewwd)
+;; (find-code-brurl 'find-eww      :remote 'brew  :local 'brewl  :dired 'brewd)
+        (code-brurl 'find-eww      :remote 'brew  :local 'brewl  :dired 'brewd)
+
 ;; (find-code-brurl 'find-wget         :remote 'brwget)
         (code-brurl 'find-wget         :remote 'brwget)
 
diff --git a/eev-code.el b/eev-code.el
index d1e4e8d..4cfe571 100644
--- a/eev-code.el
+++ b/eev-code.el
@@ -235,7 +235,7 @@ Try this: (find-code-c-d \"CODE\" \"/DIR/\" :info \"INFO\")"
    ") (ee-code-c-d-rest c d rest)))
 
 (defun ee-code-c-d-:gz (c d &rest rest)
- (concat (ee-template0 "
+  (concat (ee-template0 "
    ;; {(ee-S `(ee-code-c-d-:gz ,c ,d ,@rest))}
    (defun find-{c}file (str &rest pos-spec-list)
      (interactive (list \"\"))
@@ -244,14 +244,14 @@ Try this: (find-code-c-d \"CODE\" \"/DIR/\" :info 
\"INFO\")"
    ") (ee-code-c-d-rest c d rest)))
 
 (defun ee-code-c-d-:anchor (c d &rest rest)
- (concat (ee-template0 "
+  (concat (ee-template0 "
    ;; {(ee-S `(ee-code-c-d-:anchor ,c ,d ,@rest))}
    (defun find-{c} (str &rest pos-spec-list)
      (apply 'find-anchor (ee-{c}file str) pos-spec-list))
    ") (ee-code-c-d-rest c d rest)))
 
 (defun ee-code-c-d-:tags (c d &rest rest)
- (concat (ee-template0 "
+  (concat (ee-template0 "
    ;; {(ee-S `(ee-code-c-d-:anchor ,c ,d ,@rest))}
    (setq ee-{c}tagsfile \"{d}TAGS\")
    (defun ee-use-{c}-tags ()
@@ -266,14 +266,14 @@ Try this: (find-code-c-d \"CODE\" \"/DIR/\" :info 
\"INFO\")"
    ") (ee-code-c-d-rest c d rest)))
 
 (defun ee-code-c-d-:w3m (c d &rest rest)
- (concat (ee-template0 "
+  (concat (ee-template0 "
    ;; {(ee-S `(ee-code-c-d-:gz ,c ,d ,@rest))}
    (defun find-{c}w3m (furl &rest pos-spec-list)
      (apply 'find-w3m (ee-{c}file furl) pos-spec-list))
    ") (ee-code-c-d-rest c d rest)))
 
 (defun ee-code-c-d-:wget (c d url &rest rest)
- (concat (ee-template0 "
+  (concat (ee-template0 "
    ;; {(ee-S `(ee-code-c-d-:wget ,c ,d ,url ,@rest))}
    (defun ee-{c}url (semiurl) (concat \"{url}\" semiurl))
    (defun find-{c}wget (semiurl &rest pos-spec-list)
diff --git a/eev-intro.el b/eev-intro.el
index 4d344fd..9a08633 100644
--- a/eev-intro.el
+++ b/eev-intro.el
@@ -2171,6 +2171,7 @@ These are the current ways to download and install eev:
 
        (add-to-list 'load-path \"~/path-to-the-eev-source/\")
        (require 'eev-load)
+       (autoload 'eev-beginner \"eev-beginner\")
        (eev-mode 1)               ; optional
 
   5. by downloading the git repo from
@@ -2181,6 +2182,7 @@ These are the current ways to download and install eev:
 
        (add-to-list 'load-path \"~/path-to-the-eev-source/\")
        (require 'eev-load)
+       (autoload 'eev-beginner \"eev-beginner\")
        (eev-mode 1)               ; optional
 
 
diff --git a/eev-pdflike.el b/eev-pdflike.el
index d9fb1e8..05ab092 100644
--- a/eev-pdflike.el
+++ b/eev-pdflike.el
@@ -598,6 +598,16 @@ newline are spurious - and replaces them by \"(ff)\"."
 (defun ee-find-pdftotext-text (fname &rest rest)
   `(,ee-pdftotext-program "-layout" "-enc" "Latin1" ,(ee-expand fname) "-"))
 
+;; (find-man "1 pdftotext")
+;; (find-man "1 pdftotext" "-enc encoding-name")
+;;
+;; The option "-enc Latin1" above make pdftotext convert its output to
+;; Latin1. If you prefer UTF-8, override the previous definition with
+;; the one below, that it is commented out with a "'":
+
+' (defun ee-find-pdftotext-text (fname &rest rest)
+   `(,ee-pdftotext-program "-layout" ,(ee-expand fname) "-"))
+
 ;; (find-code-pdftextbackend "pdftotext-text")
         (code-pdftextbackend "pdftotext-text")
 
diff --git a/eev-testblocks.el b/eev-testblocks.el
index 2dd6cb1..addbc70 100644
--- a/eev-testblocks.el
+++ b/eev-testblocks.el
@@ -54,7 +54,7 @@
 ;;;                                                                  
 ;; «ee-insert-test»  (to ".ee-insert-test")
 ;; See: (find-eepitch-intro "3. Test blocks")
-;; Insert a "test block" in a Lua/Python/Ruby/shell/Tcl script.
+;; Insert a "test block" in a Lua/Python/Ruby/shell/Tcl/etc script.
 
 
 (defalias 'eeit 'ee-insert-test)