 (setq floobits-agent-port 4567)
 (setq floobits-change-set ())
 (setq floobits-agent-buffer "")
-
 (setq floobits-conn nil)
 
 (defcustom floobits-username "kans"

;;(add-hook 'before-change-functions 'before-change nil nil)
(add-hook 'after-change-functions 'floobits-after-change nil nil)
(add-hook 'find-file-hook 'floobits-after-new-buffer nil t)

    (domain (url-host url-struct))
    (port (url-port url-struct))
    (path (url-filename url-struct))
    (_ (string-match "^/r/\\(.*\\)/\\(.*\\)/" path))
    (owner (match-string 1 path))
    (room (match-string 2 path)))
    (print (list path room owner))
    (if (and room owner)
      (progn
        (floobits-destroy-connection)
        (setq floobits-room room)
        (setq floobits-room-owner owner)
        (floobits-create-connection))
    (message "Invalid url! I should look like: https://floobits.com/r/owner/room/"))))

(defun _floobits-is-buffer-public(buf)
  (let ((name (buffer-name buf)))
