Add absolute mouse position stream.

src/uxbox/ui/workspace/base.cljs

@@ -89,7 +89,12 @@
 (defonce mouse-s
   (->> mouse-b
        (rx/filter #(= (:id %) (:id @page-l)))
-       (rx/map :coords)))
+       (rx/map :canvas-coords)))
+
+(defonce mouse-absolute-s
+  (->> mouse-b
+       (rx/filter #(= (:id %) (:id @page-l)))
+       (rx/map :window-coords)))
 
 (defn- coords-delta
   [[old new]]

src/uxbox/ui/workspace/canvas.cljs

@@ -112,7 +112,8 @@
             (let [x (.-clientX event)
                   y (.-clientY event)
                   event {:id (:id page)
-                         :coords [(- x offset-x)
+                         :window-coords [x y]
+                         :canvas-coords [(- x offset-x)
                                          (- y offset-y)]}]
               (rx/push! wb/mouse-b event)))]
     (let [[page] (:rum/props own)