🐛 Don't navigate when no frame/index found on viewer.

common/app/common/data.cljc

@@ -87,7 +87,7 @@
 
 (defn index-of-pred
   [coll pred]
-  (loop [c (first coll)
+  (loop [c    (first coll)
          coll (rest coll)
          index 0]
     (if (nil? c)

frontend/src/app/main/data/viewer.cljs

@@ -322,7 +322,8 @@
     (watch [_ state stream]
       (let [frames  (get-in state [:viewer-data :frames])
             index   (d/index-of-pred frames #(= (:id %) frame-id))]
-        (rx/of (go-to-frame-by-index index))))))
+        (when index
+          (rx/of (go-to-frame-by-index index)))))))
 
 (defn set-current-frame [frame-id]
   (ptk/reify ::current-frame

frontend/src/app/main/ui/viewer/shapes.cljs

@@ -38,6 +38,7 @@
       :navigate
       (let [frame-id (:destination interaction)]
         (st/emit! (dv/go-to-frame frame-id)))
+
       nil)))
 
 (defn generic-wrapper-factory