 
 (defun floobits-share-dir (dir-to-share)
   "Create a room and populate it with a directory"
-  (interactive "P\nGGive me a directory: ")
+  (interactive "GGive me a directory: ")
   (floobits-load-floorc)
   (floobits-create-connection)
   (let ((req (list

  (message "Disconnected: %s" (floo-get-item req 'reason)))

(defun floobits-event-room_info (req)
  (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)
        (floobits-create-connection)
        (let ((req (list
          (cons 'username floobits-username)
          (cons 'room floobits-room)
          (cons 'secret floobits-secret)
          (cons 'room_owner owner))))
          (floobits-send-to-agent req 'join_room)))
      (message "Invalid url! I should look like: https://floobits.com/r/owner/room/"))))

