Added ability to do custom sorting.

desktop/src-common/advent/screens/scene.clj

@@ -202,6 +202,9 @@
 (defn play-sound [snd]
   (music! snd :play))
 
+(defn stop-sound [snd]
+  (music! snd :stop))
+
 (defn make-music [r]
   (doto (music r) (music! :set-looping true)))
 
@@ -269,6 +272,13 @@
   :on-resize (fn [screen entities]
                (size! screen 320 240))
 
+  :on-hide (fn [screen entities]
+             (doall (->> (get-in entities [:room :entities :musics])
+                         vals
+                         (map identity)
+                         (map stop-sound)
+                         )))
+
   :on-mouse-moved
   (fn [screen [entities]]
     (when (get-in entities [:state :active?])