📎 Add service result wrapper

Allows attach metadata to values that does not implement the IObj
clojure interface.

backend/src/app/rpc.clj

@@ -31,9 +31,10 @@
 
 (defn- handle-response-transformation
   [response request mdata]
-  (if-let [transform-fn (:transform-response mdata)]
+  (let [response (if (sv/wrapped? response) @response response)]
-    (p/do (transform-fn request response))
+    (if-let [transform-fn (:transform-response mdata)]
-    (p/resolved response)))
+      (p/do (transform-fn request response))
+      (p/resolved response))))
 
 (defn- handle-before-comple-hook
   [response mdata]

backend/src/app/util/services.clj

@@ -11,6 +11,20 @@
    [app.common.data :as d]
    [cuerdas.core :as str]))
 
+(defrecord WrappedValue [obj]
+  clojure.lang.IDeref
+  (deref [_] obj))
+
+(defn wrap
+  ([]
+   (WrappedValue. nil))
+  ([o]
+   (WrappedValue. o)))
+
+(defn wrapped?
+  [o]
+  (instance? WrappedValue o))
+
 (defmacro defmethod
   [sname & body]
   (let [[docs body]  (if (string? (first body))

backend/test/app/test_helpers.clj

@@ -23,6 +23,7 @@
    [app.rpc.mutations.projects :as projects]
    [app.rpc.mutations.teams :as teams]
    [app.util.blob :as blob]
+   [app.util.services :as sv]
    [app.util.time :as dt]
    [clojure.java.io :as io]
    [clojure.spec.alpha :as s]
@@ -278,8 +279,10 @@
 (defmacro try-on!
   [expr]
   `(try
-     {:error nil
+     (let [result# (deref ~expr)
-      :result (deref ~expr)}
+           result# (cond-> result# (sv/wrapped? result#) deref)]
+       {:error nil
+        :result result#})
      (catch Exception e#
        {:error (handle-error e#)
         :result nil})))