 ;;; Commentary:
 ;;
 ;; Usage:
-;; 
+;;
 ;; (add-to-list 'load-path "/the/path/to/bdo")
-;; 
+;;
 ;; Optional keybinding:
-;; 
+;;
 ;; (define-key css-mode-map (kbd "C-x C-s") 'css-refresh)
 ;; (defun css-refresh ()
 ;;   "Refresh the current CSS file."

(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))

      (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
