0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-02-24 07:46:13 -05:00

Remove unused hierarchy from geom ns.

This commit is contained in:
Andrey Antukh 2016-10-25 22:15:12 +02:00
parent 69e5ad7a8a
commit 4fff0e9c6c
No known key found for this signature in database
GPG key ID: 4DFEBCB8316A8B95

View file

@ -10,21 +10,6 @@
[uxbox.util.math :as mth]
[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
(declare move-rect)