Как включить все файлы в папку с помощью clojure

Question

Как включить все файлы в папку с помощью clojure.

Вот мой код:

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

Но приведенный выше код не работает.

Answer 1

Насколько я знаю, в clojure нет include (исправьте меня, если я ошибаюсь). Вы должны использовать use или require.

Это один, вероятно, следует работать (для всех .clj файлов в utils верхнем уровне, но вы можете легко расширить его рекурсивным):

(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")