Detail leaflet viewer (#58)

Author: larsen

notebooks/rando-planner.clj

@@ -57,7 +57,7 @@
 ;; strategies for covering the distance effectively.
 
 
-;; This page has been composed with Clerk and rando-planner
+;; This page was composed with Clerk and rando-planner
 
 ;; You can see the code for the project [on
 ;; github.com](https://github.com/larsen/rando-planner).
@@ -239,6 +239,12 @@ be morale-crushing."]])
  {:nextjournal/width :full}
  (clerk/with-viewer leaflet/leaflet-gpx-viewer equally-split-plan-with-pauses))
 
+;; Additionally, you can focus the map on the portion of map
+;; corresponding to a single day
+
+(clerk/with-viewer leaflet/leaflet-gpx-viewer
+  (assoc equally-split-plan-with-pauses :focus-on "Second day"))
+
 ;; ## How plans are defined
 
 ;; Examining an example, we'll provide a more formal definition of

src/rando_planner/leaflet.clj

@@ -5,12 +5,18 @@
 
 (defn add-center-and-bounds [plan]
   (if (:gpx plan)
-    (let [points (gpx/points (:gpx plan))]
+    (let [points (gpx/points (:gpx plan))
+          grouped-by-day (plan/group-points-by-day plan)
+          points-to-focus-on (if (:focus-on plan)
+                               (get grouped-by-day (:focus-on plan))
+                               points)
+          center (gpx/center points-to-focus-on)
+          bounds (gpx/bounds points-to-focus-on)]
       (assoc plan
              :points points
-             :grouped-by-day (plan/group-points-by-day plan)
-             :center (gpx/center points)
-             :bounds (gpx/bounds points)))
+             :grouped-by-day (vals grouped-by-day)
+             :center center
+             :bounds bounds))
     plan))
 
 (defn add-plan-markers [plan]

src/rando_planner/plan.clj

@@ -98,14 +98,15 @@
 (defn group-points-by-day [plan]
   (let [points-with-cumulative-distance (gpx/with-cumulative-distance
                                           (gpx/points (:gpx plan)))]
-    (map (fn [d]
-           (filter #(and (>= (:cumulative-distance %)
-                             (:covered d))
-                         (< (:cumulative-distance %)
-                            (+ (:covered d)
-                               (:kilometers d))))
-                   points-with-cumulative-distance))
-         (daily-distance plan))))
+    (into {} (map (fn [d]
+                    [(:label d)
+                     (filter #(and (>= (:cumulative-distance %)
+                                       (:covered d))
+                                   (< (:cumulative-distance %)
+                                      (+ (:covered d)
+                                         (:kilometers d))))
+                             points-with-cumulative-distance)])
+                  (daily-distance plan)))))
 
 (defn daily-stats
   "Given a plan, it returns a list of dictionaries with info and
@@ -128,11 +129,11 @@
                                             gpx/with-cumulative-distance)
         daily-distance (daily-distance plan)
         points-at-end-of-days (for [dk daily-distance]
-                                   (first (filter (fn [p]
-                                                      (> (:cumulative-distance p)
-                                                         (+ (:covered dk)
-                                                            (:kilometers dk))))
-                                                  points-with-cumulative-distance)))
+                                (first (filter (fn [p]
+                                                 (> (:cumulative-distance p)
+                                                    (+ (:covered dk)
+                                                       (:kilometers dk))))
+                                               points-with-cumulative-distance)))
         daily-pauses (vec (map
                            (fn [pauses]
                              {:pauses pauses})