   (interactive)
   (maphash
    (lambda (key highlight)
-     (floo-when-buf (get-file-buffer (cadr key))
-                    (hlt-unhighlight-region 0 (buffer-size))))
+     (floobits--when-buf (get-file-buffer (cadr key))
+       (hlt-unhighlight-region 0 (buffer-size))))
    floobits-user-highlights))
 
 ;;;###autoload

  "Associate KEY with VALUE in the alist stored in ALIST-VAR."
  `(add-to-list ,alist-var (cons ,key ,value)))

(defmacro floo-when-buf (buf &rest body)
  "save excursion and widen"
  (list 'when buf
        (list 'with-current-buffer buf
              (list 'save-excursion
                    (list 'save-restriction
                          (list 'widen)
                          (cons 'progn body))))))

(defun floobits-send-debug ()
  (when floobits-conn


(defun floobits-get-buffer-text (buffer)
  "returns properties free text of buffer with name (name)"
  (floobits--when-buf buffer
    (floobits-get-text 1 (1+ (buffer-size)))))

(defun floobits-event-disconnect (req)
  (message "Disconnected: %s" (floobits--get-item req 'reason)))
