从 clojure 宏返回多个值

Question

我需要向我正在为几个相同的 Swing 组件编写的 Clojure defprotocol 添加几个方法：

(defprotocol view-methods
  (ok-button-add-action-listener     [this listener])
  (ok-button-set-enabled             [this enabled])
  (ok-button-set-selected            [this selected])
  (cancel-button-add-action-listener [this listener])
  (cancel-button-set-enabled         [this enabled])
  (cancel-button-set-selected        [this selected])
  (other-button-add-action-listener  [this listener])
  (other-button-set-enabled          [this enabled])
  (other-button-set-selected         [this selected]))

有什么方法可以编写一个宏来返回所有三个方法签名（xxx-button-add-action-listener、xxx-button-set-enabled、xxx-button-set-selected）？

(defprotocol view-methods
  (add-methods ok)
  (add-methods cancel)
  (add-methods other))

此宏需要在每次调用时将三个项目添加到不断增长的defprotocol。

宏能否返回`~@a-list 并“就地”展开？

Answer 1

是的，您只需要将宏展开到 (do ...) 中，Clojure 编译器会将 do 子代作为一系列顶级表单进行线程化。

Answer 2

我认为宏必须扩展为单一形式 - 因此您无法按照您所描述的方式执行此操作。

但是，一切都没有丢失，因为它当然可以在顶层使用如下所示的宏来编写：

(defmacro build-button-protocol [name & method-specs]
    ....)

你可以使用如下：

(build-button-protocol view-methods
  (add-methods ok)
  (add-methods cancel)
  (add-methods other))