clojure - 在 Clojure 中从命令行设置调试功能

Question

我有一个这样的命名空间:

(ns foo.core)

(def ^:dynamic *debug-fn*
  "A function taking arguments [bar baz]"
  nil)

(defn bar-info
  [bar _]
  (println bar))

(defn baz-info
  [_ baz]
  (println baz))

(defn do-stuff
  [bar baz]
  (when *debug-fn* (*debug-fn* bar baz)))

(defn -main
  [& {:keys [debug-fn]}]
  (binding [*debug-fn* (symbol debug-fn)]  ;; THIS WON'T WORK!
    (do-stuff 27 42)))

我想做的是允许从命令行指定调试功能，如下所示:lein run bar-info 或 lein run baz-info。

我不确定如何将指定的字符串作为命令行参数并将其转换为命名空间限定的函数以进行绑定(bind)。我需要宏来执行此操作吗？

Answer 1

使用ns-resolve ，您将需要指定定义函数的命名空间。

user=> (defn f [n] (* n n n))
#'user/f
user=> ((ns-resolve *ns* (symbol "f")) 10)
1000