⚡ Add performance oriented refactor for mouse streams

frontend/src/app/util/mouse.cljs

@@ -0,0 +1,63 @@
+;; This Source Code Form is subject to the terms of the Mozilla Public
+;; License, v. 2.0. If a copy of the MPL was not distributed with this
+;; file, You can obtain one at http://mozilla.org/MPL/2.0/.
+;;
+;; Copyright (c) KALEIDOS INC
+
+(ns app.util.mouse)
+
+(defrecord MouseEvent [type ctrl shift alt meta])
+(defrecord PointerEvent [source pt ctrl shift alt meta])
+(defrecord ScrollEvent [point])
+
+(defn mouse-event?
+  [v]
+  (instance? MouseEvent v))
+
+(defn pointer-event?
+  [v]
+  (instance? PointerEvent v))
+
+(defn scroll-event?
+  [v]
+  (instance? ScrollEvent v))
+
+(defn mouse-down-event?
+  [^MouseEvent v]
+  (= :down (.-type v)))
+
+(defn mouse-up-event?
+  [^MouseEvent v]
+  (= :up (.-type v)))
+
+(defn mouse-click-event?
+  [^MouseEvent v]
+  (= :click (.-type v)))
+
+(defn mouse-double-click-event?
+  [^MouseEvent v]
+  (= :double-click (.-type v)))
+
+(defn get-pointer-source
+  [^PointerEvent ev]
+  (.-source ev))
+
+(defn get-pointer-position
+  [^PointerEvent ev]
+  (.-pt ev))
+
+(defn get-pointer-ctrl-mod
+  [^PointerEvent ev]
+  (.-ctrl ev))
+
+(defn get-pointer-meta-mod
+  [^PointerEvent ev]
+  (.-meta ev))
+
+(defn get-pointer-alt-mod
+  [^PointerEvent ev]
+  (.-meta ev))
+
+(defn get-pointer-shift-mod
+  [^PointerEvent ev]
+  (.-meta ev))