close.
This commit is contained in:
@@ -415,12 +415,15 @@
|
||||
(music! snd :stop))
|
||||
|
||||
(defn make-music [r]
|
||||
(log/info "making music from" r)
|
||||
(try
|
||||
(if mobile?
|
||||
(doto (music (str r ".mp3")) (music! :set-looping true))
|
||||
(doto (music r) (music! :set-looping true)))
|
||||
|
||||
(catch Exception _
|
||||
(catch Exception x
|
||||
(log/warn "music making error" x)
|
||||
|
||||
(doto (music (str r ".mp3")) (music! :set-looping true)))))
|
||||
|
||||
(defn load-sound [f]
|
||||
|
||||
Reference in New Issue
Block a user