[elpa] externals/osm 11a04bb5b9 66/77: osm-server: Improve completion command

[ELPA Syncer]

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

    osm-server: Improve completion command
---
 osm.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/osm.el b/osm.el
index d522bc7d81..906c9314fb 100644
--- a/osm.el
+++ b/osm.el
@@ -852,7 +852,12 @@ MSG is a message prefix string."
 (defun osm-server (server)
   "Select tile SERVER."
   (interactive
-   (let* ((fmt #("%-20s %s" 6 8 (face font-lock-comment-face)))
+   (let* ((max-name (cl-loop for (_ . x) in osm-server-list
+                             maximize (length (plist-get x :name))))
+          (fmt (concat
+                (propertize (format "%%-%ds " max-name)
+                            'face 'font-lock-comment-face)
+                " %s"))
           (servers
            (mapcar
             (lambda (x)