Add type hints and rename function

src/play_clj/core_2d.clj

@@ -74,7 +74,7 @@
                (u/gdx-static-field :graphics :g2d :Animation
                                    ~(or (first args) :normal))))
 
-(defn animation-texture
+(defn animation->texture
   ([{:keys [total-time]} ^Animation animation]
     (u/create-entity (.getKeyFrame animation total-time true)))
   ([{:keys [total-time]} ^Animation animation is-looping?]

src/play_clj/core_global.clj

@@ -134,4 +134,5 @@
 
 (defn ^:private add-input!
   [^InputProcessor p]
-  (.addProcessor ^InputMultiplexer (input! :get-input-processor) p))
+  (let [^InputMultiplexer multi (input! :get-input-processor)]
+    (.addProcessor multi p)))

src/play_clj/ui.clj

@@ -48,7 +48,7 @@
     (map? arg)
     (Image. ^TextureRegion (:object arg))
     (string? arg)
-    (Image. (Texture. arg))
+    (Image. (Texture. ^String arg))
     :else
     (Image. arg)))