Merge branch 'add_music'

src/play_clj/core.clj

@@ -5,7 +5,7 @@
             [play-clj.utils :as u])
   (:import [com.badlogic.gdx Application Audio Files Game Gdx Graphics Input
             InputMultiplexer InputProcessor Net Preferences Screen]
-           [com.badlogic.gdx.audio Sound]
+           [com.badlogic.gdx.audio Sound Music]
            [com.badlogic.gdx.assets AssetManager]
            [com.badlogic.gdx.assets.loaders AsynchronousAssetLoader
             ParticleEffectLoader]

src/play_clj/core_basics.clj

@@ -169,3 +169,30 @@
   [object k & options]
   `(let [^Sound object# ~object]
      (u/call! object# ~k ~@options)))
+
+
+(defn music*
+  [path]
+  (let [^FileHandle fh (if (string? path)
+                         (files! :internal path)
+                         path)]
+    (or (u/load-asset (.path fh) Music)
+        (audio! :new-music fh))))
+
+(defmacro music
+  "Returns a [Sound](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/audio/Sound.html).
+
+    (sound \"playerhurt.wav\")
+    (sound \"playerhurt.wav\" :play)"
+  [path & options]
+  `(let [^Music object# (music* ~path)]
+     (u/calls! object# ~@options)))
+
+(defmacro music!
+  "Calls a single method on a `sound`.
+
+    (sound! object :play)
+    (sound! object :dispose)"
+  [object k & options]
+  `(let [^Music object# ~object]
+     (u/call! object# ~k ~@options)))