Clojure中常见宏错误的解决方法

Question

基本上我对宏相当陌生，我正在尝试弄清楚如何在 Clojure 中编写宏。问题是我不断收到异常错误，并且很难弄清楚如何继续。所以我真正想知道的是我是否可以获得用于调试 Clojure 宏的任一方法（或启发式）的列表。

以我正在处理的当前问题为例，我有这个模型：

{:users [:name :email :registered-on]
 :post [:title :author]}

我想将其转换为以下形式：

(do (def new-form-users (cashew.core/new-form "/users/new" "Create a new Users"
         ["name" "email" "registered-on"] ("Name" "Email" "Registered-on"))) 
    (def new-form-post (cashew.core/new-form "/post/new" "Create a new Post"
         ["title" "author"] ("Title" "Author"))))

我为此编写了这个宏：

(defmacro gen-create-forms [model]
               `(do
                 ~@(for [[entity-kw values] model]
                        (let [entity-sym (-> entity-kw name capitalize)
                             fields (vec (map name values))]
                          `(def ~(symbol (str "new-form-" (name entity-kw))) (new-form ~(str "/" (name entity-kw) "/new") ~(str "Create a new " entity-sym) ~fields ~(map capitalize fields)))))))

但是，当我运行宏时，我得到：

java.lang.String cannot be cast to clojure.lang.IFn
  [Thrown class java.lang.ClassCastException]

我尝试调用 Macroexpand-1，但我遇到了同样的错误，让我不知道如何解决它。

本教程由 John Lawrence Aspden 提供他说：“当编译器看到一个宏（它只是一个返回一些代码的函数）时，它会运行该函数，并替换返回到程序中的代码。”促使我将宏编写为函数，该函数接受我拥有的值并输出我希望它们转换成的结果。

因此，这是有效的：

(defn gen-create-forms [model]
               `(do
                 ~@(for [[entity-kw values] model]
                        (let [entity-sym (-> entity-kw name capitalize)
                             fields (vec (map name values))]
                          `(def ~(symbol (str "new-form-" (name entity-kw))) (new-form ~(str "/" (name entity-kw) "/new") ~(str "Create a new " entity-sym) ~fields ~(map capitalize fields)))))))

(gen-create-forms {:users [:name :email :registered-on]
              :post [:title :author]})
(do (def new-form-users (cashew.core/new-form "/users/new" "Create a new Users" ["name" "email" "registered-on"] ("Name" "Email" "Registered-on"))) (def new-form-post (cashew.core/new-form "/post/new" "Create a new Post" ["title" "author"] ("Title" "Author"))))

我不确定我在这里是否正确使用了宏，或者宏是否是解决此问题的正确策略。但是，关于在编写宏时遇到异常时该怎么做的一些想法或者调试它们的好的技术将不胜感激。

编辑： mikera 引起我的注意，这不是一个很好的例子，但我的问题仍然存在。因此，重申一下如果在 clojure 中编码宏时遇到异常，您会使用什么技术？

Answer 1

就我个人而言，我不会为此使用宏 - 我建议的替代方案是：

• 避免尝试在名称空间中生成新的符号名称 - 这可能会变得混乱和复杂！
• 相反，创建一个名为“new-forms”的单一数据结构，其中包含哈希图中的所有表单。您可以使用关键字或字符串作为键，我个人会使用“：users”之类的关键字，因为您已经在模型数据结构中使用了这种方法。
• 使用以模型为参数的函数生成“new-forms”，并根据需要为模型中的每个表单调用 (cashew.core/new-form ... )
• 当您想要访问时对于特定的表单，您只需执行 (new-forms :users) 或类似操作即可从哈希映射中读取适当的表单。