   (message "Disconnected: %s" (floo-get-item req 'reason)))
 
 (defun floobits-event-room_info (req)
+  (setq floobits-room (floo-get-item req 'name))
   (message "Successfully joined room %s" floobits-room)
   (setq floobits-share-dir (floo-get-item req 'project_path))
   (message "project path is %s" floobits-share-dir)

      (progn
        (floobits-destroy-connection)
        (setq floobits-room room)
        (setq floobits-room-owner owner)
        (floobits-create-connection)
        (let ((req (list
          (cons 'username floobits-username)
          (cons 'room floobits-room)
          (cons 'secret floobits-secret)
          (cons 'room_owner floobits-room-owner))))
          (floobits-send-to-agent req 'join_room)))
      (message "Invalid url! I should look like: https://floobits.com/r/owner/room/"))))


    (cons 'secret floobits-secret)
    (cons 'dir_to_share dir-to-share))))
    (floobits-send-to-agent req 'share_dir)))

(defun floobits-event-error (req)
  (message-box (floo-get-item req 'msg)))

(defun floobits-join-room (floourl)
  "Join a floobits room"
