Set max bounds

Author: ahmed-machine

src/howfar/map/core.cljs

@@ -34,15 +34,25 @@
                          :iconSize [w h]
                          :iconAnchor [(/ w 2) (/ h 2)]}))))
 
+;; Default bounds covering NYC metro area isochrone extent (with padding)
+(def default-max-bounds
+  {:south 39.5 :west -76
+   :north 42 :east -71.75})
+
 (defn create-map
   "Initialize Leaflet map"
   [element-id]
   (let [Map (.-Map L)
         TileLayer (.-TileLayer L)
+        {:keys [south west north east]} default-max-bounds
         map-instance (new Map element-id #js {:center #js [40.7128 -74.0060]
                                               :zoom 12
+                                              :minZoom 8
                                               :zoomControl true
-                                              :clickTolerance 10})]
+                                              :clickTolerance 10
+                                              :maxBoundsViscosity 1.0
+                                              :maxBounds #js [#js [south west]
+                                                              #js [north east]]})]
 
     ;; Add tile layer
     (.addTo (new TileLayer tile-layer-url