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]
|
||||
|
||||
@@ -1,5 +1,7 @@
|
||||
(ns advent.version
|
||||
(:gen-class))
|
||||
|
||||
(def version-override nil)
|
||||
|
||||
(defn version []
|
||||
(-> (eval 'advent.version) .getPackage .getImplementationVersion))
|
||||
(or version-override (-> (eval 'advent.version) .getPackage .getImplementationVersion)))
|
||||
|
||||
Reference in New Issue
Block a user