[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/eev e77a2a2903: Added support for pos-spec-lists to `fi
From: |
ELPA Syncer |
Subject: |
[elpa] externals/eev e77a2a2903: Added support for pos-spec-lists to `find-eww'. |
Date: |
Wed, 16 Mar 2022 03:57:30 -0400 (EDT) |
branch: externals/eev
commit e77a2a290323171a2c4a63504ae7899f9af646af
Author: Eduardo Ochs <eduardoochs@gmail.com>
Commit: Eduardo Ochs <eduardoochs@gmail.com>
Added support for pos-spec-lists to `find-eww'.
---
ChangeLog | 5 +++++
VERSION | 4 ++--
eev-blinks.el | 35 +++++++++++++++++++++++++++++------
eev-elinks.el | 2 +-
eev-hlinks.el | 2 +-
eev-tlinks.el | 2 +-
eev.el | 2 +-
7 files changed, 40 insertions(+), 12 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 7c6048f1e8..37aa90e0e6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
2022-03-16 Eduardo Ochs <eduardoochs@gmail.com>
+ * eev-blinks.el (ee-find-eww-search-yes, ee-find-eww-search-for):
+ new variables.
+ (ee-find-eww-search): new function.
+ (find-eww): set the variables for `ee-find-eww-search'.
+
* eev-plinks.el (find-osm): new function.
* eev-hlinks.el (ee-fhl-main-program): added support for osm.
diff --git a/VERSION b/VERSION
index a87ee7146e..601d71b6e8 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Wed Mar 16 04:02:20 GMT 2022
-Wed Mar 16 01:02:20 -03 2022
+Wed Mar 16 07:30:13 GMT 2022
+Wed Mar 16 04:30:13 -03 2022
diff --git a/eev-blinks.el b/eev-blinks.el
index cc732b7e5e..466457382a 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: 20220126
+;; Version: 20220316
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-blinks.el>
@@ -1029,19 +1029,42 @@ it doesn't convert relative filenames into urls. See
;; «find-eww» (to ".find-eww")
;; Tests: (find-eww "http://angg.twu.net/")
+;; (find-eww "http://angg.twu.net/" "Welcome")
;; (find-eww "/tmp/")
;;
+(defvar ee-find-eww-search-yes nil)
+(defvar ee-find-eww-search-for nil)
+
(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. =("
+
+This function searches for POS-SPEC-LIST in the page, but only
+after eww finishes rendering it. This is implemented by a hook:
+this function saves the POS-SPEC-LIST in the variable
+`ee-find-eww-search-for' and sets the variable
+`ee-find-eww-search-yes' to t; `eww' runs the function
+`ee-find-eww-search' after rendering the page, and
+`ee-find-eww-search' processes these two variables."
+ (setq ee-find-eww-search-for pos-spec-list)
+ (setq ee-find-eww-search-yes t)
(eww (replace-regexp-in-string "^/" "file:///" (ee-expand url))))
+(defun ee-find-eww-search ()
+ "This function is run after eww finishes rendering a page.
+If `ee-find-eww-search-yes' is true it searches for
+`ee-find-eww-search-for' and sets `ee-find-eww-search-yes' to
+false. These variables are set by `find-eww'."
+ (when ee-find-eww-search-yes
+ (setq ee-find-eww-search-yes nil)
+ (apply 'ee-goto-position ee-find-eww-search-for)))
+
+(add-hook 'eww-after-render-hook 'ee-find-eww-search)
+
;; (code-c-d "eww" (ee-elfile "net/") "eww" :gz)
-;; ;; (find-ewwfile "")
-;; ;; (find-ewwfile "eww.el")
-;; ;; (find-ewwnode "")
-;;
+;; (find-ewwfile "" "eww.el")
+;; (find-ewwfile "eww.el")
+;; (find-ewwnode "")
diff --git a/eev-elinks.el b/eev-elinks.el
index 54766ca826..22da9915ae 100644
--- a/eev-elinks.el
+++ b/eev-elinks.el
@@ -19,7 +19,7 @@
;;
;; Author: Eduardo Ochs <eduardoochs@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version: 20220226
+;; Version: 20220316
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-elinks.el>
diff --git a/eev-hlinks.el b/eev-hlinks.el
index fc92db510a..e9072a8fc5 100644
--- a/eev-hlinks.el
+++ b/eev-hlinks.el
@@ -19,7 +19,7 @@
;;
;; Author: Eduardo Ochs <eduardoochs@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version: 20220224
+;; Version: 20220316
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-hlinks.el>
diff --git a/eev-tlinks.el b/eev-tlinks.el
index f37bc9d021..f3cf5bc86f 100644
--- a/eev-tlinks.el
+++ b/eev-tlinks.el
@@ -2904,7 +2904,7 @@ how this works."
;; «find-osm-links» (to ".find-osm-links")
;; Skel: (find-find-links-links-new "osm" "lat lon zoom" "")
;; Test: (find-osm-links)
-;; See: (find-efunction 'find-osm)
+;; See: (find-eev "eev-plinks.el" "find-osm")
;;
(defun find-osm-links (&optional lat lon zoom &rest pos-spec-list)
"Visit a temporary buffer containing hyperlinks for OpenStreetMap viewer."
diff --git a/eev.el b/eev.el
index 79fc4281b5..ae49827fd5 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: 20220308
+;; Version: 20220316
;; 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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/eev e77a2a2903: Added support for pos-spec-lists to `find-eww'.,
ELPA Syncer <=