ns-deps.clj

(defn get-dep-graph [src-paths]
  (let [src-files
        (apply set/union
               (map (comp #(ns-find/find-clojure-sources-in-dir %)
                          io/file)
                    src-paths))
        tracker (ns-file/add-files {} src-files)
        dep-graph (tracker ::ns-track/deps)]
    dep-graph))

(defn get-dep-tree []
  (let [ds (get-dep-graph)
        edges (for [[d ds2] (:dependents ds)
                   d2 ds2]
               [d d2])
        roots (set/difference (set (keys (:dependencies ds)))
                              (set (keys (:dependents ds))))
        subtrees (reduce
                  (fn [acc [c p]]
                           (update acc p assoc c (get acc c {})))
                         {}
                         edges)]
    (select-keys subtrees roots)))