 
 (defn stop-auto!
   "Kill an auto-compile process."
-  ([prj-key]
-    (stop-auto! prj-key (fn [] nil)))
+  ([prj-key] (stop-auto! prj-key (constantly nil)))
   ([prj-key callback-fn]
-    (let [main-pid (get @auto-pids prj-key)]
-      (log-info "trying to stop auto-compile for" prj-key "at pid" main-pid)
-      (if on-windows?
-        (js-exec (str "taskkill /pid " main-pid " /T /F") callback-fn)
-        (kill-auto-on-unix main-pid callback-fn))
-
+   (let [main-pid (get @auto-pids prj-key)]
+     (log-info "trying to stop auto-compile for" prj-key "at pid" main-pid)
+     (if on-windows?
+       (js-exec (str "taskkill /pid " main-pid " /T /F") callback-fn)
+       (kill-auto-on-unix main-pid callback-fn))
       ;; remove the pid from the atom
-      (swap! auto-pids dissoc prj-key))))
+     (swap! auto-pids dissoc prj-key))))
 
 (defn kill-all-leiningen-instances! []
   (let [currently-running-prj-keys (keys @auto-pids)

  {:file (extract-error-file lines)
   :line (extract-line-number lines)
   :human-msg (extract-human-error lines)
   :raw-lines lines })

(defn- clean-line
  "Clean bash escape characters from a console output line."

  "Returns a human-readable error message (or nil) from error lines."
  [lines]
  (reduce (fn [v l]
            (if (caused-by-line? l)
              (extract-human-error* l)
              v))
    nil lines))

(defn- has-line-info? [s]
