Convert any arbitrary Java object hierarchy to Clojure map of maps

cljify.clj

(ns cljify)

(require 'clojure.string)
(require 'clojure.walk)

(defn cljify1 [o]
  (when (not (nil? o))
    (let [cname (.getName (class o))
          s (partial clojure.string/starts-with? cname)]
      (cond 
        (s "java.lang.Class") o
        (s "java.util") (into [] o)
        (s "java.lang") o
        (s "clojure") o
        :else (->> (bean o) (map identity) (into {}))))))

(defn cljify [o]
  (clojure.walk/prewalk cljify1 o))