   (if file (open-dribble-file file) (vimgolf-close-and-capture-dribble)))
 
 (defun vimgolf-wrong-solution ()
-  (message "%s" "Wrong!")
+  (message "Wrong!")
   (vimgolf-diff))
 
-;; (with-temp-buffer
-;;   (insert "abcdefg")
-;;   (goto-char (point-min))
-;;   (while (not (= (char-after) ?b))
-;;     (forward-char))
-;;   (point))
-
 (defun vimgolf-parse-keychord (keychord-string)
-  (message "%s" keychord-string)
+  (message keychord-string)
   (single-key-description (string-to-number (substring keychord-string 2) 16)))
 
 (defun vimgolf-parse-dribble-file (file)

    (insert-buffer (get-buffer-create vimgolf-start-buffer-name))
    (clear-dribble-file)
    (set-window-configuration vimgolf-working-window-configuration)
    (message "%s" "If at first you don't succeed, try, try again.")))

(defun vimgolf-diff ()
  "Pause the competition and view differences between the buffers."
  (interactive)
  (vimgolf-open-dribble-file nil)
  (ediff-buffers (get-buffer-create vimgolf-work-buffer-name) (get-buffer-create vimgolf-end-buffer-name))
  (message "%s" "Remember to `C-c C-v c` when you're done."))

(defun vimgolf-continue ()
  "Restore work and end buffers and begin recording keystrokes again."
  (interactive)
  (vimgolf-open-dribble-file vimgolf-dribble-file-path)
  (set-window-configuration vimgolf-working-window-configuration)
  (message "%s" "Golf away!"))

(defun vimgolf-pause ()
  "Stop recording keystrokes."
  (interactive)
  (vimgolf-open-dribble-file nil)
  (message "%s" "Come `C-c C-v c` soon."))

(defun vimgolf-quit ()
  "Cancel the competition."

  (if (get-buffer vimgolf-end-buffer-name) (kill-buffer vimgolf-end-buffer-name))
  (vimgolf-open-dribble-file nil)
  (set-window-configuration vimgolf-prior-window-configuration)
  (message "I declare you, n00b!"))

(defvar vimgolf-host "http://vimgolf.com/")

