Restore and extend io.aviso shim namespaces

Author: hlship

CHANGES.md

@@ -1,3 +1,10 @@
+## 3.6.3 -- UNRELEASED
+
+- Restore, at least temporarily, the `io.aviso.exception` and `io.aviso.repl shim` namespaces
+- Add a shim for `io.aviso.exception/*traditional*`
+
+[Closed Issues](https://github.com/clj-commons/pretty/milestone/62?closed=1)
+
 ## 3.6.2 -- 7 Aug 2025
 
 - Fix a bug where the vertical bar for repeated stack frames could be misaligned

src/io/aviso/exception.clj

@@ -0,0 +1,40 @@
+(ns io.aviso.exception
+  "A shim in org.clj-commons/pretty to emulate a few key functions from io.aviso/pretty.
+
+  This namespace may be deleted in a future release."
+  {:added "2.5.0"
+   :deprecated "2.5.0"}
+  (:require [clj-commons.format.exceptions :as e]))
+
+(defn demangle
+  [^String s]
+  (e/demangle s))
+
+(defn format-exception
+  ([exception]
+   (e/format-exception exception))
+  ([exception options]
+   (e/format-exception exception options)))
+
+(defn write-exception
+  ([exception]
+   (e/print-exception exception))
+  ([exception options]
+   (e/print-exception exception options)))
+
+(def ^:dynamic *default-frame-rules*
+  "This is provided only to prevent source compilation failures; changing this value does not affect
+  how the clj-commons.format.exceptions namespace operates."
+  [])
+
+(def ^:dynamic *fonts*
+  "This is provided only to prevent source compilation failures; changing this value does not affect
+  how the clj-commons.format.exceptions namespace operates."
+  {})
+
+(def ^{:dynamic true
+       :added "3.6.3"
+       :deprecated "3.6.3"} *traditional*
+  "This is provided only to prevent source compilation failures; changing this value does not affect
+    how the clj-commons.format.exceptions namespace operates."
+  false)

src/io/aviso/repl.clj

@@ -0,0 +1,15 @@
+(ns io.aviso.repl
+  "A shim in org.clj-commons/pretty to emulate a few key functions from io.aviso/pretty.
+
+  This namespace may be deleted in a future release."
+  {:added "2.5.0"
+   :deprecated "2.5.0"}
+  (:require [clj-commons.pretty.repl :as repl]))
+
+(defn install-pretty-exceptions
+  []
+  (repl/install-pretty-exceptions))
+
+(defn uncaught-exception-handler
+  []
+  (repl/uncaught-exception-handler))