Move uxbox.ui.dom to uxbox.util.dom.

src/uxbox/ui/dashboard.cljs

@@ -5,7 +5,7 @@
             [uxbox.rstore :as rs]
             [uxbox.ui.icons :as i]
             [uxbox.ui.mixins :as mx]
-            [uxbox.ui.dom :as dom]
+            [uxbox.util.dom :as dom]
             [uxbox.data.dashboard :as dd]
             [uxbox.ui.library-bar :as ui.library-bar]
             [uxbox.ui.dashboard.header :refer (header)]

src/uxbox/ui/dashboard/colors.cljs

@@ -15,7 +15,7 @@
             [uxbox.ui.form :as form]
             [uxbox.ui.lightbox :as lightbox]
             [uxbox.ui.colorpicker :refer (colorpicker)]
-            [uxbox.ui.dom :as dom]
+            [uxbox.util.dom :as dom]
             [uxbox.ui.mixins :as mx]))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

src/uxbox/ui/dashboard/elements.cljs

@@ -4,7 +4,7 @@
             ;; [uxbox.ui.library-bar :as ui.library-bar]
             [uxbox.ui.icons :as i]
             [uxbox.ui.lightbox :as lightbox]
-            [uxbox.ui.dom :as dom]
+            [uxbox.util.dom :as dom]
             [uxbox.ui.mixins :as mx]))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

src/uxbox/ui/dashboard/icons.cljs

@@ -13,7 +13,7 @@
             [uxbox.ui.icons :as i]
             [uxbox.ui.form :as form]
             [uxbox.ui.lightbox :as lightbox]
-            [uxbox.ui.dom :as dom]
+            [uxbox.util.dom :as dom]
             [uxbox.ui.mixins :as mx]))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

src/uxbox/ui/dashboard/projects.cljs

@@ -10,7 +10,7 @@
             [uxbox.data.projects :as dp]
             [uxbox.data.workspace :as dw]
             [uxbox.ui.icons :as i]
-            [uxbox.ui.dom :as dom]
+            [uxbox.util.dom :as dom]
             [uxbox.ui.dashboard.header :as dsh.header]
             [uxbox.ui.lightbox :as lightbox]
             [uxbox.ui.mixins :as mx]))

src/uxbox/ui/dom.cljs

@@ -1,22 +0,0 @@
-(ns uxbox.ui.dom
-  (:require [goog.dom :as dom]))
-
-(defn get-element-by-class
-  [^string classname]
-  (dom/getElementByClass classname))
-
-(defn stop-propagation
-  [e]
-  (.stopPropagation e))
-
-(defn prevent-default
-  [e]
-  (.preventDefault e))
-
-(defn event->inner-text
-  [e]
-  (.-innerText (.-target e)))
-
-(defn event->value
-  [e]
-  (.-value (.-target e)))

src/uxbox/ui/navigation.cljs

@@ -1,7 +1,7 @@
 (ns uxbox.ui.navigation
   (:require [sablono.core :as html :refer-macros [html]]
             [goog.events :as events]
-            [uxbox.ui.dom :as dom]))
+            [uxbox.util.dom :as dom]))
 
 (defn link
   "Given an href and a component, return a link component that will navigate

src/uxbox/ui/workspace/canvas.cljs

@@ -14,7 +14,7 @@
             [uxbox.data.projects :as dp]
             [uxbox.data.workspace :as dw]
             [uxbox.ui.mixins :as mx]
-            [uxbox.ui.dom :as dom]
+            [uxbox.util.dom :as dom]
             [uxbox.ui.keyboard :as kbd]
             [uxbox.ui.workspace.base :as wb]
             [uxbox.ui.workspace.canvas.movement]

src/uxbox/ui/workspace/canvas/draw.cljs

@@ -10,7 +10,7 @@
             [uxbox.data.workspace :as dw]
             [uxbox.ui.workspace.base :as wb]
             [uxbox.ui.mixins :as mx]
-            [uxbox.ui.dom :as dom]))
+            [uxbox.util.dom :as dom]))
 
 (defonce +drawing-shape+ (atom nil))
 (defonce +drawing-position+ (atom nil))

src/uxbox/ui/workspace/canvas/ruler.cljs

@@ -11,7 +11,7 @@
             [uxbox.util.math :as mth]
             [uxbox.ui.workspace.base :as wb]
             [uxbox.ui.mixins :as mx]
-            [uxbox.ui.dom :as dom]))
+            [uxbox.util.dom :as dom]))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Component

src/uxbox/ui/workspace/canvas/selection.cljs

@@ -8,7 +8,7 @@
             [uxbox.shapes :as sh]
             [uxbox.ui.workspace.base :as wb]
             [uxbox.ui.mixins :as mx]
-            [uxbox.ui.dom :as dom]))
+            [uxbox.util.dom :as dom]))
 
 (def ^:private selection-circle-style
   {:fillOpacity "0.5"

src/uxbox/ui/workspace/canvas/selrect.cljs

@@ -11,7 +11,7 @@
             [uxbox.data.workspace :as dw]
             [uxbox.ui.workspace.base :as wb]
             [uxbox.ui.mixins :as mx]
-            [uxbox.ui.dom :as dom]))
+            [uxbox.util.dom :as dom]))
 
 (defonce selrect-pos (atom nil))
 

src/uxbox/ui/workspace/colorpalette.cljs

@@ -12,7 +12,7 @@
             [uxbox.util.color :refer (hex->rgb)]
             [uxbox.ui.workspace.base :as wb]
             [uxbox.ui.icons :as i]
-            [uxbox.ui.dom :as dom]
+            [uxbox.util.dom :as dom]
             [uxbox.ui.mixins :as mx]))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

src/uxbox/ui/workspace/options.cljs

@@ -7,7 +7,7 @@
             [uxbox.data.workspace :as dw]
             [uxbox.ui.icons :as i]
             [uxbox.ui.mixins :as mx]
-            [uxbox.ui.dom :as dom]
+            [uxbox.util.dom :as dom]
             [uxbox.ui.colorpicker :refer (colorpicker)]
             [uxbox.ui.workspace.recent-colors :refer (recent-colors)]
             [uxbox.ui.workspace.base :as wb]

src/uxbox/ui/workspace/pagesmngr.cljs

@@ -9,7 +9,7 @@
             [uxbox.ui.keyboard :as k]
             [uxbox.ui.icons :as i]
             [uxbox.ui.mixins :as mx]
-            [uxbox.ui.dom :as dom]))
+            [uxbox.util.dom :as dom]))
 
 (defn- page-item-render
   [own parent page numpages]

src/uxbox/ui/workspace/recent_colors.cljs

@@ -8,7 +8,7 @@
             [uxbox.data.workspace :as dw]
             [uxbox.ui.icons :as i]
             [uxbox.ui.mixins :as mx]
-            [uxbox.ui.dom :as dom]
+            [uxbox.util.dom :as dom]
             [uxbox.ui.workspace.base :as wb]))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

src/uxbox/ui/workspace/rules.cljs

@@ -4,7 +4,7 @@
             [cuerdas.core :as str]
             [beicon.core :as rx]
             [uxbox.state :as s]
-            [uxbox.ui.dom :as dom]
+            [uxbox.util.dom :as dom]
             [uxbox.ui.workspace.base :as wb]
             [uxbox.ui.mixins :as mx]))
 

src/uxbox/ui/workspace/toolboxes/drawtools.cljs

@@ -13,7 +13,7 @@
             [uxbox.ui.workspace.base :as wb]
             [uxbox.ui.icons :as i]
             [uxbox.ui.mixins :as mx]
-            [uxbox.ui.dom :as dom]))
+            [uxbox.util.dom :as dom]))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Lenses

src/uxbox/ui/workspace/toolboxes/icons.cljs

@@ -12,7 +12,7 @@
             [uxbox.ui.workspace.base :as wb]
             [uxbox.ui.icons :as i]
             [uxbox.ui.mixins :as mx]
-            [uxbox.ui.dom :as dom]))
+            [uxbox.util.dom :as dom]))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Lenses

src/uxbox/ui/workspace/toolboxes/layers.cljs

@@ -14,7 +14,7 @@
             [uxbox.ui.workspace.base :as wb]
             [uxbox.ui.icons :as i]
             [uxbox.ui.mixins :as mx]
-            [uxbox.ui.dom :as dom])
+            [uxbox.util.dom :as dom])
   (:import goog.events.EventType))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

src/uxbox/util/dom.cljs

@@ -0,0 +1,39 @@
+(ns uxbox.util.dom
+  (:require [goog.dom :as dom]))
+
+(defn get-element-by-class
+  [^string classname]
+  (dom/getElementByClass classname))
+
+(defn stop-propagation
+  [e]
+  (.stopPropagation e))
+
+(defn prevent-default
+  [e]
+  (.preventDefault e))
+
+(defn event->inner-text
+  [e]
+  (.-innerText (.-target e)))
+
+(defn event->value
+  [e]
+  (.-value (.-target e)))
+
+(defn event->target
+  [e]
+  (.-target e))
+
+(defn event->data-transfer
+  [e]
+  (.-dataTransfer e))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Drag & Drop helpers
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+;; (defn set-effect-allowed!
+;;   [e effect]
+;;   (let [dt (.-dataTransfer e)]
+;;     (set!