有没有办法在提供名称空间时获取Clojure文件的源代码？

Question

有些函数可以读取函数的源代码，例如：source和source-fn。

在提供命名空间时，是否有任何方法或函数返回Clojure文件的源代码？

例如：(all-source 'my-ns)

返回如：

(ns my-ns
  (:require [kezban.core :refer :all]
            [leiningen.c.util :as util]))
(defn my-fn
  []
  )
...

Answer 1

我想我找到了一种方法（如果ns至少有一个var，它会起作用）：

(defn source-clj
  [ns]
  (require ns)
  (some->> ns
           ns-publics
           vals
           first
           meta
           :file
           (.getResourceAsStream (RT/baseLoader))
           IOUtils/toString))