[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/eev 0e332b0de3: Now `find-osm' can sort of handle links
From: |
ELPA Syncer |
Subject: |
[elpa] externals/eev 0e332b0de3: Now `find-osm' can sort of handle links to Google Maps. |
Date: |
Mon, 21 Mar 2022 03:57:30 -0400 (EDT) |
branch: externals/eev
commit 0e332b0de3413a33acccd576e94e6e811abc407b
Author: Eduardo Ochs <eduardoochs@gmail.com>
Commit: Eduardo Ochs <eduardoochs@gmail.com>
Now `find-osm' can sort of handle links to Google Maps.
---
ChangeLog | 7 +++++++
VERSION | 4 ++--
eev-plinks.el | 8 +++++++-
eev-tlinks.el | 10 ++++++++--
4 files changed, 24 insertions(+), 5 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 5db41f924f..d6e6d23b80 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2022-03-21 Eduardo Ochs <eduardoochs@gmail.com>
+
+ * eev-plinks.el (find-osm-str): new function.
+
+ * eev-tlinks.el (find-osm-links): include a link with
+ `find-osm-str'.
+
2022-03-20 Eduardo Ochs <eduardoochs@gmail.com>
* eev-eval.el (ee-goto-eol): new function.
diff --git a/VERSION b/VERSION
index ceb71189ec..f04b7b2e3b 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Sun Mar 20 06:19:58 GMT 2022
-Sun Mar 20 03:19:58 -03 2022
+Mon Mar 21 07:22:30 GMT 2022
+Mon Mar 21 04:22:30 -03 2022
diff --git a/eev-plinks.el b/eev-plinks.el
index 3778ea055c..9676300f2c 100644
--- a/eev-plinks.el
+++ b/eev-plinks.el
@@ -19,7 +19,7 @@
;;
;; Author: Eduardo Ochs <eduardoochs@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version: 20220316
+;; Version: 20220321
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-plinks.el>
@@ -458,6 +458,12 @@ viewer - installed for this to work, and Emacs 28 or
later."
(require 'osm)
(find-dbsw-call `(osm-goto ,lat ,lon ,zoom)))
+;; Test: (find-osm-str "43.7731,11.2562,17" "Il Duomo")
+;;
+(defun find-osm-str (latlonzoomstr &rest comments)
+ (apply 'find-osm (mapcar 'string-to-number
+ (split-string latlonzoomstr "[^-.0-9]+"))))
+
diff --git a/eev-tlinks.el b/eev-tlinks.el
index 49093ab72a..8af273dab2 100644
--- a/eev-tlinks.el
+++ b/eev-tlinks.el
@@ -19,7 +19,7 @@
;;
;; Author: Eduardo Ochs <eduardoochs@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version: 20220225
+;; Version: 20220321
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-tlinks.el>
@@ -2904,6 +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)
+;; (find-osm-links 43.7731 11.2562 17 "Il Duomo")
;; See: (find-eev "eev-plinks.el" "find-osm")
;;
(defun find-osm-links (&optional lat lon zoom &rest pos-spec-list)
@@ -2931,7 +2932,12 @@ how this works."
`((find-osm ,lat ,lon ,zoom)
(osm-goto ,lat ,lon ,zoom)
(find-efunction 'find-osm)
- (find-efunction 'osm-goto)))
+ (find-efunction 'osm-goto)
+ ""
+ ,(ee-template0 "\
+# (find-osm-str \"{lat},{lon},{zoom}\")
+# https://www.google.com.br/maps/@{lat},{lon},{zoom}z?hl=en")
+ ))
(defun ee-osm-lat () (if (eq major-mode 'osm-mode) (osm--lat)))
(defun ee-osm-lon () (if (eq major-mode 'osm-mode) (osm--lon)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/eev 0e332b0de3: Now `find-osm' can sort of handle links to Google Maps.,
ELPA Syncer <=