[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/osm 5b82b32201 28/77: Add server descriptions
From: |
ELPA Syncer |
Subject: |
[elpa] externals/osm 5b82b32201 28/77: Add server descriptions |
Date: |
Mon, 7 Mar 2022 08:58:05 -0500 (EST) |
branch: externals/osm
commit 5b82b322010e0bc4a5e8d696842f34bd4b53aac3
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
Add server descriptions
---
osm.el | 59 ++++++++++++++++++++++++++++++++++++++---------------------
1 file changed, 38 insertions(+), 21 deletions(-)
diff --git a/osm.el b/osm.el
index cfc96a4264..611c54c105 100644
--- a/osm.el
+++ b/osm.el
@@ -40,47 +40,58 @@
(defcustom osm-server-list
'((default
- :name "OpenStreetMap"
+ :name "Mapnik"
+ :description "Standard Mapnik map provided by OpenStreetMap"
:min-zoom 2 :max-zoom 19 :max-connections 2
:url "https://[abc].tile.openstreetmap.org/%z/%x/%y.png")
(de
- :name "OSM Deutschland"
+ :name "Mapnik (de)"
+ :description "Localized Mapnik map provided by OpenStreetMap Deutschland"
:min-zoom 2 :max-zoom 19 :max-connections 2
:url "https://[abc].tile.openstreetmap.de/%z/%x/%y.png")
(fr
- :name "OSM France"
+ :name "Mapnik (fr)"
+ :description "Localized Mapnik map by OpenStreetMap France"
:min-zoom 2 :max-zoom 19 :max-connections 2
:url "https://[abc].tile.openstreetmap.fr/osmfr/%z/%x/%y.png")
(humanitarian
- :name "OSM Humanitarian"
+ :name "Humanitarian"
+ :description "Humanitarian map provided by OpenStreetMap France"
:min-zoom 2 :max-zoom 19 :max-connections 2
:url "https://[abc].tile.openstreetmap.fr/hot/%z/%x/%y.png")
- (opentopomap
- :name "OpenTopoMap"
- :min-zoom 2 :max-zoom 17 :max-connections 2
- :url "https://[abc].tile.opentopomap.org/%z/%x/%y.png")
- (opvnkarte
- :name "ÖPNVKarte"
- :min-zoom 2 :max-zoom 18 :max-connections 2
- :url "http://[abc].tile.memomaps.de/tilegen/%z/%x/%y.png")
(cyclosm
:name "CyclOSM"
+ :description "Bicycle-oriented map provided by OpenStreetMap France"
:min-zoom 2 :max-zoom 19 :max-connections 2
:url "https://[abc].tile.openstreetmap.fr/cyclosm/%z/%x/%y.png")
(openriverboatmap
:name "OpenRiverBoatMap"
+ :description "Waterways map provided by OpenStreetMap France"
:min-zoom 2 :max-zoom 19 :max-connections 2
:url "https://[abc].tile.openstreetmap.fr/openriverboatmap/%z/%x/%y.png")
+ (opentopomap
+ :name "OpenTopoMap"
+ :description "Topographical map provided by OpenTopoMap"
+ :min-zoom 2 :max-zoom 17 :max-connections 2
+ :url "https://[abc].tile.opentopomap.org/%z/%x/%y.png")
+ (opvn
+ :name "ÖPNV"
+ :description "Base layer with public transport information"
+ :min-zoom 2 :max-zoom 18 :max-connections 2
+ :url "http://[abc].tile.memomaps.de/tilegen/%z/%x/%y.png")
(stamen-watercolor
:name "Stamen Watercolor"
+ :description "Artistic map in watercolor style provided by Stamen"
:min-zoom 2 :max-zoom 19 :max-connections 2
:url
"https://stamen-tiles-[abc].a.ssl.fastly.net/watercolor/%z/%x/%y.jpg")
(stamen-terrain
:name "Stamen Terrain"
+ :description "Map with hill shading provided by Stamen"
:min-zoom 2 :max-zoom 18 :max-connections 2
:url "https://stamen-tiles-[abc].a.ssl.fastly.net/terrain/%z/%x/%y.png")
(stamen-toner
:name "Stamen Toner"
+ :description "Artistic map in toner style provided by Stamen"
:min-zoom 2 :max-zoom 19 :max-connections 2
:url "https://stamen-tiles-[abc].a.ssl.fastly.net/toner/%z/%x/%y.png"))
"List of tile servers."
@@ -639,17 +650,23 @@ We need two distinct images which are not `eq' for the
display properties.")
(defun osm-server (server)
"Select SERVER."
(interactive
- (list
- (let ((servers
+ (let* ((fmt #("%-20s %s" 6 8 (face font-lock-comment-face)))
+ (servers
(mapcar
(lambda (x)
- (cons (plist-get (cdr x) :name) (car x)))
- osm-server-list)))
- (or (cdr (assoc (completing-read
- "Server: " servers nil t nil nil
- (osm--server-property :name))
- servers))
- (error "No server selected")))))
+ (cons
+ (format fmt
+ (plist-get (cdr x) :name)
+ (or (plist-get (cdr x) :description) ""))
+ (car x)))
+ osm-server-list))
+ (selected (completing-read
+ "Server: " servers nil t nil nil
+ (format fmt
+ (osm--server-property :name)
+ (or (osm--server-property :description) "")))))
+ (list (or (cdr (assoc selected servers))
+ (error "No server selected")))))
(with-current-buffer
(if (derived-mode-p #'osm-mode)
(current-buffer)
- [elpa] externals/osm 4c9337bf79 69/77: Update README, (continued)
- [elpa] externals/osm 4c9337bf79 69/77: Update README, ELPA Syncer, 2022/03/07
- [elpa] externals/osm 76b41f5fb5 51/77: Add keybindings, ELPA Syncer, 2022/03/07
- [elpa] externals/osm a6335090e9 33/77: Handle multiple windows, ELPA Syncer, 2022/03/07
- [elpa] externals/osm 2fbf12f0ef 46/77: seq is not needed, ELPA Syncer, 2022/03/07
- [elpa] externals/osm c2c7dff887 22/77: Compact server configuration, ELPA Syncer, 2022/03/07
- [elpa] externals/osm 7ce1d26c88 67/77: Extract osm--make-tile, ELPA Syncer, 2022/03/07
- [elpa] externals/osm ff8ff68b4d 65/77: Check if bookmarks are present, ELPA Syncer, 2022/03/07
- [elpa] externals/osm cb191d426f 76/77: Version 0.2, ELPA Syncer, 2022/03/07
- [elpa] externals/osm 8e8e4583f5 74/77: More robust mouse dragging, ELPA Syncer, 2022/03/07
- [elpa] externals/osm d776cdb343 42/77: Fix melpa issues (See https://github.com/melpa/melpa/pull/7936), ELPA Syncer, 2022/03/07
- [elpa] externals/osm 5b82b32201 28/77: Add server descriptions,
ELPA Syncer <=
- [elpa] externals/osm 832bce78f8 72/77: Implement proper map dragging with the mouse, ELPA Syncer, 2022/03/07
- [elpa] externals/osm df844cd56b 30/77: Add osm-rename command, ELPA Syncer, 2022/03/07
- [elpa] externals/osm 458257fa1f 19/77: Improve tile loading, ELPA Syncer, 2022/03/07
- [elpa] externals/osm 699aae27b1 20/77: Rename osm-new to osm-home, ELPA Syncer, 2022/03/07
- [elpa] externals/osm d830691585 61/77: README: Remove wishlist, ELPA Syncer, 2022/03/07
- [elpa] externals/osm 25621bb80e 41/77: curl add --fail argument, ELPA Syncer, 2022/03/07
- [elpa] externals/osm b300e42d9f 68/77: Add transient pin, ELPA Syncer, 2022/03/07
- [elpa] externals/osm 28d3305bef 32/77: Improve handling of generated names, ELPA Syncer, 2022/03/07
- [elpa] externals/osm 833793ed6c 77/77: Use grid placeholder, ELPA Syncer, 2022/03/07
- [elpa] externals/osm adc8156a70 37/77: README: Add more examples, ELPA Syncer, 2022/03/07