core.clj

(defn build-filename [input]
  (str "_" (second (re-find #"\/(.*)\Z" (str input)))))

(defn sort-ns
  "Sorts the vals from the map returned by ns-publics for a given nspace into alphabetical order."
  [nspace]
  (vals (ns-publics nspace)))

(defn print-core-docs-to-files
  [path-to-files]
  (let [docs (sort-ns 'clojure.core)]
    (doseq [s docs]
      (let [filename (build-filename s)]
        (with-out-writer (file-str path-to-files filename)
          (print-doc s))))))