如何在clojure Web应用程序中有条件地加载功能

Question

如何避免在生产uberjar中加载此代码，但仍然可以从开发和测试期间运行时的动态重新编译中受益？

Answer 1

Leiningen中的:source-paths键决定检查哪些目录以获取Clojure源代码。使用:source-paths的每个环境设置，可以防止在已删除的Uberjar中包含不需要的名称空间。

下一个难题是确保您的代码不依赖于生产实例上的dev代码。这可以在环境库的帮助下完成。

; excerpt of project.clj
(defproject your-org/your-project "version"
   :source-paths ["src"] ; the main source location
   :profiles {:dev {:source-paths ["dev-src"] ; added directory
                    :env {:dev "true"}}}
 ...)

; excerpt of project code for src/your_org/your_project.clj
(ns your-org.your-project
  (:require environ.core :refer [env]))

(def maybe-launch-optional-thing
  (if (= (env :dev) "true") ; checking a profile specific value
   (do (require 'dev-only-dep.core)
       (resolve 'dev-only-dep/launch))
   (constantly nil))

...

(defn -main
  [& args]  
  (maybe-launch-optional-thing)
  ...)

如果包装需要，以及解析，确保此代码有效，无论dev-only-dep.core是否可用。maybe-launing-optional-thing绑定到:dev配置文件下的可选命名空间中的适当函数，否则是不可操作的。