From 97cf2e26fef7310cc84e9ebb3f2735ed6abce037 Mon Sep 17 00:00:00 2001 From: Daniel Mendler Date: Tue, 23 Dec 2025 01:33:18 +0100 Subject: Uppercase selections --- osm.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/osm.el b/osm.el index 69f0f8f..ba9ed48 100644 --- a/osm.el +++ b/osm.el @@ -1788,10 +1788,10 @@ See `osm-search-server' and `osm-search-language' for customization." (from (osm--search-select from-name nil)) (to-name (osm--search-read "Route to: ")) (to (osm--search-select to-name nil)) - (by (completing-read "Go by: " '("car" "bike" "foot") nil t nil t)) + (by (completing-read "Go by: " '("Car" "Bike" "Foot") nil t nil t)) (data (osm--fetch-json (format-spec osm-route-server - `((?b . ,by) + `((?b . ,(downcase by)) (?x . ,(caddr from)) (?y . ,(cadr from)) (?X . ,(caddr to)) (?Y . ,(cadr to)))))) (route (car (alist-get 'routes data))) -- cgit v1.0