Add methods and clean up

2014-01-06 00:27:57 -05:00
parent 8e0fdc8ed4
commit a848ebac32
3 changed files with 12 additions and 14 deletions
--- a/src/play_clj/core_ui.clj
+++ b/src/play_clj/core_ui.clj
@@ -12,4 +12,6 @@

 (defn label
  [text color]
-  (create-actor (Label. text (Label$LabelStyle. (BitmapFont.) color))))
+  (->> (Label$LabelStyle. (BitmapFont.) color)
+       (Label. text)
+       create-actor))