Add :echo-editor-code to show only output from editor evaluations

Author: JarrodCTaylor

CHANGELOG.md

@@ -1,6 +1,8 @@
 Changelog
 ===========
 
+* 0.2.1 on Oct 19, 2026
+  * Add `:echo-editor-code` to show only output from editor evaluations
 * 0.2.0 on Oct 19, 2026
   * Show evaluations sent from an editor in the terminal REPL
   * TAB completion using the nREPL completions op

client/src/clojure_cli/repl/client.clj

@@ -398,8 +398,8 @@
   (.setPrompt rdr (render-prompt prompt-fn))
   (.redisplay rdr))
 
-(defn show-reply [evals {:keys [eval-id code out err value status] :as reply} rdr prompt-fn libspecs follow-ns?]
-  (when code (print-echo reply prompt-fn))
+(defn show-reply [evals {:keys [eval-id code out err value status] :as reply} rdr prompt-fn libspecs follow-ns? echo-code?]
+  (when (and code echo-code?) (print-echo reply prompt-fn))
   (when-let [text (or out err value)] (api/print-above [{:text (str/trim-newline text)}]))
   (let [merged (merge (get evals eval-id) reply)]
     (if (some #{"eval-done"} status)
@@ -411,10 +411,10 @@
   "Runs on its own thread since the main thread is waiting for input.
    Continues to run until the connection is closed.
    Replies are collected until each eval is done."
-  [port session-id rdr prompt-fn libspecs follow-ns?]
+  [port session-id rdr prompt-fn libspecs follow-ns? echo-code?]
   (future
     (reduce (fn [evals reply]
-              (try (show-reply evals reply rdr prompt-fn libspecs follow-ns?)
+              (try (show-reply evals reply rdr prompt-fn libspecs follow-ns? echo-code?)
                    (catch Throwable e
                      (api/print-above [{:text (str "clojure-cli.repl: watch: " (ex-message e))}])
                      evals)))
@@ -444,7 +444,7 @@
                (handle [_ _sig]
                  (nrepl/interrupt session))))
     (println "connected to nREPL on" port)
-    (watch-evals port session-id rdr prompt-fn libspecs (:follow-editor-ns config))
+    (watch-evals port session-id rdr prompt-fn libspecs (:follow-editor-ns config) (:echo-editor-code config true))
     (auto-require @api/current-ns libspecs)
     (loop []
       (let [line (try (.readLine rdr (render-prompt prompt-fn))

doc/configuration.md

@@ -45,6 +45,7 @@ The scope column names the process a key configures. Either the JLine client or
 | `:paredit/<op>` | client | [key string](#key-strings) | Bind a [structural editing op](editing.md). Example: `:paredit/raise "C-x r"`. | none |
 | `:auto-require` | client | vector of libspecs | [Required into each namespace](#auto-require). | none |
 | `:follow-editor-ns` | client | boolean | Enter the namespace of each eval [sent from an editor](editors.md). | `false` |
+| `:echo-editor-code` | client | boolean | Show the code of each eval [sent from an editor](editors.md) above its output. | `true` |
 | `:middleware` | server | vector of [qualified symbols](#user-code) | [Server data on eval responses](middleware.md). | none |
 | `:eval-hook` | server | [qualified symbol](#user-code) | [Wraps eval](hooks.md). | none |
 | `:print-hook` | server | [qualified symbol](#user-code) | [Wraps result printing](hooks.md). | none |

doc/editors.md

@@ -28,6 +28,15 @@ file that it writes.
 When an editor starts the server, run `clojure -M:attach` to launch the terminal
 REPL, by hand or scripted from your editor.
 
+## Code echo
+
+Set `:echo-editor-code` to `false` to show only the output of each editor evaluation.
+
+```clojure
+;; .cljconf/org.clojure/clojure-cli.repl.edn
+{:echo-editor-code false}
+```
+
 ## Namespace
 
 Each editor evaluation runs in the namespace of the file that the code comes