branch: externals/osm
commit 11a04bb5b95f10c9e77b3e55bab3485d8f5e5533
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
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)
