From bbf85396ad2795a0d027e6b1849af5abc7f4d4b4 Mon Sep 17 00:00:00 2001 From: oakes Date: Sun, 12 Jan 2014 16:58:34 -0500 Subject: [PATCH] Make add! nicer to use directly --- src/play_clj/ui.clj | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/src/play_clj/ui.clj b/src/play_clj/ui.clj index 6d6ee25..40ac81f 100644 --- a/src/play_clj/ui.clj +++ b/src/play_clj/ui.clj @@ -104,16 +104,14 @@ nil))) (defn add! - [group children] + [group & children] (doseq [child children] (add-to-group! [group child])) group) (defn ^:private create-group [^WidgetGroup group children] - (-> group - u/create-entity - (add! children))) + (apply add! (u/create-entity group) children)) ; widgets