 ;; Interactive commands
 
 (defun intero-toggle-debug ()
+  "Toggle debugging mode on/off."
   (interactive)
   (setq intero-debug (not intero-debug))
   (message "Intero debugging is: %s" (if intero-debug "ON" "OFF")))

                             (line-end-position))))))))

(defun intero-hoogle-url (buffer query)
  "Make the HTTP URL for QUERY from the hoogle server running in
BUFFER."
  (format "http://127.0.0.1:%d/?hoogle=%s&mode=json"
          (buffer-local-value 'intero-hoogle-port buffer)
          (url-encode-url query)))

    (get-buffer buffer-name)))

(defun intero-hoogle-buffer-name (root)
  "For a given worker, create a buffer name using ROOT."
  (concat "*Hoogle:" root "*"))

(defun intero-hoogle-ready-p ()
