This commit is contained in:
Bryce Covert
2017-05-17 19:25:19 -07:00
parent 8695a8e408
commit 84144efef9
98 changed files with 13 additions and 5 deletions

View File

@@ -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]

View File

@@ -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)))