clojureを使用してフォルダ内のすべてのファイルを含める方法

Question

clojureを使用してフォルダ内にすべてのファイルを含める方法。

は、ここに私のコードです：

(defn LoadFiles[] 
    (include "utils") 
) 
(LoadFiles) 

しかし、上記のコードは動作しません。

Answer 1

私が知る限り、クロージャーにはincludeはありません（私が間違っている場合は私を修正してください）。 これにはuseまたはrequireを使用してください。

この1つは、おそらく（ utilsトップレベルにあるすべての.cljファイルに対して、しかし、あなたは簡単にそれが再帰的であることを拡張することができます）動作するはず

：

(defn list-sources [path] 
    (map #(str path "." (second (re-matches #"^(\w+)\.clj$" (.getName %)))) 
     (filter #(.isFile %) (file-seq path)))) 

(run! #(require (vector (symbol %) :refer :all)) 
     (list-sources (java.io.File. "utils"))) 

Answer 2

多分何かのように：

(defn load-files [dir] 
    (doseq [f (file-seq (File. dir)) 
      :when (.isFile f)] 
    (load-file (.getAbsolutePath f)))) 

(load-files "utils")