[elpa] externals/osm 5f5f6a6a61 1/3: osm-server-list: Add :ext server property

[ELPA Syncer]

branch: externals/osm
commit 5f5f6a6a618f532a4112fa38f6dd6f0f56bd682b
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    osm-server-list: Add :ext server property
---
 osm.el | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/osm.el b/osm.el
index bc1cd3ff12..41d28d9153 100644
--- a/osm.el
+++ b/osm.el
@@ -152,6 +152,7 @@ Allowed keys:
   :copyright       Copyright information
   :group           Name of server groups for related servers
   :url             Url with placeholders
+  :ext             File name extension
   :min-zoom        Minimum zoom level
   :max-zoom        Maximum zoom level
   :download-batch  Number of tiles downloaded via a single connection
@@ -540,9 +541,10 @@ Local per buffer since the overlays depend on the zoom 
level.")
    (symbol-name osm-server)
    (format "%d-%d-%d.%s"
            zoom x y
-           (file-name-extension
-            (url-file-nondirectory
-             (osm--server-property :url))))))
+           (or (osm--server-property :ext)
+               (file-name-extension
+                (url-file-nondirectory
+                 (osm--server-property :url)))))))
 
 (defun osm--enqueue-download (x y)
   "Enqueue tile X/Y for download."
@@ -1796,7 +1798,7 @@ If prefix ARG is given, store url as Elisp expression."
 
 (cl-defun osm-add-server (server
                           &rest properties
-                          &key name description group url max-connections
+                          &key name description group url ext max-connections
                           max-zoom min-zoom download-batch subdomains 
copyright)
   "Add SERVER with PROPERTIES to `osm-server-list'.
 The properties are checked as keyword arguments.  See