[Graph] some more controls added

src/Gargantext/Components/GraphExplorer/Controls.purs

@@ -21,7 +21,7 @@ import Reactix as R
 import Reactix.DOM.HTML as RH
 
 import Gargantext.Components.Graph as Graph
-import Gargantext.Components.GraphExplorer.SlideButton (labelSizeButton, nodeSizeButton)
+import Gargantext.Components.GraphExplorer.SlideButton (cursorSizeButton, labelSizeButton, nodeSizeButton)
 import Gargantext.Components.GraphExplorer.ToggleButton (edgesToggleButton)
 import Gargantext.Utils.Reactix as R2
 
@@ -38,10 +38,13 @@ type Controls =
   )
 
 controlsToSigmaSettings :: Record Controls -> Record Graph.SigmaSettings
-controlsToSigmaSettings { labelSize: (labelSize /\ _)
+controlsToSigmaSettings { cursorSize: (cursorSize /\ _)
+                        , labelSize: (labelSize /\ _)
                         , nodeSize: (nodeSize /\ _)
                         , showEdges: (showEdges /\ _)} = Graph.sigmaSettings {
     drawEdges = showEdges
+  , drawEdgeLabels = showEdges
+  , hideEdgesOnMove = not showEdges
   , labelMaxSize = labelSize
   , maxEdgeSize = if showEdges then 1.0 else 0.0
   , maxNodeSize = nodeSize
@@ -69,7 +72,7 @@ controlsCpt = R.hooksComponent "GraphControls" cpt
                   -- run demo
                   -- search button
                   -- search topics
-                  -- cursor size: 0-100
+                , RH.li {} [ cursorSizeButton props.cursorSize ] -- cursor size: 0-100
                 , RH.li {} [ labelSizeButton props.labelSize ] -- labels size: 1-4
                 , RH.li {} [ nodeSizeButton props.nodeSize ] -- node size : 5-15
                   -- edge size : ??

src/Gargantext/Components/GraphExplorer/SlideButton.purs

 module Gargantext.Components.GraphExplorer.SlideButton
   ( Props
   , sizeButton
+  , cursorSizeButton
   , labelSizeButton
   , nodeSizeButton
   ) where
@@ -35,6 +36,10 @@ sizeButtonCpt = R.hooksComponent "SizeButton" cpt
                     }
           ]
 
+cursorSizeButton :: R.State Number -> R.Element
+cursorSizeButton state =
+  sizeButton { state: state, caption: "Cursor Size", min: 1.0, max: 4.0 }
+
 labelSizeButton :: R.State Number -> R.Element
 labelSizeButton state =
   sizeButton { state: state, caption: "Label Size", min: 1.0, max: 4.0 }

src/Gargantext/Components/GraphExplorer/ToggleButton.purs

 module Gargantext.Components.GraphExplorer.ToggleButton
   ( Props, toggleButton, toggleButtonCpt
-  , treeToggleButton
   , controlsToggleButton
-  , sidebarToggleButton
   , edgesToggleButton
+  , sidebarToggleButton
+  , treeToggleButton
   ) where
 
 import Prelude
@@ -31,19 +31,18 @@ toggleButtonCpt = R.hooksComponent "ToggleButton" cpt
     text on _off true = on
     text _on off false = off
 
-treeToggleButton :: R.State Boolean -> R.Element
-treeToggleButton state =
-  toggleButton { state: state, onMessage: "Hide Tree", offMessage: "Show Tree" }
-
 controlsToggleButton :: R.State Boolean -> R.Element
 controlsToggleButton state =
   toggleButton { state: state, onMessage: "Hide Controls", offMessage: "Show Controls" }
 
-sidebarToggleButton :: R.State Boolean -> R.Element
-sidebarToggleButton state =
-  toggleButton { state: state, onMessage: "Hide Sidebar", offMessage: "Show Sidebar" }
-
 edgesToggleButton :: R.State Boolean -> R.Element
 edgesToggleButton state =
   toggleButton { state: state, onMessage: "Hide Edges", offMessage: "Show Edges" }
 
+treeToggleButton :: R.State Boolean -> R.Element
+treeToggleButton state =
+  toggleButton { state: state, onMessage: "Hide Tree", offMessage: "Show Tree" }
+
+sidebarToggleButton :: R.State Boolean -> R.Element
+sidebarToggleButton state =
+  toggleButton { state: state, onMessage: "Hide Sidebar", offMessage: "Show Sidebar" }