Macros 宏和带有Clojurescript的defprotocol

我正在使用clojurescript应用程序，我发现在使用消息扩展协议时，有很多样板文件是必需的

所以我决定写一个宏！现在，如果它起作用的话：/

(ns my.macros)

(defmacro state-message [msg-type app-key]
   `(extend-protocol
      Message
      ~msg-type
      (process-message [msg app]
         (let [state (app-key app)]
           (->>
             (merge state msg)
             (assoc app app-key))))))

上面的代码大概是我想写的，但是我在正确引用时遇到了一些困难。当我像

（state message m/ChangeUsername:user）

那样尝试使用它时，它给了我一个编译器错误

无效的本地名称：ohds.macros/msg

Macroexpand给了我这个，看起来不错：

(clojure.core/extend-protocol 
    ohds.server/Message
    m/ChangeUsername 
    (ohds.server/process-message [ohds.server.msg ohds.server/app]    
        (clojure.core/let [ohds.server/state (ohds.server/app-key ohds.server/app)] 
            (clojure.core/->> 
                (clojure.core/merge ohds.server/state ohds.server.msg) 
                (clojure.core/assoc ohds.server/app ohds.server/app-key)))))

---

我怀疑

msg

有问题，但我不确定如何继续。

您需要使用

gensym

s在宏中引入新的本地绑定。 以下方面应起作用：

(defmacro state-message [msg-type app-key]
 `(extend-protocol
    Message
    ~msg-type
    (~'process-message [msg# app#]
       (let [state# (~app-key app#)]
         (->>
           (merge state# msg#)
           (assoc app# ~app-key))))))