close.

desktop/src-common/advent/utils.clj

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

desktop/src-common/advent/version.clj

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