progress on getting ios version working well.

2017-02-19 18:31:11 -08:00
parent 00a90e2313
commit 9c7946384e
7 changed files with 103 additions and 41 deletions
--- a/desktop/src-common/advent/utils.clj
+++ b/desktop/src-common/advent/utils.clj
@@ -388,13 +388,18 @@

 (defn make-music [r]
  (try
-    (doto (music r) (music! :set-looping true))
+    (if mobile?
+      (doto (music (str r ".mp3")) (music! :set-looping true))
+      (doto (music r) (music! :set-looping true)))
+    
    (catch Exception _
      (doto (music (str r ".mp3")) (music! :set-looping true)))))

 (defn load-sound [f]
  (try
-    (sound f)
+    (if mobile?
+      (sound (str f ".mp3"))
+      (sound f))
    (catch Exception e
      (log/info e)
      (sound (str f ".mp3")))))