       (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

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

;;; Code:


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