 (defun bdo--get-js (host)
   "Get the JS code to send to the client."
   (if (bdo--find-js-file)
-      (with-temp-buffer 
+      (with-temp-buffer
         (insert-file-contents (bdo--find-js-file))
         (goto-char (point-max))
         (insert (format "bdo.host = %S;\n" (format "http://%s/" host))

;;   (when (buffer-modified-p)
;;     (save-buffer))
;;   (bdo-refresh))
;; 

;;; Code:


      (let ((id (ido-completing-read "Client: " (mapcar 'bdo-client-id bdo--clients))))
        (setq bdo-client id))
    (error "There are no current clients!")))

(defun bdo-clear-clients ()
  "Clear the clients."
  (interactive)
  (setq bdo--clients nil)
  (setq bdo-link nil)
  (message "Clients cleared."))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Private functions
