override tweaks.

desktop/src-common/advent/utils.clj

@@ -98,3 +98,16 @@
                          v (vector-2 0 0)
                          a (catmull-rom-spline! (:path entity) :value-at v pos-f)]
                      (assoc entity :x (vector-2! v :x) :y (vector-2! v :y)))))))
+
+(defn find-override [entities [x y]]
+  (first (filter #(and ((:mouse-in? %) entities x y)
+                       (:cursor %))
+                 (get-in entities [:room :interactions]))))
+
+(defn update-override [entities]
+  (if (get-in entities [:state :active?])
+    (let [last-pos (get-in entities [:cursor :last-pos])]
+      (if-let [mouse-override (find-override entities last-pos)]
+        (assoc-in entities [:cursor :override] (:cursor mouse-override))
+        (assoc-in entities [:cursor :override] nil)))
+    entities))