From 17fdd6c30bcae6d41dc5a269e9fe73e81563ba87 Mon Sep 17 00:00:00 2001 From: Josha von Gizycki Date: Wed, 16 Jan 2019 17:15:53 +0100 Subject: [PATCH] edge labels in visualisation --- src/wanijo/instance/viz.clj | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/wanijo/instance/viz.clj b/src/wanijo/instance/viz.clj index 82f340a..e88711f 100644 --- 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)