audio-play! returns the file id.

The file id is now a randomized number

audio-placed-player.rkt

@@ -10,6 +10,8 @@
 
 (provide placed-player)
 
+(define get-current-seconds current-seconds)
+
 (define (eq-seconds? s1 s2)
   (let ((s1* (inexact->exact (round s1)))
         (s2* (inexact->exact (round s2))))
@@ -316,8 +318,10 @@
         (when (thread? play-thread) (thread-wait play-thread))
         (dbg-sound "oke done")
         )
+
       
-      (set! current-file-id (+ current-file-id 1))
+      ;(set! current-file-id (+ current-file-id 1))
+      (set! current-file-id (+ (* (get-current-seconds) 10000) (random 1000)))
       (let ((f (build-path file)))
         (set! files-playing (cons
                              (cons current-file-id f)
@@ -328,7 +332,8 @@
       
       (when (eq? player-state 'stopped)
         (set! player-state 'playing))
-      (audio-read-worker ao-dec current-file-id))
+      (audio-read-worker ao-dec current-file-id)
+      current-file-id)
 
     (define (pause paused)
       (when (or (eq? player-state 'paused)
@@ -435,8 +440,8 @@
                   ((eq? cmd 'open)
                    (do-rpc 
                     (let ((file (cadr data)))
-                      (start file)
-                      '(ok))))
+                      (let ((id (start file)))
+                        (list (list 'ok id))))))
                   ((eq? cmd 'seek)
                    (do-rpc 
                     (let ((percentage (cadr data)))