branch: externals/osm
commit 1adbbc99c9e205a18e5b34e16f769e13651d0145
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
Localize search results, add osm-search-language
---
osm.el | 12 ++++++++----
1 file changed, 8 insertions(+), 4 deletions(-)
diff --git a/osm.el b/osm.el
index d6e8ae1720..af0ff387e8 100644
--- a/osm.el
+++ b/osm.el
@@ -53,6 +53,10 @@
"Curl command line options."
:type 'string)
+(defcustom osm-search-language "en-US"
+ "Language used for search results."
+ :type 'string)
+
(defcustom osm-server-defaults
'(:min-zoom 2
:max-zoom 19
@@ -1371,8 +1375,8 @@ Optionally place transient pin with ID and NAME."
(alist-get
'display_name
(osm--fetch-json
- (format
"https://nominatim.openstreetmap.org/reverse?format=json&zoom=%s&lat=%s&lon=%s";
- (min 18 (max 3 osm--zoom)) lat lon)))))))
+ (format
"https://nominatim.openstreetmap.org/reverse?format=json&accept-language=%s&zoom=%s&lat=%s&lon=%s";
+ osm-search-language (min 18 (max 3 osm--zoom)) lat
lon)))))))
(defun osm--fetch-json (url)
"Get json from URL."
@@ -1406,8 +1410,8 @@ If the prefix argument LUCKY is non-nil take the first
result and jump there."
,@(mapcar #'string-to-number (alist-get 'boundingbox
x)))))
(or
(osm--fetch-json
- (concat
"https://nominatim.openstreetmap.org/search?format=json&q=";
- (url-encode-url search)))
+ (format
"https://nominatim.openstreetmap.org/search?format=json&accept-language=%s&q=%s";
+ osm-search-language (url-encode-url search)))
(error "No results"))))
(selected (or
(and (or lucky (not (cdr results))) (car results))
