Log Clojure requires

log_requires.clj

(def ^:private ^:dynamic *require-chain* nil)

(defonce new-require
  (let [orig-require (var-get #'clojure.core/require)]
    (orig-require 'clojure.pprint)
    (fn [& args]
      (binding [*require-chain* (conj (vec *require-chain*) (ns-name *ns*))]
        (let [require-chain-description (apply str (interpose " -> " *require-chain*))]
          (println "\nin" require-chain-description)
          ((resolve 'clojure.pprint/pprint) (cons 'require args))
          (apply orig-require args)
          (println "finished" require-chain-description))))))

(alter-var-root #'clojure.core/require (constantly new-require))