Leiningen 使用引用从 Clojure 文件生成的类的 Java 文件编译错误

Question

我有一个 Leiningen 项目，它同时编译 Java 和 Clojure 文件。 Java 文件导入一些从 Clojure 文件生成的类（使用 gen-class）。

当我进行 lein compile 时，我在 Java 文件中的导入中遇到编译错误（说它找不到类）。如果我从项目中删除 Java 文件，执行 lein 编译，重新添加 Java 文件，然后再次执行 lein 编译，一切正常。

所以，就像 Clojure 文件需要在 Java 文件之前编译一样。

顺便说一句，我在 :aot 列表中包含了生成类的 Clojure 文件。

这里出了什么问题？

Answer 1

（此答案中的代码未经测试，尽管它有望与 Leiningen 1.x 一起使用（对于 x 的最新值）。）

如果您的project.clj 指定:java-source-path，Leiningen 的compile 任务会自动运行javac 任务。它在编译 Clojure 源代码之前这样做，因为我认为这是依赖项的通常方向。

要解决这个问题，您可以使用钩子：

;;; in leiningen.hooks.clj_first.clj

(ns leiningen.hooks.clj-first
  (:require [leiningen.compile :as leinc]
            [leiningen.javac :as javac]))

(defn compile-clj-first-hook [compile-task project & args]
  (apply compile-task
         (dissoc project :java-source-path)
         args))
  (javac/javac project))

(add-hook #'leiningen.compile/compile compile-clj-first-hook)

将它放在构建时类路径中的某个位置并添加

:hooks [clj-first-hook]

到您的项目地图。

注意javac，当直接调用时，仍然不会调用compile。您也可以使其等同于compile，例如通过将其与以下功能挂钩：

(defn javac-hook [javac-task project]
  (if (project ::clj-compiled?)
    (javac/javac project)
    (leinc/compile project)))

compile-clj-first-hook 的最后一种形式需要是

(javac/javac (assoc project ::clj-compiled? true))

（让compile不调用javac可能会破坏jar/uberjar。）