 
 ;;;###autoload
 (defun floobits-add-to-workspace (path)
-  "Adds a file or directory to the workspace"
+  "Add file or directory at PATH to Floobits workspace."
   (interactive "fpath: ")
   (floobits-send-to-agent (list (cons 'full_path path)) 'create_buf))
 
 (defun floobits-process-live-p (process)
-  "Returns non-nil if PROCESS is alive.
-  A process is considered alive if its status is `run', `open',
-  `listen', `connect' or `stop'."
+  "Return non-nil if PROCESS is alive.
+A process is considered alive if its status is `run', `open',
+`listen', `connect' or `stop'."
   (memq (process-status process)
         '(run open listen connect stop)))
 


;;;###autoload
(defun floobits-summon ()
  "Summons all users to your cursor position."
  (interactive)
  (floobits-send-highlight t))

;;;###autoload
(defun floobits-follow-mode-toggle ()
  "Toggles following of recent changes in a workspace"
  (interactive)
  (when floobits-conn
    (setq floobits-follow-mode (not floobits-follow-mode))

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

(defun floobits-post-command-func ()
  "Transmit changes at point to Floobits for highlighting."
  (floobits-buffer-list-change)
  (floobits-send-highlight))

