                       (println (str (.-id socket) " has disconnected from " room-id))
                       (done)))))))))))
 
-  (s/defevent "sign-in" [room-id username] [a b]
+  (s/defevent "sign-in" [room-id username] [_ _]
     (println (.-id socket) "sign-in as" username "in" room-id)
     (.join socket room-id
       (fn []

                  (rooms/get-all-users room-id
                    #(.emit (.to io room-id) "users-list" (clj->js %1)))))))))))

  (s/defevent "chat-message" [room message] [a b]
    (println "A" a)
    (println "B" b)
    (println "Received chat-message in " room "from" (.-id socket)
             "containing:" message)
    (rooms/get-user-id-from-socket (.-id socket)
      (fn [user-id]
        (rooms/get-username room user-id
          (fn [username]
            (.emit (.to io room) "chat-message" #js {:username username
                                                     :message  message}))))))

  (s/defevent "ready-to-start" [sound-id] [a b]
    (println "Received ready-to-start signal for" sound-id
             "from" (.-id socket))
    (letfn [(convert-position [track-position-info]

                    (if-not (empty? users)
                      (.emit (.to io room-id) "users-list" (clj->js users))))))))))))

  (s/defevent "disconnect" [] [_ _]
    (rooms/disconnect (.-id socket)
      (fn [room-id]
        (if-not (nil? room-id)
