[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

@@ -955,6 +955,10 @@
     (-> inspector
         (render-labeled-value "Name" (-> obj .getName symbol))
         (render-class-name obj)
+        (render "Flags: " (->> (.accessFlags obj)
+                               (map str/lower-case)
+                               (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 super" [: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 super abstract" [:newline] [:newline]]
              (header rendered)))
       (testing "renders the methods section"
         (let [methods (section rendered "Methods")]