如何在clojure中简化用宏编写事务？

Question

我目前正在编写一个使用neo4j的应用程序。我有一组用于与db交互的函数。有时，功能将成为交易的一部分，有时他们不会。我的任务是用这种形式编写一堆函数：

(def some-db-operation 
  ([arg1 arg2] 
    (let [txn (create-txn)]
      (some-db-operation arg1 arg2 txn)
      (close-txn txn)))
  ([arg1 arg2 txn] (do-thing txn arg1 arg2)))

理想情况下，我想这样做：

(def-txn some-db-operation [arg1 arg2 txn]
  (do-thing arg1 arg2 txn))

它会创建第一个函数。

Answer 1

请在此处查看以下示例：

• https://github.com/wagjo/borneo/blob/master/src/borneo/core.clj#L296
• http://reference.clojureneo4j.info/clojurewerkz.neocons.rest.transaction.html#var-in-transaction

一般来说，你想拥有像(in-tx db function)

这样的东西