branch: externals/osm
commit 1225a9ef1ad0294ee88dca29d5acbece183fa2bf
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
Mark gpx track start with a pin
---
CHANGELOG.org | 1 +
osm.el | 2 ++
2 files changed, 3 insertions(+)
diff --git a/CHANGELOG.org b/CHANGELOG.org
index 41a2aff000..08f0b66ead 100644
--- a/CHANGELOG.org
+++ b/CHANGELOG.org
@@ -6,6 +6,7 @@
- Require Emacs 28.1.
- ~osm-server-list~: Add ~:ext~ server property.
+- Mark gpx track start with a pin.
* Version 1.4 (2024-07-24)
diff --git a/osm.el b/osm.el
index 2233446751..9113608b04 100644
--- a/osm.el
+++ b/osm.el
@@ -925,6 +925,8 @@ Local per buffer since the overlays depend on the zoom
level.")
(pcase-let ((`(,lat ,lon ,zoom) (bookmark-prop-get bm
'coordinates)))
(funcall fun 'osm-bookmark lat lon zoom (car bm))))
(dolist (file osm--gpx-files)
+ (when-let ((start (caaadr file)))
+ (funcall fun 'osm-track (car start) (cdr start) 10 (car file)))
(cl-loop for (lat lon name) in (cddr file) do
(funcall fun 'osm-poi lat lon 15 name)))
(cl-loop for (lat lon name) in osm--track do
