Merge pull request #148 from clj-commons/hls/20250702-hide-apply

Hide clojure.core/apply (and related)

Author: hlship

CHANGES.md

@@ -9,7 +9,12 @@
   - Can override the style's :marker in a specific annotation
   - Markers must be strings or function (previously chars were allowed)
   - Support for three-character markers added (the middle character is repeated to pad) 
-  - Can omit line numbers with `annotate-lines` 
+  - Can omit line numbers with `annotate-lines`
+- `clj-commons.format.exceceptions/default-frame-rules`:
+  - `clojure.core/with-bindings*` and `clojure.core/apply` are now hidden, not omitted
+  - terminate at any `clojure.main` function
+
+[Closed Issues](https://github.com/clj-commons/pretty/milestone/59?closed=1)
 
 ## 3.4.1 -- 23 Jun 2025
 

README.md

@@ -131,6 +131,7 @@ Pretty can output pretty tabular data:
    {:method     :get
     :path       "/status"
     :route-name :status}])
+    
 (print-table
   [:method
    :path

src/clj_commons/format/exceptions.clj

@@ -119,17 +119,18 @@
  * omit `clojure.core/with-bindings*` and `clojure.core/apply`
  * hide everything in `sun.reflect`
  * omit a number of functions in `clojure.test`
- * terminate at `speclj.*`, `clojure.main/main*`, `clojure.main/repl/read-eval-print`, or `nrepl.middleware.interruptible-eval`
+ * terminate at `speclj.*`, `clojure.main/.*`, or `nrepl.middleware.interruptible-eval`
  "
-  [[:package "clojure.lang" :omit]
-   [:name "clojure.core/with-bindings*" :omit]
+  [[:name "clojure.core/apply" :hide]
+   [:id #"\Qclojure.lang.AFn.applyTo\E(Helper)?.*" :hide]
+   [:package "clojure.lang" :omit]
+   [:name "clojure.core/with-bindings*" :hide]
    [:package #"sun\.reflect.*" :hide]
    [:package "java.lang.reflect" :omit]
    [:name #"speclj\..*" :terminate]
-   [:name "clojure.core/apply" :omit]
-   [:name #"nrepl\.middleware\.interruptible-eval/.*" :terminate]
-   [:name #"clojure\.main/repl/read-eval-print.*" :terminate]
-   [:name #"clojure\.main/main.*" :terminate]
+   [:name #"\Qnrepl.middleware.interruptible-eval/\E.*" :terminate]
+   [:name #"\Qclojure.main/\E.*" :terminate]
+   [:name "clojure.test/run-tests" :terminate]
    [:name #"\Qclojure.test/\E(test-ns|test-all-vars|default-fixture).*" :omit]])
 
 (def ^{:added "0.1.18"

test/demo.clj

@@ -105,9 +105,12 @@
   (prn `-main :args args)
   (println "Clojure version: " *clojure-version*)
   (println "Installing pretty exceptions ...")
-  (repl/install-pretty-exceptions)
   (pout [:bold.green "ok"])
-  (pst (make-exception))
+
+  (do
+    (repl/install-pretty-exceptions)
+    (pst (make-exception)))
+
   (println "\nTesting reporting of repeats:")
   (try (countdown 20)
        (catch Throwable t (e/print-exception t)))