edge labels in visualisation

7 years ago · 17fdd6c30b
parent 15b5fe3bb5
commit 17fdd6c30b
1 changed files with 4 additions and 2 deletions
--- a/src/wanijo/instance/viz.clj
+++ b/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)