clojure - 如何从 clojure/cider/nrepl 中的同级文件导入内容？

Question

我有一个小项目 ~/src/proj/{foo,bar}.clj我正在使用 emacs、cider 和 nREPL 进行开发。在 bar.clj我愿意(def base-13-joke 42)我想要 foo.clj 中的代码引用bar.clj的base-13-joke 。我该怎么做？

<小时/>

我当前的类路径(带有 ~/src/proj = /jonas/src/mine/code/move-the-box )

/home/jonas/src/mine/code/move-the-box/target/classes
/home/jonas/.m2/repository/cider/cider-nrepl/0.11.0/cider-nrepl-0.11.0.jar
/home/jonas/.m2/repository/org/tcrawley/dynapath/0.2.3/dynapath-0.2.3.jar
/home/jonas/.m2/repository/org/clojure/tools.nrepl/0.2.12/tools.nrepl-0.2.12.jar
/home/jonas/.m2/repository/clojure-complete/clojure-complete/0.2.4/clojure-complete-0.2.4.jar
/home/jonas/.m2/repository/org/clojure/clojure/1.8.0/clojure-1.8.0.jar
/usr/lib/jvm/java-7-openjdk-amd64/lib/tools.jar

我已经尝试过(add-classpath "file:///jonas/src/mine/code/move-the-box")这似乎没有效果，以及 (cider.nrepl.middleware.util.java/add-classpath! "file:///home/jonas/src/mine/code/move-the-box")抛出 IllegalArgumentException array element type mismatch java.lang.reflect.Array.set (Array.java:-2) 。那里发生了什么？

Answer 1

如果您将多个 Clojure 源文件作为单个项目使用，那么使用像 Leiningen 这样的构建工具会带来很多好处。或Boot 。例如，以下是创建一个名为 myproject 的简单启动项目的方法。具有多个源文件。

首先，创建一个myproject目录(无论在哪里)包含以下内容:

myproject
├── build.boot
└── src
    └── myproject
        ├── bar.clj
        └── foo.clj

Boot 将运行您的 build.boot文件，然后再执行其他操作(例如，运行某些代码、创建 JAR 或启动 REPL)。现在，您需要告诉 Boot 的是您的源文件将位于 src 中。目录，因此只需将此行添加到 build.boot :

(set-env! :source-paths #{"src"})

在 bar.clj ，输入您想要从其他代码访问的定义:

(ns myproject.bar)

(def base-13-joke 42)

然后，在 foo.clj ，可以引用bar.clj使用:require您的 ns 中的条款声明:

(ns myproject.foo
  (:require [myproject.bar :as bar]))

(defn make-joke []
  (println (Long/toString bar/base-13-joke 13)))

这就是全部内容了!当然，您可能想用刚刚编写的代码实际做一些事情。 Boot 通过任务来处理“做事”。让我们编写一个仅运行项目中的函数之一的程序。

当您想要定义一个通过 Boot 运行的任务时，您可以通过将定义该任务的代码添加到 build.boot 来实现。文件。不过，首先，由于我们将调用一些主要代码(在本例中为 make-joke 命名空间中的 myproject.foo 函数)，因此我们需要 require该代码。将此行添加到 build.boot :

(require '[myproject.foo :as foo])

现在我们可以定义一个简单的 run将运行我们的函数的任务(同样，在 build.boot 中):

(deftask run []
  (with-pass-thru _
    (foo/make-joke)))

with-pass-thru业务只与 Boot 中的一些任务细节有关，您可以详细阅读 here .

执行任务非常容易。从项目根目录在命令行中运行此命令:

$ boot run
33

Boot 还附带了一些内置任务。例如，如果您运行 boot repl ，您将在 boot.user 中看到熟悉的 REPL 提示符。命名空间:

boot.user=>

此命名空间与 Boot 执行 build.boot 的命名空间相同。脚本，所以既然我们有 require对于 myproject.foo在build.boot ，我们可以在 REPL 中使用该命名空间:

boot.user=> (foo/make-joke)
33
nil

当然可以require其他命名空间也是如此:

boot.user=> (require '[myproject.bar :as bar])
nil
boot.user=> bar/base-13-joke
42

您可以使用 Boot 执行更多操作，例如代码重新加载以及与 CIDER 交互，您可以在 Boot Wiki 中阅读所有相关内容。 .