From 4fff0e9c6c5928d7c299da1cc144196301d36d1c Mon Sep 17 00:00:00 2001 From: Andrey Antukh Date: Tue, 25 Oct 2016 22:15:12 +0200 Subject: [PATCH] Remove unused hierarchy from geom ns. --- src/uxbox/main/geom.cljs | 15 --------------- 1 file changed, 15 deletions(-) diff --git a/src/uxbox/main/geom.cljs b/src/uxbox/main/geom.cljs index fdb3b0a4f..a720b19bf 100644 --- a/src/uxbox/main/geom.cljs +++ b/src/uxbox/main/geom.cljs @@ -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)