[inspect] Tune pretty-printing

Author: alexander-yakushev

CHANGELOG.md

@@ -3,6 +3,7 @@
 ## master (unreleased)
 
 * [#314](https://github.com/clojure-emacs/orchard/pull/314): Print: add special printing rules for records and allow meta :type overrides.
+* [#336](https://github.com/clojure-emacs/orchard/pull/336): Inspector: tune pretty-printing mode.
 
 ## 0.34.0 (2025-04-18)
 

src/orchard/inspect.clj

@@ -378,7 +378,7 @@
   "Returns true of `s` is a long string, more than 20 character or
   containing newlines."
   [^String s]
-  (or (.contains s "\n") (> (count s) 20)))
+  (or (.contains s "\n") (> (count s) 50)))
 
 (defn- render-map-separator
   "Render the map separator according to `rendered-key`. If

src/orchard/print.clj

@@ -208,9 +208,13 @@
   "Pretty print the object `x` with `orchard.pp/pprint` and return it as
   a string. The `:indentation` option is the number of spaces used for
   indentation."
-  [x & [{:keys [indentation]}]]
-  (let [writer (TruncatingStringWriter. *max-atom-length* *max-total-length*)
-        indentation-str (apply str (repeat (or indentation 0) " "))]
-    (try (pp/pprint writer x {:indentation indentation-str})
-         (catch TruncatingStringWriter$TotalLimitExceeded _))
-    (str/trimr (.toString writer))))
+  ([x]
+   (pprint-str x {}))
+  ([x options]
+   (let [{:keys [indentation] :or {indentation 0}} options
+         writer (TruncatingStringWriter. *max-atom-length* *max-total-length*)
+         indentation-str (apply str (repeat indentation " "))]
+     (try (pp/pprint writer x {:indentation indentation-str
+                               :max-width (+ indentation 80)})
+          (catch TruncatingStringWriter$TotalLimitExceeded _))
+     (str/trimr (.toString writer)))))