[graph] order related terms by edge weight, not by node.size

src/Gargantext/Components/GraphExplorer/Sidebar.purs

@@ -515,9 +515,15 @@ neighborhoodCpt = R.memo' $ here.component "neighborhood" cpt
     R.useEffect1' selectedNodeIds' do
       let refreshed = neighbourBadges graph' selectedNodeIds'
       let count = Seq.length refreshed
-      let ordered = A.sortWith (\n -> -n.size) $ Seq.toUnfoldable refreshed
+      -- let ordered = A.sortWith (\n -> -n.size) $ Seq.toUnfoldable refreshed
+
+      let neighbours' = neighbourBadges graph' selectedNodeIds'
+      let edges' = SigmaxT.neighboringEdges graph' selectedNodeIds'
+      let edgesSorted = A.sortWith (\e -> -e.weight) $ A.fromFoldable edges'
+      let neighboursSorted = (\e -> if Set.member e.source selectedNodeIds' then e.targetNode else e.sourceNode) <$> edgesSorted
+
       T.write_ (count - 1) termCountBox
-      T.write_ ordered termListBox
+      T.write_ neighboursSorted termListBox
       T.write_ false showMoreBox
 
     -- | Render