Skip unnecessary newlines when hitting only Enter

trptcolin · Jun 21, 2012 · 4d8f250 · 4d8f250
1 parent 1101e0d
commit 4d8f250
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/clj/reply/eval_modes/nrepl.clj b/src/clj/reply/eval_modes/nrepl.clj
@@ -56,6 +56,7 @@
           (flush)
           (when (and ns (not (:session options)))
             (reset! current-ns ns)))))
+    (when (:interactive options) (println))
     (reset! current-command-id nil)
     @current-ns))
 
@@ -64,7 +65,6 @@
   ([connection {:keys [prompt] :as options}]
     (let [{:keys [major minor incremental qualifier]} *clojure-version*]
       (loop [ns (execute-with-client connection options "")]
-        (println)
         (prompt ns)
         (flush)
         (let [eof (Object.)
@@ -83,7 +83,7 @@
                 :else
                   (recur (execute-with-client
                            connection
-                           options
+                           (assoc options :interactive true)
                            (binding [*print-meta* true]
                              (pr-str read-result))))))))))