branch: externals/osm
commit 97cf2e26fef7310cc84e9ebb3f2735ed6abce037
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
Uppercase selections
---
osm.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/osm.el b/osm.el
index 69f0f8f1a0..ba9ed48aa1 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)))
