Set with-bindings vars from user config

Author: JarrodCTaylor

README.md

@@ -62,6 +62,14 @@ Use aliases `:clj-line/client` or `:clj-line/server` for more precise targeting.
 | `:middleware` | server | vector of qualified symbols | nREPL middleware.                      |
 | `:eval-hook` | server | qualified symbol | Wraps eval: `(f eval)` returns the eval fn.     |
 | `:port` | server | int | nREPL port (OS-assigned). |
+| `:print-length` | server | int | `*print-length*` (`nil`). |
+| `:print-level` | server | int | `*print-level*` (`nil`). |
+| `:print-meta` | server | boolean | `*print-meta*` (`false`). |
+| `:print-namespace-maps` | server | boolean | `*print-namespace-maps*` (`true`). |
+| `:warn-on-reflection` | server | boolean | `*warn-on-reflection*` (`false`). |
+| `:unchecked-math` | server | boolean or `:warn-on-boxed` | `*unchecked-math*` (`false`). |
+| `:assert` | server | boolean | `*assert*` (`true`). |
+| `:compile-path` | server | string | `*compile-path*` (`"classes"`). |
 
 ## Features
 
@@ -73,7 +81,7 @@ Use aliases `:clj-line/client` or `:clj-line/server` for more precise targeting.
 - [x] Emacs/Vim editing key commands
 - [x] Custom keybindings
 - [x] Auto require
-- [ ] Print var defaults (`*print-level*`, `*print-length*`, `*print-namespace-maps*`, etc)
+- [x] Print var defaults (`*print-level*`, `*print-length*`, `*print-namespace-maps*`, etc)
 - [ ] Customized exception printer function
 - [ ] Read, Eval, Print, Caught hooks
 - [ ] Bracket pairs & structural-editing

server/src/clj_line/server.clj

@@ -1,12 +1,33 @@
 (ns clj-line.server
   (:require
     [clojure.java.io :as io]
+    [nrepl.config :as nrepl-config]
     [nrepl.server :as server]
     [clj-line.server.eval-hook :as hook]))
 
 (set! *warn-on-reflection* true)
 
-(defn start [{:keys [eval-hook middleware port]}]
+(def dynamic-vars
+  '{:warn-on-reflection   clojure.core/*warn-on-reflection*
+    :print-meta           clojure.core/*print-meta*
+    :print-length         clojure.core/*print-length*
+    :print-level          clojure.core/*print-level*
+    :print-namespace-maps clojure.core/*print-namespace-maps*
+    :unchecked-math       clojure.core/*unchecked-math*
+    :assert               clojure.core/*assert*
+    :compile-path         clojure.core/*compile-path*})
+
+(defn configured-dynamic-vars [config]
+  (reduce-kv (fn [m k sym]
+               (if (contains? config k)
+                 (assoc m sym (config k))
+                 m))
+             {}
+             dynamic-vars))
+
+(defn start [{:keys [eval-hook middleware port] :as config}]
+  (when-let [vars (not-empty (configured-dynamic-vars config))]
+    (alter-var-root #'nrepl-config/config assoc :dynamic-vars vars))
   (when eval-hook
     (hook/install (requiring-resolve eval-hook)))
   (let [extra (mapv requiring-resolve middleware)