Coerce pretty-print to boolean

Author: r0man

src/cider/nrepl/middleware/inspect.clj

@@ -31,9 +31,10 @@
      (response-for msg data extra-response-data))))
 
 (defn- msg->inspector-config [msg]
-  (select-keys msg [:page-size :max-atom-length :max-coll-size
-                    :max-value-length :max-nested-depth :display-analytics-hint
-                    :pretty-print]))
+  (-> (select-keys msg [:page-size :max-atom-length :max-coll-size
+                        :max-value-length :max-nested-depth :display-analytics-hint
+                        :pretty-print])
+      (update :pretty-print #(= "true" %))))
 
 (defn inspect-reply* [{:keys [view-mode] :as msg} value]
   (let [config (msg->inspector-config msg)