🎉 Improved reusability of drawing functions

frontend/src/app/util/data.cljs

@@ -118,6 +118,33 @@
          (into {}))
     m1))
 
+(defn with-next
+  "Given a collectin will return a new collection where each element
+  is paried with the next item in the collection
+  (with-next (range 5)) => [[0 1] [1 2] [2 3] [3 4] [4 nil]"
+  [coll]
+  (map vector
+       coll
+       (concat [] (rest coll) [nil])))
+
+(defn with-prev
+  "Given a collectin will return a new collection where each element
+  is paried with the previous item in the collection
+  (with-prev (range 5)) => [[0 nil] [1 0] [2 1] [3 2] [4 3]"
+  [coll]
+  (map vector
+       coll
+       (concat [nil] coll)))
+
+(defn with-prev-next
+  "Given a collection will return a new collection where every item is paired
+  with the previous and the next item of a collection
+  (with-prev-next (range 5)) => [[0 nil 1] [1 0 2] [2 1 3] [3 2 4] [4 3 nil]"
+  [coll]
+  (map vector
+       coll
+       (concat [nil] coll)
+       (concat [] (rest coll) [nil])))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Numbers Parsing
@@ -221,3 +248,4 @@
 ;;                        nil
 ;;                        (throw e#)))))))
 
+

frontend/src/app/util/geom/snap_points.cljs

@@ -30,7 +30,6 @@
 (defn shape-snap-points
   [shape]
   (let [shape (gsh/transform-shape shape)]
-
     (case (:type shape)
       :frame (-> shape :selrect frame-snap-points)
       (:path :curve) (-> shape :selrect selrect-snap-points)