clojure.core の関数の doc-string をランダムに表示 (random-docs)

random-docs.clj

(defn get-doc-string
  [ns sym]
  (let [wrt (java.io.StringWriter.)]
    (binding [*out* wrt]
      (->> (ns-resolve ns sym)
           (meta)
           (#'clojure.repl/print-doc)))
    (.toString wrt)))

(def syms (-> 'clojure.core ns-map keys sort))

(def clojure-core-docs (->> syms (map #(get-doc-string 'clojure.core %))))

(defn random-docs
  []
  (println (rand-nth clojure-core-docs)))