使用clojure liberator发出Post请求

Question

我正在使用clojure liberator将我的服务公开为REST服务，我有一个POST请求，下面是代码，我可以将调用服务的过程作为POST进行，但我想发回事件id作为POST的响应，有人能帮我吗

(defresource send-event-resource
 :method-allowed? (request-method-in :post)
  :available-media-types ["text/plain"]
  :post! (fn [context]
           (workers/send-event context)))

Answer 1

在liberator中提出了一个问题，并从那里获得了响应https://github.com/clojure-liberator/liberator/issues/61

Answer 2

将事件id放到上下文映射中，并通过handle-ok查找它：

(defresource send-event-resource
  :method-allowed? (request-method-in :post)
  :available-media-types ["text/plain"]
  :post! (fn [context] {::event-id (workers/send-event context)})
  :handle-ok ::event-id)

上面的代码利用了这样一个事实，即clojure关键字是一个函数，当应用于上下文映射时，它将查找“本身”。