 
 (defun floobits-event-highlight (req)
   (setq floobits-last-highlight req)
-  (let* ((ranges (floo-get-item req 'ranges))
+  (let* ((ranges (floobits--get-item req 'ranges))
          (ranges-length (- (length ranges) 1))
-         (user_id (floo-get-item req 'user_id))
-         (username (floo-get-item req 'username))
+         (user_id (floobits--get-item req 'user_id))
+         (username (floobits--get-item req 'username))
          (pos (+ 1 (elt (elt ranges ranges-length) 0)))
-         (path (floo-get-item req 'full_path))
+         (path (floobits--get-item req 'full_path))
          (buffer (get-file-buffer path))
-         (following (floo-get-item req 'following))
-         (should-jump (or (floo-get-item req 'ping) (and
-                                                     (and floobits-follow-mode (or (not floobits-follow-users)
-                                                                                   (member username floobits-follow-users))) (not following))))
+         (following (floobits--get-item req 'following))
+         (should-jump (or (floobits--get-item req 'ping) (and
+                                                          (and floobits-follow-mode (or (not floobits-follow-users)
+                                                                                        (member username floobits-follow-users))) (not following))))
          (buffer (or buffer (and should-jump (find-file path)))))
 
     (floo-when-buf buffer

                 (floobits-get-text 1 (+ 1 (buffer-size)))))

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

(defun floobits-event-room_info (req)
  (let ((floobits-workspace (floo-get-item req 'workspace_name)))
    (message "Successfully joined workspace %s." floobits-workspace)
    (setq floobits-share-dir (floo-get-item req 'project_path))
    (message "Project path is %s." floobits-share-dir)
    (setq floobits-perms (append (floo-get-item req 'perms) nil))
    (mapc
     (lambda (x)
       (when (and (> (length x) 9) (string="floobits-" (substring x 0 9)))

  (let* ((json-key-type 'string)
         (json-false 'nil)
         (req (json-read-from-string text))
         (event (floobits--get-item req "name"))
         (func (concat "floobits-event-" event)))
    (if (fboundp (intern-soft func))
        (funcall (read func) req)
