starting to make music work for osx.

2015-09-12 22:27:59 -07:00
parent 2c7f16aa04
commit 0ca5dc3fc5
25 changed files with 14 additions and 11 deletions
--- a/desktop/src-common/advent/utils.clj
+++ b/desktop/src-common/advent/utils.clj
@@ -222,7 +222,10 @@
  (music! snd :stop))

 (defn make-music [r]
-  (doto (music r) (music! :set-looping true)))
+  (try
+    (doto (music r) (music! :set-looping true))
+    (catch Exception _
+      (doto (music (str/replace r #"\.ogg" ".mp3")) (music! :set-looping true)))))