Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
P
purescript-gargantext
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
Grégoire Locqueville
purescript-gargantext
Commits
61a674c6
Commit
61a674c6
authored
Oct 28, 2021
by
Przemyslaw Kaminski
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
[sidebar] fix duplicated tag cloud
parent
6dc2cbfe
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
7 additions
and
5 deletions
+7
-5
Sidebar.purs
src/Gargantext/Components/GraphExplorer/Sidebar.purs
+7
-5
No files found.
src/Gargantext/Components/GraphExplorer/Sidebar.purs
View file @
61a674c6
...
@@ -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 {}
]
]
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment