15 lines
375 B
Clojure
15 lines
375 B
Clojure
|
(ns user
|
||
|
|
(:require
|
||
|
|
[clojure.spec.alpha :as s]
|
||
|
|
[expound.alpha :as ea]
|
||
|
|
[kaocha.repl]))
|
||
|
|
|
||
|
|
(try
|
||
|
|
;; Attempt to set *explain-out*, assuming that we're inside of
|
||
|
|
;; a binding context...
|
||
|
|
(set! s/*explain-out* ea/printer)
|
||
|
|
|
||
|
|
(catch IllegalStateException _
|
||
|
|
;; ...if not, just alter the root binding.
|
||
|
|
(alter-var-root #'s/*explain-out* (constantly ea/printer))))
|