branch: externals/eev
commit d971c75dcc4f5b00baee874a0f4311b30fa9c30f
Author: Eduardo Ochs <eduardoo...@gmail.com>
Commit: Eduardo Ochs <eduardoo...@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 <eduardoo...@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 <eduardoo...@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 <eduardoo...@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)
