mirror of
https://github.com/penpot/penpot.git
synced 2025-02-24 15:56:11 -05:00
Remove unused hierarchy from geom ns.
This commit is contained in:
parent
69e5ad7a8a
commit
4fff0e9c6c
1 changed files with 0 additions and 15 deletions
|
@ -10,21 +10,6 @@
|
||||||
[uxbox.util.math :as mth]
|
[uxbox.util.math :as mth]
|
||||||
[uxbox.main.state :as st]))
|
[uxbox.main.state :as st]))
|
||||||
|
|
||||||
;; --- Types
|
|
||||||
|
|
||||||
(def +hierarchy+
|
|
||||||
(-> (make-hierarchy)
|
|
||||||
(derive ::rect ::shape)
|
|
||||||
(derive :icon ::rect)
|
|
||||||
(derive :rect ::rect)
|
|
||||||
(derive :circle ::shape)
|
|
||||||
(derive :text ::rect)
|
|
||||||
(derive :group ::rect)))
|
|
||||||
|
|
||||||
(defn shape?
|
|
||||||
[type]
|
|
||||||
(isa? +hierarchy+ type ::shape))
|
|
||||||
|
|
||||||
;; --- Relative Movement
|
;; --- Relative Movement
|
||||||
|
|
||||||
(declare move-rect)
|
(declare move-rect)
|
||||||
|
|
Loading…
Add table
Reference in a new issue