Add FactoryDescription protocol

src/darkleaf/di/core.clj

@@ -517,7 +517,8 @@
           f-key          (symbol (str prefix "-f"))
           arg-keys       (for [i (-> args count range)]
                            (symbol (str prefix "-arg#" i)))
-          new-factory    (reify p/Factory
+          new-factory    (reify
+                           p/Factory
                            (dependencies [_]
                              (zipmap (concat [new-key f-key] arg-keys)
                                      (repeat :optional)))
@@ -526,7 +527,12 @@
                                    f    (deps f-key)
                                    args (map deps arg-keys)]
                                (apply f t args)))
-                           (demolish [_ _]))
+                           (demolish [_ _])
+                           p/FactoryDescription
+                           (description [_]
+                             {:kind       :middleware
+                              :middleware ::update-key
+                              :target     target}))
           own-registry   (zipmap (cons f-key arg-keys)
                                  (cons f     args))
           target-factory (registry target)]
@@ -624,7 +630,18 @@
     (demolish [_ _])))
 
 (defn- var->0-service [variable]
-  variable)
+  ;; todo: meta ::service
+
+  (reify
+    p/Factory
+    (dependencies [_])
+    (build [_ _]
+      variable)
+    (demolish [_ _])
+    p/FactoryDescription
+    (description [_]
+      {:kind :service
+       :var  variable})))
 
 (defn- var->service [variable]
   (let [deps (dependencies-fn variable)]
@@ -673,6 +690,13 @@
   (build [this _] this)
   (demolish [_ _] nil))
 
+(extend-protocol p/FactoryDescription
+  nil
+  (description [_] {})
+
+  Object
+  (description [_] {}))
+
 (c/derive ::root     ::instance)
 (c/derive ::template ::instance)
 (c/derive ::service  ::instance)
@@ -836,7 +860,8 @@
             info          (into {}
                                 (filter (fn [[k v]] (some? v)))
                                 {:key          key
-                                 :dependencies declared-deps})]
+                                 :dependencies (not-empty declared-deps)
+                                 :description  (not-empty (p/description factory))})]
         (reify p/Factory
           (dependencies [_]
             declared-deps)

src/darkleaf/di/protocols.clj

@@ -18,3 +18,7 @@
     "Builds an object from dependencies.")
   (demolish [this obj]
     "Demolishes or stops an object."))
+
+(defprotocol FactoryDescription
+  (description [this]
+    "Returns map with factory description."))

test/darkleaf/di/tutorial/x_inspect_test.clj

@@ -14,12 +14,41 @@
           :or {b :default}}]
   :ok)
 
+
+(t/deftest zero-arity-service-test
+  (t/is (= [{:key          ::di/implicit-root
+             :dependencies {`a :required}}
+            {:key         `a
+             :description {:kind :service
+                           :var  #'a}}]
+           (di/inspect `a))))
+
+
+;; todo: name
 (t/deftest ok
   (t/is (= [{:key          ::di/implicit-root
              :dependencies {`c :required}}
             {:key          `c
              :dependencies {`a :required `b :optional}}
-            {:key `a}
+            {:key         `a
+             :description {:kind :service
+                           :var  #'a}}
             {:key          `b
              :dependencies {`a :required}}]
            (di/inspect `c))))
+
+
+(t/deftest update-key-test
+  (t/is (= [{:key          ::di/implicit-root,
+             :dependencies {`a :required}}
+            {:key          `a,
+             :dependencies {`a+di-update-key#0-target :optional,
+                            `a+di-update-key#0-f      :optional}
+             :description  {:kind       :middleware
+                            :middleware ::di/update-key
+                            :target     `a}}
+            {:key         `a+di-update-key#0-target
+             :description {:kind :service
+                           :var  #'a}}
+            {:key `a+di-update-key#0-f}]
+           (di/inspect `a (di/update-key `a str)))))