edge labels in visualisation

src/wanijo/instance/viz.clj

@@ -11,10 +11,12 @@
                                {:label (-> % :source :name)})
                       (:links-in instance))
         relationships-out (map (fn [{:keys [link target schema]}]
-                                 [(:uuid instance) :> (:uuid target)])
+                                 [(:uuid instance) :> (:uuid target)
+                                  {:label (:name link)}])
                                (:links-out instance))
         relationships-in (map (fn [{:keys [link source schema]}]
-                                [(:uuid source) :> (:uuid instance)])
+                                [(:uuid source) :> (:uuid instance)
+                                 {:label (:name link)}])
                               (:links-in instance))]
     (-> [[(:uuid instance) {:label (:name instance)}]]
         (into out-nodes)