Make add! nicer to use directly

This commit is contained in:
oakes
2014-01-12 16:58:34 -05:00
parent f6afda794b
commit bbf85396ad

View File

@@ -104,16 +104,14 @@
nil))) nil)))
(defn add! (defn add!
[group children] [group & children]
(doseq [child children] (doseq [child children]
(add-to-group! [group child])) (add-to-group! [group child]))
group) group)
(defn ^:private create-group (defn ^:private create-group
[^WidgetGroup group children] [^WidgetGroup group children]
(-> group (apply add! (u/create-entity group) children))
u/create-entity
(add! children)))
; widgets ; widgets