clojure - 在 Clojure 中代理命名参数的惯用方法

Question

我需要一个薄薄地包裹 amazonica 的函数的 sqs/receive-message 以添加默认等待时间。该函数需要一个队列 URL，然后接受任意数量的可选命名参数，这些参数应原封不动地传递到 sqs/receive-message 。我想这样调用它:

(my-receive-message "https://sqs.us-east-1.amazonaws.com/123/test-q"
                    :max-number-of-messages 10
                    :delete true)

这应该会导致对 sqs/receive-message 的调用，如下所示:

(sqs/receive-message :queue-url "https://sqs.us-east-1.amazonaws.com/123/test-q"
                     :wait-time-seconds 20
                     :max-number-of-messages 10
                     :delete true)

这是我经常想做的事情，但我还没有找到一个好的方法。有没有惯用的方法来做到这一点？

Answer 1

对合并的参数使用apply。

(defn my-receive-message
  [url & {:as args}]
  (apply sqs/receive-message (-> {:queue-url url
                                  :wait-time-seconds 20}
                                 (merge args)
                                 seq 
                                 flatten)))