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
09e2e9d6
Commit
09e2e9d6
authored
Jul 18, 2020
by
Alexandre Delanoë
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
[Graph/SideTab] Right types names
parent
2ee876fb
Changes
4
Hide whitespace changes
Inline
Side-by-side
Showing
4 changed files
with
13 additions
and
11 deletions
+13
-11
GraphExplorer.purs
src/Gargantext/Components/GraphExplorer.purs
+6
-4
Controls.purs
src/Gargantext/Components/GraphExplorer/Controls.purs
+1
-1
Sidebar.purs
src/Gargantext/Components/GraphExplorer/Sidebar.purs
+3
-3
Types.purs
src/Gargantext/Components/GraphExplorer/Types.purs
+3
-3
No files found.
src/Gargantext/Components/GraphExplorer.purs
View file @
09e2e9d6
...
...
@@ -116,9 +116,9 @@ explorerCpt = R.hooksComponent "G.C.GraphExplorer.explorer" cpt
RH.div
{ id: "graph-explorer" }
[ rowToggle
[ col [
pullLeft [ Toggle.treeToggleButton controls.showTree ]
]
, col [
Toggle.controlsToggleButton controls.showControls
]
, col [
pullRight [ Toggle.sidebarToggleButton controls.showSidePanel ]
]
[ col [
spaces [ Toggle.treeToggleButton controls.showTree ]
]
, col [
spaces [ Toggle.controlsToggleButton controls.showControls ]
]
, col [
spaces [ Toggle.sidebarToggleButton controls.showSidePanel ]
]
], R2.row
[ outer
[ inner
...
...
@@ -158,8 +158,10 @@ explorerCpt = R.hooksComponent "G.C.GraphExplorer.explorer" cpt
rowToggle = RH.div { id: "toggle-container" }
rowControls = RH.div { id: "controls-container" }
col = RH.div { className: "col-md-4" }
pullLeft = RH.div { className: "pull-left" }
pullLeft = RH.div { className: "pull-left"
}
pullRight = RH.div { className: "pull-right" }
spaces = RH.div { className: "flex-space-between" }
tree :: Record TreeProps -> R.Element
tree { show: false } = RH.div { id: "tree" } []
...
...
src/Gargantext/Components/GraphExplorer/Controls.purs
View file @
09e2e9d6
...
...
@@ -94,7 +94,7 @@ controlsCpt = R.hooksComponent "GraphControls" cpt
-- Automatic opening of sidebar when a node is selected (but only first time).
R.useEffect' $ do
if fst props.showSidePanel == GET.InitialClosed && (not Set.isEmpty $ fst props.selectedNodeIds) then
snd props.showSidePanel $ \_ -> GET.Opened GET.SideTab
Selection
snd props.showSidePanel $ \_ -> GET.Opened GET.SideTab
Data
else
pure unit
...
...
src/Gargantext/Components/GraphExplorer/Sidebar.purs
View file @
09e2e9d6
...
...
@@ -57,7 +57,7 @@ sidebarCpt = R.hooksComponent "Sidebar" cpt
pure $ RH.div {} []
cpt props@{metaData, showSidePanel} _children = do
pure $ RH.div { id: "sp-container" }
[ sideTabNav showSidePanel [SideTabLegend, SideTab
Selection, SideTabPairing
]
[ sideTabNav showSidePanel [SideTabLegend, SideTab
Data, SideTabCommunity
]
, sideTab (fst showSidePanel) props
]
...
...
@@ -83,7 +83,7 @@ sideTab (Opened SideTabLegend) props@{metaData} =
let (GET.MetaData {legend}) = metaData
in Legend.legend { items: Seq.fromFoldable legend}
sideTab (Opened SideTab
Selection
) props =
sideTab (Opened SideTab
Data
) props =
RH.div {} [ R2.row [ R2.col 12
[ RH.ul { id: "myTab", className: "nav nav-tabs", role: "tablist"}
[ RH.div { className: "tab-content" }
...
...
@@ -99,7 +99,7 @@ sideTab (Opened SideTabSelection) props =
, removeButton "Move as stop" StopTerm props nodesMap
]
]
]
, RH.div { className: "col-md-12", id: "query" }
[ query props.frontends
...
...
src/Gargantext/Components/GraphExplorer/Types.purs
View file @
09e2e9d6
...
...
@@ -192,13 +192,13 @@ intColor i = unsafePartial $ fromJust $ defaultPalette !! (i `mod` length defaul
data SidePanelState = InitialClosed | Opened SideTab | Closed
derive instance eqSidePanelState :: Eq SidePanelState
data SideTab = SideTabLegend | SideTab
Selection | SideTabPairing
data SideTab = SideTabLegend | SideTab
Data | SideTabCommunity
derive instance eqSideTab :: Eq SideTab
instance showSideTab :: Show SideTab where
show SideTabLegend = "Legend"
show SideTab
Selection = "Navigation
"
show SideTab
Pairing = "Pairing
"
show SideTab
Data = "Data
"
show SideTab
Community = "Community
"
...
...
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