[inspect] Add support for printing compact qualified keywords

Author: alexander-yakushev

CHANGELOG.md

@@ -3,6 +3,7 @@
 ## master (unreleased)
 
 - [#353](https://github.com/clojure-emacs/orchard/pull/353): Stacktrace: flag Clojure functions as duplicate.
+- [#354](https://github.com/clojure-emacs/orchard/pull/354): Inspector: add support for printing compact qualified keywords.
 
 ## 0.36.0 (2025-06-29)
 

src/orchard/inspect.clj

@@ -1134,11 +1134,12 @@
 
 (defn inspect-render
   ([{:keys [max-atom-length max-value-length max-coll-size max-nested-depth value
-            pretty-print only-diff]
+            pretty-print only-diff pov-ns]
      :as inspector}]
    (binding [print/*max-atom-length*  max-atom-length
              print/*max-total-length* max-value-length
              print/*coll-show-only-diff* (boolean only-diff)
+             print/*pov-ns*           (some-> pov-ns find-ns)
              *print-length*           max-coll-size
              *print-level*            (cond-> max-nested-depth
                                         ;; In pretty mode a higher *print-level*

test/orchard/inspect_test.clj

@@ -1777,6 +1777,18 @@
              render
              contents-section))))
 
+(deftest compact-keywords-test
+  (testing "when :pov-ns is passed, use it to compact qualified keywords"
+    (is+ ["--- Contents:" [:newline]
+          "  " [:value "::foo" pos?] " = " [:value "1" pos?] [:newline]
+          "  " [:value "::str/bar" pos?] " = " [:value "2" pos?] [:newline]
+          "  " [:value "::walk/baz" pos?] " = " [:value "3" pos?]]
+         (-> {::foo 1
+              ::str/bar 2
+              :clojure.walk/baz 3}
+             (inspect {:pov-ns 'orchard.inspect-test})
+             render contents-section))))
+
 (deftest tap-test
   (testing "tap-current-value"
     (let [proof (atom [])