Restored monitor-keystrokes back to use (.read System/in).

Removed `:with-repl` from opts before additional parsing.
jakemcc · Feb 23, 2016 · 45aa3fc · 45aa3fc
1 parent a07cb93
commit 45aa3fc
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 4 deletions.
diff --git a/test-refresh/src/com/jakemccrary/test_refresh.clj b/test-refresh/src/com/jakemccrary/test_refresh.clj
@@ -179,11 +179,11 @@
                       (read-string line)
                       (do (run-test-refresh!) :run-tests))
                     (System/exit 0))))
-        (loop [line (read-line)]
-          (if-not line
+        (loop [c (.read System/in)]
+          (if (= c -1)
             (System/exit 0)
-            (run-test-refresh!))
-          (recur (read-line)))))))
+            (do (run-test-refresh!)
+                (recur (.read System/in)))))))))
 
 (defn- create-user-notifier [notify-command]
   (let [notify-command (if (string? notify-command)

diff --git a/test-refresh/src/leiningen/test_refresh.clj b/test-refresh/src/leiningen/test_refresh.clj
@@ -21,6 +21,7 @@
         with-repl? (or (some #{:with-repl ":with-repl" "with-repl"} args) with-repl)
         args (remove #{:growl ":growl" "growl"
                        :changes-only ":changes-only" "changes-only"
+                       :with-repl ":with-repl" "with-repl"
                        :run-once ":run-once" "run-once"} args)
         notify-on-success (or (nil? notify-on-success) notify-on-success)
         selectors (filter keyword? args)]