Commit 61a674c6 authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski

[sidebar] fix duplicated tag cloud

parent 6dc2cbfe
...@@ -184,10 +184,6 @@ selectedNodesCpt = here.component "selectedNodes" cpt ...@@ -184,10 +184,6 @@ selectedNodesCpt = here.component "selectedNodes" cpt
{ selectedNodeIds } <- GEST.focusedSidePanel sidePanelGraph { selectedNodeIds } <- GEST.focusedSidePanel sidePanelGraph
selectedNodeIds' <- T.useLive T.unequal selectedNodeIds selectedNodeIds' <- T.useLive T.unequal selectedNodeIds
let badges' = neighbourBadges graph selectedNodeIds'
minSize = F.foldl Math.min 0.0 (Seq.map _.size (SigmaxT.graphNodes graph))
maxSize = F.foldl Math.max 0.0 (Seq.map _.size (SigmaxT.graphNodes graph))
pure $ R2.row pure $ R2.row
[ R2.col 12 [ R2.col 12
[ RH.ul { className: "nav nav-tabs d-flex justify-content-center" [ RH.ul { className: "nav nav-tabs d-flex justify-content-center"
...@@ -197,7 +193,13 @@ selectedNodesCpt = here.component "selectedNodes" cpt ...@@ -197,7 +193,13 @@ selectedNodesCpt = here.component "selectedNodes" cpt
[ RH.div { className: "d-flex flex-wrap justify-content-center" [ RH.div { className: "d-flex flex-wrap justify-content-center"
, role: "tabpanel" } , role: "tabpanel" }
( Seq.toUnfoldable ( Seq.toUnfoldable
$ ( Seq.map (\node -> badge { maxSize, minSize, node, selectedNodeIds }) badges') $ ( Seq.map (\node -> badge { minSize: node.size -- same size for all badges
, maxSize: node.size
, node
, selectedNodeIds })
(badges graph selectedNodeIds')
)
-- $ ( Seq.map (\node -> badge { maxSize, minSize, node, selectedNodeIds }) badges')
) )
, H.br {} , H.br {}
] ]
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment