[inspect] Display class flags

Author: alexander-yakushev

CHANGELOG.md

@@ -4,6 +4,7 @@
 
 - [#346](https://github.com/clojure-emacs/orchard/pull/346): Inspector: only show those datafied collection items that have unique datafy represantation.
 - [#348](https://github.com/clojure-emacs/orchard/pull/348): Inspector: display length of inspected strings.
+- [#348](https://github.com/clojure-emacs/orchard/pull/348): Inspector: display class flags.
 
 ## 0.35.0 (2025-05-28)
 

src/orchard/inspect.clj

@@ -10,6 +10,7 @@
   Pretty wild, right?"
   (:require
    [clojure.core.protocols :refer [datafy nav]]
+   [clojure.reflect :as reflect]
    [clojure.string :as str]
    [orchard.inspect.analytics :as analytics]
    [orchard.java.compatibility :as compat]
@@ -955,6 +956,10 @@
     (-> inspector
         (render-labeled-value "Name" (-> obj .getName symbol))
         (render-class-name obj)
+        (render "Flags: " (->> (#'clojure.reflect/parse-flags (.getModifiers obj) :class)
+                               (map name)
+                               (str/join " ")))
+        (render-ln)
         (render-class-hierarchy obj)
         (render-class-section :Constructors (.getConstructors obj)
                               (print-fn #(.toGenericString ^Constructor %)))

test/orchard/inspect_test.clj

@@ -931,7 +931,8 @@
       (testing "renders the header section"
         (is+ ["Name: "
               [:value "java.lang.Object" 0] [:newline]
-              "Class: " [:value "java.lang.Class" 1] [:newline] [:newline]]
+              "Class: " [:value "java.lang.Class" 1] [:newline]
+              "Flags: public" [:newline] [:newline]]
              (header rendered)))
       (testing "renders the constructors section"
         (is+ ["--- Constructors:"
@@ -997,7 +998,8 @@
       (testing "renders the header section"
         (is+ ["Name: "
               [:value "java.lang.ClassValue" 0] [:newline]
-              "Class: " [:value "java.lang.Class" 1] [:newline] [:newline]]
+              "Class: " [:value "java.lang.Class" 1] [:newline]
+              "Flags: public abstract" [:newline] [:newline]]
              (header rendered)))
       (testing "renders the methods section"
         (let [methods (section rendered "Methods")]