       (progn
         (floobits-destroy-connection)
         (lexical-let* ((req (list
-          (cons 'username floobits-username)
           (cons 'workspace workspace)
-          (cons 'secret floobits-secret)
           (cons 'line_endings (floobits-get-line-endings))
           (cons 'workspace_owner owner)))
           (func (lambda () (floobits-send-to-agent req 'join_workspace))))

(defvar floobits-user-highlights)
(defvar floobits-on-connect)
(defvar floobits-last-highlight)
(defvar floobits-username)
(defvar floobits-secret)


(defun floobits-initialize ()

If the directory corresponds to an existing floobits workspace, you will instead join the workspace.
"
  (interactive "DDirectory to share: ")
  (floobits-load-floorc-json)
  (floobits-destroy-connection)
  (lexical-let* (
      (req (list
        (cons 'perms '((AnonymousUser . [])))
        (cons 'line_endings (floobits-get-line-endings))
        (cons 'dir_to_share dir-to-share)))
