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

    (message "deleting floobits conn")
    (setq floobits-conn nil)))

; (defun floobits-change-func (var begin end &optional &rest old_length)
;   "does stuff"
;   (setq contents (buffer-substring-no-properties begin end))
;   (set var
;     (mapcar 'symbol-value '(begin end contents old_length))))

(defun floobits-send-to-agent (req event)
  (add-to-list 'req (cons 'version floobits-agent-version))
  (add-to-list 'req (cons 'name event))

  (delq nil
  (mapcar (lambda (x) (and (funcall condp x) x)) lst)))

(defun floobits-launch-agent ()
  (when (boundp 'floobits-twisted-agent)
    (delete-process floobits-twisted-agent))
  (start-process "floobits-twisted-agent" "*Messages*" "~/floobits-agent"))

(defun floobits-join-room (floourl)
"Join a floobits room"
  (interactive (list (read-from-minibuffer "Floobits room URL (owner/room): " "https://floobits.com/r/")))
