Revert "remove DomElement schema"

This reverts commit aeca4dd.
repath-project · Nov 24, 2024 · e9f3b21 · e9f3b21
1 parent aeca4dd
commit e9f3b21
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/src/renderer/utils/bounds.cljs b/src/renderer/utils/bounds.cljs
@@ -3,6 +3,7 @@
    [clojure.core.matrix :as mat]
    [malli.core :as m]
    [renderer.snap.db :refer [SnapOptions]]
+   [renderer.utils.dom :refer [DomElement]]
    [renderer.utils.math :refer [Vec2D]]))
 
 (def Bounds
@@ -13,7 +14,7 @@
    [number? {:title "right"}]
    [number? {:title "bottom"}]])
 
-(m/=> dom-el->bounds [:-> any? [:maybe Bounds]])
+(m/=> dom-el->bounds [:-> DomElement [:maybe Bounds]])
 (defn dom-el->bounds
   "Experimental way of getting the bounds of unknown or complicated elements
    using the getBBox method.

diff --git a/src/renderer/utils/dom.cljs b/src/renderer/utils/dom.cljs
@@ -1,5 +1,8 @@
 (ns renderer.utils.dom)
 
+(def DomElement
+  [:fn (fn [x] (instance? js/Element x))])
+
 (defn prevent-default!
   [e]
   (.preventDefault e))