 
 (defun floobits-filter-func (condp lst)
   (delq nil
-	(mapcar (lambda (x) (and (funcall condp x) x)) lst)))
+  (mapcar (lambda (x) (and (funcall condp x) x)) lst)))
 
 (defun _floobits-is-buffer-public(buf)
   (let ((name (buffer-name buf)))
-    (cond  
+    (cond
      ((string="*" (substring name 0 1)) nil)
      ((string=" " (substring name 0 1)) nil)
      ((< (length name) 11) t)

;    (req (list `(buffers . ,buffers))))
 ;   (send-to-agent req 'buffer-list)))

(defun floobits-switch (text)
  (let* ((json-key-type 'string)
  (req (json-read-from-string text))

(add-hook 'after-change-functions 'after-change nil t)
(add-hook 'find-file-hook 'after-new-buffer nil t)

(create-connection)
