[elpa] externals/osm e39aaf48e1 6/7: Configurable track style

[ELPA Syncer]

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

    Configurable track style
---
 osm.el | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/osm.el b/osm.el
index c84f74c6f0..0cf24384f3 100644
--- a/osm.el
+++ b/osm.el
@@ -105,6 +105,11 @@
   "Colors of pins."
   :type '(alist :key-type symbol :value-type (list string string)))
 
+(defcustom osm-track-style
+  
"stroke:#00A;stroke-width:10;stroke-linejoin:round;stroke-linecap:round;opacity:0.4;"
+  "SVG style used to draw tracks."
+  :type'string)
+
 (defcustom osm-home
   (let ((lat (bound-and-true-p calendar-latitude))
         (lon (bound-and-true-p calendar-longitude)))
@@ -730,7 +735,8 @@ xmlns='http://www.w3.org/2000/svg' 
xmlns:xlink='http://www.w3.org/1999/xlink'>
                           (when-let (track (cdr overlays))
                             (let (last)
                               (format
-                               "<path stroke='#00A' stroke-width='10' 
stroke-linejoin='round' stroke-linecap='round' opacity='0.4' fill='none' 
d='%s'/>"
+                               "<path style='%s' d='%s'/>"
+                               osm-track-style
                                (mapconcat
                                 (pcase-lambda (`(,beg . ,end))
                                   (prog1