Commit 7d4da0dd authored by Alexandre Delanoë's avatar Alexandre Delanoë

[FIX] GraphExplorer tab badges + footer

parent 6074c87e
...@@ -345,6 +345,6 @@ footerCpt = R2.hooksComponent thisModule "footer" cpt ...@@ -345,6 +345,6 @@ footerCpt = R2.hooksComponent thisModule "footer" cpt
pure $ H.div pure $ H.div
{ className: "container" } { className: "container" }
[ H.hr {} [ H.hr {}
, H.footer {} [ license ] , H.footer {} []
] ]
...@@ -90,37 +90,38 @@ sideTab (Opened SideTabLegend) props@{metaData} = ...@@ -90,37 +90,38 @@ sideTab (Opened SideTabLegend) props@{metaData} =
sideTab (Opened SideTabData) props = sideTab (Opened SideTabData) props =
RH.div {} [ R2.row [ R2.col 12 RH.div {} [ R2.row [ R2.col 12
[ RH.ul { id: "myTab", className: "nav nav-tabs", role: "tablist"} [ RH.ul { id: "myTab", className: "nav nav-tabs", role: "tablist"}
[ RH.div { className: "tab-content" } [ RH.div { className: "tab-content" }
[ RH.div { className: "", role: "tabpanel" } [ RH.div { className: "", role: "tabpanel" }
( Seq.toUnfoldable ( Seq.toUnfoldable
$ ( Seq.map (badge props.selectedNodeIds) $ ( Seq.map (badge props.selectedNodeIds)
(badges props.graph props.selectedNodeIds) (badges props.graph props.selectedNodeIds)
) )
) )
] ]
, RH.div { className: "tab-content flex-space-between" } , RH.div { className: "tab-content flex-space-between" }
[ removeButton "Move as candidate" CandidateTerm props nodesMap [ removeButton "Move as candidate" CandidateTerm props nodesMap
, removeButton "Move as stop" StopTerm props nodesMap , removeButton "Move as stop" StopTerm props nodesMap
]
]
] ]
]
] , RH.div { className: "tab-content", id: "myTabContent" }
[ RH.div { className: "", id: "home", role: "tabpanel" }
, RH.div { className: "col-md-12", id: "query" } (Seq.toUnfoldable $ Seq.map (badge props.selectedNodeIds)
[ query SearchDoc $ neighbourBadges props.graph props.selectedNodeIds
props.frontends )
props.metaData ]
props.session
nodesMap , RH.div { className: "col-md-12", id: "query" }
props.selectedNodeIds [ query SearchDoc
] props.frontends
] props.metaData
] props.session
, RH.div { className: "tab-content", id: "myTabContent" } nodesMap
[ RH.div { className: "", id: "home", role: "tabpanel" } props.selectedNodeIds
(Seq.toUnfoldable $ (Seq.map (badge props.selectedNodeIds) (neighbourBadges props.graph props.selectedNodeIds))) ]
] ]
]
where where
nodesMap = SigmaxT.nodesGraphMap props.graph nodesMap = SigmaxT.nodesGraphMap props.graph
......
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