ビルドプロトコルClojureのマクロ

Question

私previous questionへのフォローアップとして、私はdefprotocolを構築するマクロを記述しようとしています：

：

(build-protocol AProtocol 
    [(a-method [this]) (b-method [this that])] 
    (map (fn [name] `(~(symbol (str name "-method")) [~'this ~'that ~'the-other])) 
    ["foo" "bar" "baz"]) 
    (map (fn [name] `(~(symbol (str name "-method")) [~'_])) 
    ["hello" "goodbye"])) 

(defprotocol AProtocol 
    (a-method [this]) 
    (b-method [this that]) 
    (foo-method [this that the-other]) 
    (bar-method [this that the-other]) 
    (baz-method [this that the-other]) 
    (hello-fn [_]) 
    (goodbye-fn [_])) 

私の試みに展開する必要があります

(defmacro build-protocol [name simple & complex] 
    `(defprotocol ~name ~@simple 
    ~@(loop [complex complex ret []] 
     (if (seq complex) 
      (recur (rest complex) (into ret (eval (first complex)))) 
      ret)))) 

および拡張(macroexpand-1 '(...))：

(clojure.core/defprotocol AProtocol 
    (a-method [this]) 
    (b-method [this that]) 
    (foo-method [this that the-other]) 
    (bar-method [this that the-other]) 
    (baz-method [this that the-other]) 
    (hello-method [_]) 
    (goodbye-method [_])) 

私はevalについて本当に満足していません。また、mapという表現はかなり醜いです。より良い方法がありますか？すべてのコメントは大歓迎です。

私がこの作業をしたら、(build-reify ...)のために同様のマクロを実行します。私はかなり大きなSwingアプリケーションを作成しており、いくつかのコンポーネント（JButtons、JCheckBoxなど）はほとんど同じメソッドシグネチャとアクションを持っています。

Answer 1

あなたはそれを逆さまにしていると思います。ある種のコンテナに包まれた "-method"のものをまず指定して、何が何かを知っていて、マクロ内でマップを実行させるようにします。例：

(build-protocol AProtocol 
    {[this that whatever] [foo bar baz], 
    [_] [hello goodbye]} 
    ; a-method and b-method... 
)