working on ios.

2015-09-12 23:11:18 -07:00
parent 0ca5dc3fc5
commit 43152747bc
16 changed files with 49 additions and 42 deletions
--- a/desktop/src-common/advent/utils.clj
+++ b/desktop/src-common/advent/utils.clj
@@ -225,7 +225,13 @@
  (try
    (doto (music r) (music! :set-looping true))
    (catch Exception _
-      (doto (music (str/replace r #"\.ogg" ".mp3")) (music! :set-looping true)))))
+      (doto (music (str r ".mp3")) (music! :set-looping true)))))
+
+(defn load-sound [f]
+  (try 
+    (sound (str f ".mp3"))
+    (catch Exception _
+      (sound (str f ".mp3")))))