File tree Expand file tree Collapse file tree 2 files changed +2
-9
lines changed Expand file tree Collapse file tree 2 files changed +2
-9
lines changed Original file line number Diff line number Diff line change 44
44
the set of paths that will trigger a rebuild [ #312 ] [ 312 ] .
45
45
- The ` watch ` task now accpets ` --debounce ` option to adjust how long it will
46
46
wait for all filesystem events to have fired before a rebuild is triggered.
47
- - The ` repl ` task now pretty-prints values via puget when printing in color.
48
47
49
48
##### API Functions
50
49
Original file line number Diff line number Diff line change 1
1
(ns boot.repl-client
2
2
(:require
3
- [reply.main :as reply]))
3
+ [reply.main :as reply]))
4
4
5
5
(def default-opts {:color true :history-file " .nrepl-history" })
6
6
7
- (defn cprint [x]
8
- (require 'puget.printer)
9
- ((resolve 'puget.printer/cprint) (read-string x)))
10
-
11
7
(defn client [opts]
12
8
(let [p (or (:port opts) (try (slurp " .nrepl-port" ) (catch Throwable _)))
13
9
h (or (:host opts) " 127.0.0.1" )
14
- o (let [o (assoc (merge default-opts opts) :attach (str h " :" p))]
15
- (if-not (:color o) o (-> o (dissoc :color ) (assoc :print-value cprint))))]
10
+ o (assoc (merge default-opts opts) :attach (str h " :" p))]
16
11
(assert (and h p) " host and/or port not specified for REPL client" )
17
- (future (require 'puget.printer)) ; ; takes ~3s, preload while reply launches
18
12
(reply/launch-nrepl o)))
You can’t perform that action at this time.
0 commit comments