 (setq floobits-current-position '((mark . 1) (point . 1) (name . "")))
 (setq floobits-open-buffers nil)
 (setq floobits-follow-mode nil)
-(setq floobits-user-highlights (make-hash-table))
+(setq floobits-user-highlights (make-hash-table :test 'equal))
 (setq floobits-python-path (concat (file-name-directory load-file-name) "floobits.py"))
 ; To set this: M-x customize-variable RET floobits-username
 ; (defcustom floobits-username ""

; (defcustom floobits-share-dir "~/share"
;   "Room for floobits"
;   :type 'string)

(defun floobits-add-hooks ()
  (add-hook 'after-change-functions 'floobits-after-change nil nil)

        (floobits-send-to-agent req 'highlight)))))

(defun floobits-highlight-func (user_id buffer ranges)
  (let* ((key (format "%s-%s" user_id (buffer-file-name buffer)))
         (previous-ranges (gethash key floobits-user-highlights)))
    (message "%s key %s" key previous-ranges)
    (with-current-buffer buffer
      (save-excursion
        (when previous-ranges
          ; convert to list :(
          (mapcar
            (lambda(x)
              (goto-char (- (elt x 0) 0))
              (push-mark (+ (elt x 1) 1) t t)
              (hlt-unhighlight-region))
            previous-ranges))
        (mapcar
          (lambda(x)
              (goto-char (- (elt x 0) 0))
              (push-mark (+ (elt x 1) 1) t t)
            (hlt-highlight-region))
          ranges)
        (puthash key ranges floobits-user-highlights)))))

(defun floobits-filter-func (condp lst)
  (delq nil
