clojure - 有没有办法在不修改资源的情况下通过额外的决定来扩展解放者资源？

Question

defresource我想通过额外的决定来扩展现有的。

假设我有（请注意，这不是实际代码，而是展示我正在尝试做的事情的示例）：

(defresource get-something [{:keys [service]} ctx]
  resource-defaults
  :allowed-methods [:get]
  :authorized? (authorized? ctx)
  :exists? (fn [_]
             true)
  :handle-ok (fn [{:keys [::result]}]
               result))

然后我想“扩展”get-something一个额外的决定，例如

malformed? (fn [_] false)

“扩展”是指将决策添加到处理程序的工作流程而不修改get-something，从而获得使用所有决策的资源。

(resource
    (get-something service ctx)
    malformed? (fn [_] false))

甚至可能吗？

Answer 1

最后，资源定义是地图和数据，可以这样操作：

(def get-something 
  (merge resource-defaults
         { :allowed-methods [:get]
           :authorized? #authorized?
           :exists? true
           :handle-ok ::result}))


(defresource get-something-handler get-resource)
(defresource get-something-extended-handler get-resource :malformed? false)

;; or

(defresource get-something-extended-handler 
   (merge get-resource {:malformed? false})