File tree 4 files changed +7
-22
lines changed
test/smoketest/src/smoketest 4 files changed +7
-22
lines changed Original file line number Diff line number Diff line change 19
19
20
20
(def suitable-complete-for-nrepl
21
21
(when suitable-enabled?
22
- (require 'suitable.complete-for-nrepl)
23
- @(resolve 'suitable.complete-for-nrepl/complete-for-nrepl)))
22
+ (requiring-resolve 'suitable.complete-for-nrepl/complete-for-nrepl)))
24
23
25
24
(def clj-sources
26
25
" A list of Clojure completion sources for compliment."
Original file line number Diff line number Diff line change 14
14
15
15
(def ^:private print-cause-trace
16
16
(delay
17
- (do
18
- (require 'clojure.stacktrace)
19
- (resolve 'clojure.stacktrace/print-cause-trace))))
17
+ (requiring-resolve 'clojure.stacktrace/print-cause-trace)))
20
18
21
19
(def ^:private analyze-causes
22
20
(delay
23
- (do
24
- (require 'haystack.analyzer)
25
- (resolve 'haystack.analyzer/analyze))))
21
+ (requiring-resolve 'haystack.analyzer/analyze)))
26
22
27
23
; ;; UTILITY FUNCTIONS
28
24
Original file line number Diff line number Diff line change 47
47
(apply pp/write value (mapcat identity (assoc options :stream writer)))))
48
48
49
49
(def ^:private fipp-printer
50
- (delay
51
- (do
52
- (require 'fipp.edn)
53
- (resolve 'fipp.edn/pprint))))
50
+ (delay (requiring-resolve 'fipp.edn/pprint)))
54
51
55
52
(defn fipp-pprint
56
53
([value writer]
60
57
(@fipp-printer value options))))
61
58
62
59
(def ^:private puget-printer
63
- (delay
64
- (do
65
- (require 'puget.printer)
66
- (resolve 'puget.printer/pprint))))
60
+ (delay (requiring-resolve 'puget.printer/pprint)))
67
61
68
62
(defn puget-pprint
69
63
([value writer]
73
67
(@puget-printer value options))))
74
68
75
69
(def ^:private zprint-printer
76
- (delay
77
- (do
78
- (require 'zprint.core)
79
- (resolve 'zprint.core/zprint))))
70
+ (delay (requiring-resolve 'zprint.core/zprint)))
80
71
81
72
(defn zprint-pprint
82
73
([value writer]
Original file line number Diff line number Diff line change 14
14
15
15
; ; see cider-nrepl issue #447
16
16
(defn nrepl-handler []
17
- (require 'cider.nrepl)
18
- (ns-resolve 'cider.nrepl 'cider-nrepl-handler))
17
+ (requiring-resolve 'cider.nrepl/cider-nrepl-handler))
19
18
20
19
(defn nrepl-server-fixture
21
20
" Derived from the cider-nrepl test fixture. Launch the nrepl server,
You can’t perform that action at this time.
0 commit comments