clojure - 获取 uberjar 中嵌入的资源列表

Question

我正在与 leiningen 和 Clojure 合作创建一个 uberjar，因此我有一个用于部署的文件。我还使用 leiningen 的默认资源路径嵌入了一些静态文件，其名称和数量因构建而异。有没有一种惯用的方法可以从 Clojure 获取嵌入式资源列表？我知道我可以使用 clojure.java.io/resource访问已知文件名，但如何获取文件列表？

Answer 1

以下list-resources函数返回 path 中 jar 中所有文件的列表. running-jar如果它实际上是一个 jar，则保存当前运行的 jar 的路径。

(def ^:private running-jar 
  "Resolves the path to the current running jar file."
  (-> :keyword class (.. getProtectionDomain getCodeSource getLocation getPath)))

(defn list-resources [path]
  (let [jar (java.util.jar.JarFile. path)  
        entries (.entries jar)]
    (loop [result  []]
      (if (.hasMoreElements entries)
        (recur (conj result (.. entries nextElement getName)))
        result))))

(take 10 (list-resources running-jar))