     false))
 
 (defn upload-file [file]
+  (swap! app-state assoc :num-of-uploads (+ 1 (:num-of-uploads @app-state)))
+
   (let [stream (.createStream js/ss)
         blob-stream (.createBlobReadStream js/ss file)]
     (println "File uploading!")

                          :current-track-id nil
                          :current-sound nil
                          :ball-being-dragged? false
                          :upload-queue []}))

(enable-console-print!)


(defonce room-id (.getAttribute (. js/document (getElementById "roomid")) "data"))
(defonce socket (js/io))
(defonce current-sound-id "current-song")
(defonce default-upload-slots 1)
(defonce default-download-slots 1)
(defonce app-state (atom {:signed-in? false
                          :messages []
                          :message-received? false
