[WIP] merging

package.json

@@ -36,6 +36,8 @@
     "create-react-class": "~15.6.3",
     "crypto": "~1.0.1",
     "d3": "~7.6.1",
+    "debounce": "^2.0.0",
+    "debouncing": "^22.7.25",
     "echarts": "~5.1.2",
     "echarts-for-react": "~3.0.1",
     "graphology": "~0.25.1",
@@ -50,6 +52,7 @@
     "isomorphic-unfetch": "~3.1.0",
     "markdown-it": "~13.0.1",
     "prop-types": "~15.6.2",
+    "pullstate": "~1.20.6",
     "react": "~18.2.0",
     "react-awesome-popover": "~6.1.1",
     "react-bootstrap": "~1.5.2",
@@ -58,6 +61,7 @@
     "secp256k1": "~4.0.2",
     "sigma": "~2.4.0",
     "twgl.js": "~5.0.4",
+    "use-debounce": "^10.0.0",
     "uuid": "8.3.2"
   },
   "devDependencies": {

spago.lock

@@ -3,7 +3,7 @@ workspace:
     gargantext:
       path: ./
       dependencies:
-        - aff
+        - aff: ">=7.1.0 <8.0.0"
         - aff-promise: ">=4.0.0 <5.0.0"
         - affjax: ">=13.0.0 <14.0.0"
         - affjax-web: ">=1.0.0 <2.0.0"
@@ -21,6 +21,8 @@ workspace:
         - d3: "*"
         - data-default: "*"
         - datetime: ">=6.1.0 <7.0.0"
+        - debouncing: ">=0.1.0 <0.2.0"
+        - debug: ">=6.0.2 <7.0.0"
         - dom-filereader: ">=7.0.0 <8.0.0"
         - dom-simple: ">=0.4.0 <0.5.0"
         - effect: ">=4.0.0 <5.0.0"
@@ -57,7 +59,7 @@ workspace:
         - profunctor-lenses: ">=8.0.0 <9.0.0"
         - random: ">=6.0.0 <7.0.0"
         - react: ">=11.0.0 <12.0.0"
-        - reactix: ">=0.6.0 <0.7.0"
+        - reactix: ">=0.6.1 <0.7.0"
         - record: ">=4.0.0 <5.0.0"
         - record-extra: ">=5.0.1 <6.0.0"
         - routing: ">=11.0.0 <12.0.0"
@@ -117,6 +119,8 @@ workspace:
         - d3
         - data-default
         - datetime
+        - debouncing
+        - debug
         - distributive
         - dom-filereader
         - dom-simple
@@ -232,7 +236,7 @@ workspace:
         - web-xhr
   package_set:
     address:
-      registry: 50.11.0
+      registry: 50.13.1
     compiler: ">=0.15.15 <0.16.0"
     content:
       abc-parser: 2.0.1
@@ -247,6 +251,7 @@ workspace:
       affjax-node: 1.0.0
       affjax-web: 1.0.0
       ansi: 7.0.0
+      apexcharts: 0.5.0
       applicative-phases: 1.0.0
       argonaut: 9.0.0
       argonaut-aeson-generic: 0.4.1
@@ -308,6 +313,7 @@ workspace:
       coroutines: 7.0.0
       css: 6.0.0
       css-frameworks: 1.0.1
+      csv-stream: 1.1.7
       data-mvc: 0.0.2
       datetime: 6.1.0
       datetime-parsing: 0.2.0
@@ -545,7 +551,7 @@ workspace:
       pointed-list: 0.5.1
       polymorphic-vectors: 4.0.0
       posix-types: 6.0.0
-      postgresql: 1.3.0
+      postgresql: 1.5.1
       precise: 6.0.0
       precise-datetime: 7.0.0
       prelude: 6.0.1
@@ -726,12 +732,14 @@ workspace:
     data-default:
       git: https://github.com/garganscript/purescript-data-default.git
       ref: v0.4.0
+    debouncing: 0.1.2
     graphql-client:
       git: https://github.com/garganscript/purescript-graphql-client.git
       ref: spago-next-9.3.2
     markdown-it:
       git: https://github.com/garganscript/purescript-markdown-it.git
       ref: spago-next
+    reactix: 0.6.1
     sequences:
       git: https://github.com/garganscript/purescript-sequences.git
       ref: v3.0.2-spago-next
@@ -1048,6 +1056,20 @@ packages:
       - partial
       - prelude
       - tuples
+  debouncing:
+    type: registry
+    version: 0.1.2
+    integrity: sha256-2Ajskjmc+r3gnpcv6L8U4BfiSKj4N7sCINiBD99RjO8=
+    dependencies:
+      - effect
+      - prelude
+  debug:
+    type: registry
+    version: 6.0.2
+    integrity: sha256-vmkYFuXYuELBzeauvgHG6E6Kf/Hp1dAnxwE9ByHfwSg=
+    dependencies:
+      - functions
+      - prelude
   distributive:
     type: registry
     version: 6.0.0
@@ -1822,8 +1844,8 @@ packages:
       - unsafe-coerce
   reactix:
     type: registry
-    version: 0.6.0
-    integrity: sha256-gaF3igbCsTmaGxfbykWaBcyv4n7AHVmQRstZ/msNfJw=
+    version: 0.6.1
+    integrity: sha256-mM6JZFWfeMhgMJa9oGdzNchkp/Xcnv2e/oGc0nZp6EQ=
     dependencies:
       - dom-simple
       - effect

spago.yaml

 workspace:
   packageSet:
-    registry: 50.11.0
+    registry: 50.13.1
   extraPackages:
     # garganscript packages
     d3:
       git: https://github.com/garganscript/purescript-d3.git
       ref: v0.11.0
+    debouncing: 0.1.2
+    reactix: 0.6.1
     string-search:
       git: https://gitlab.iscpif.fr/gargantext/purescript-string-search.git
       ref: spago-next
@@ -37,10 +39,7 @@ package:
   name: gargantext
   dependencies:
     # debugging
-    # - debug: ">=6.0.2 <7.0.0"
-    # - psci-support: ">=6.0.0 <7.0.0"
-    
-    - aff
+    - aff: ">=7.1.0 <8.0.0"
     - aff-promise: ">=4.0.0 <5.0.0"
     - affjax: ">=13.0.0 <14.0.0"
     - affjax-web: ">=1.0.0 <2.0.0"
@@ -58,6 +57,8 @@ package:
     - d3: "*"
     - data-default: "*"
     - datetime: ">=6.1.0 <7.0.0"
+    - debouncing: ">=0.1.0 <0.2.0"
+    - debug: ">=6.0.2 <7.0.0"
     - dom-filereader: ">=7.0.0 <8.0.0"
     - dom-simple: ">=0.4.0 <0.5.0"
     - effect: ">=4.0.0 <5.0.0"
@@ -94,7 +95,7 @@ package:
     - profunctor-lenses: ">=8.0.0 <9.0.0"
     - random: ">=6.0.0 <7.0.0"
     - react: ">=11.0.0 <12.0.0"
-    - reactix: ">=0.6.0 <0.7.0"
+    - reactix: ">=0.6.1 <0.7.0"
     - record: ">=4.0.0 <5.0.0"
     - record-extra: ">=5.0.1 <6.0.0"
     - routing: ">=11.0.0 <12.0.0"
@@ -140,7 +141,6 @@ package:
       - UnusedName
       - UnusedTypeVar
 
-
   test:
     main: Test.Main
     dependencies:

src/Gargantext/Components/GraphExplorer/Layout.purs

@@ -235,6 +235,8 @@ graphViewCpt = R.memo' $ here.component "graphView" cpt where
       , sigmaRef
       } _ = do
 
+    -- { edgeConfluence, edgeWeight } <- GraphStore.use
+    
     -- edgeConfluence'     <- R2.useLive' edgeConfluence
     -- edgeWeight'         <- R2.useLive' edgeWeight
     -- nodeSize'           <- R2.useLive' nodeSize
@@ -410,7 +412,11 @@ hooksTransformGraph = do
   params <- transformGraphStoreParams
   graph' <- R2.useLive' store.graph
 
+  -- R.useEffect' $ do
+  --   here.log2 "[hooksTransformGraph] hashed" $ hashLiveProps params
+
   R.useEffect2' (hashLiveProps params) graph' $ do
+    -- here.log2 "[hooksTransformGraph] transformed" $ transformGraph graph' params
     T.write_ (transformGraph graph' params) store.transformedGraph
 
 transformGraph :: SigmaxT.SGraph -> Record LiveProps -> SigmaxT.SGraph
@@ -450,8 +456,8 @@ transformGraph graph { edgeConfluence'
         edge { hidden = true }
 
     edgeHideWeight :: Record SigmaxT.Edge -> Record SigmaxT.Edge
-    edgeHideWeight edge@{ weightIdx } =
-      if Range.within edgeWeight' $ toNumber weightIdx then
+    edgeHideWeight edge@{ weight } =
+      if Range.within edgeWeight' weight then
         edge
       else
         edge { hidden = true }

src/Gargantext/Components/GraphExplorer/Store.purs

@@ -44,6 +44,7 @@ type Store =
   , edgeConfluence             :: T.Box Range.NumberRange
   , edgeConfluenceRange        :: T.Box Range.NumberRange
   , edgeWeight                 :: T.Box Range.NumberRange
+  , edgeWeightRange            :: T.Box Range.NumberRange
   , forceAtlasState            :: T.Box SigmaxT.ForceAtlasState
   , noverlapState              :: T.Box SigmaxT.NoverlapState
   , graphStage                 :: T.Box GET.Stage
@@ -79,6 +80,7 @@ type State =
   , edgeConfluence             :: Range.NumberRange
   , edgeConfluenceRange        :: Range.NumberRange
   , edgeWeight                 :: Range.NumberRange
+  , edgeWeightRange            :: Range.NumberRange
   , forceAtlasState            :: SigmaxT.ForceAtlasState
   , noverlapState              :: SigmaxT.NoverlapState
   , graphStage                 :: GET.Stage
@@ -109,6 +111,7 @@ options ::
   , mouseSelectorSize          :: Number
   , multiSelectEnabled         :: Boolean
   , edgeConfluence             :: Range.NumberRange
+  , edgeWeight                 :: Range.NumberRange
   , graphStage                 :: GET.Stage
   , nodeSize                   :: Range.NumberRange
   --, showLouvain                :: Boolean
@@ -131,6 +134,7 @@ options =
   , labelRenderedSizeThreshold : 2.0
   , mouseSelectorSize          : 15.0
   , edgeConfluence             : Range.Closed { min: 0.0, max: 1.0 }
+  , edgeWeight                 : Range.Closed { min: 0.0, max: 1.0 }
   , graphStage                 : GET.Init
   , nodeSize                   : Range.Closed { min: 0.0, max: 100.0 }
   --, showLouvain                : false

src/Gargantext/Components/GraphExplorer/Toolbar/Controls.purs

@@ -11,7 +11,7 @@ import Effect.Timer (setTimeout)
 import Gargantext.Components.Bootstrap as B
 import Gargantext.Components.GraphExplorer.Store as GraphStore
 import Gargantext.Components.GraphExplorer.Toolbar.Buttons (cameraButton, centerButton, edgesToggleButton, louvainButton, pauseForceAtlasButton, pauseNoverlapButton, multiSelectEnabledButton)
-import Gargantext.Components.GraphExplorer.Toolbar.RangeControl (edgeConfluenceControl, nodeSizeControl)
+import Gargantext.Components.GraphExplorer.Toolbar.RangeControl (edgeConfluenceControl, edgeWeightControl, nodeSizeControl)
 import Gargantext.Components.GraphExplorer.Toolbar.SlideButton (labelSizeButton, labelRenderedSizeThresholdButton, mouseSelectorSizeSlider)
 import Gargantext.Components.GraphExplorer.Types as GET
 import Gargantext.Hooks.Sigmax.ForceAtlas2 as ForceAtlas
@@ -52,7 +52,8 @@ controlsCpt = R.memo' $ here.component "controls" cpt where
     -- |
     { edgeConfluence
     , edgeConfluenceRange
-    -- , edgeWeight
+    , edgeWeight
+    , edgeWeightRange
     , forceAtlasState
     , noverlapState
     , graph
@@ -80,6 +81,7 @@ controlsCpt = R.memo' $ here.component "controls" cpt where
     selectedNodeIds'      <- R2.useLive' selectedNodeIds
     showSidebar'          <- R2.useLive' showSidebar
     edgeConfluenceRange'  <- R2.useLive' edgeConfluenceRange
+    edgeWeightRange'      <- R2.useLive' edgeWeightRange
     nodeSizeRange'        <- R2.useLive' nodeSizeRange
 
     -- session <- useSession
@@ -207,12 +209,10 @@ controlsCpt = R.memo' $ here.component "controls" cpt where
               }
             ,
               gap, gap
-            ,
-              labelRenderedSizeThresholdButton
-              { forceAtlasState
-              , sigmaRef
-              , state: labelRenderedSizeThreshold
-              }
+             , edgeWeightControl
+                { forceAtlasState
+                , range: edgeWeightRange'
+                , state: edgeWeight }
             ]
           ,
             -- Run spatialization
@@ -321,12 +321,12 @@ controlsCpt = R.memo' $ here.component "controls" cpt where
                   { forceAtlasState
                   , range: edgeConfluenceRange'
                   , state: edgeConfluence }
-                {- ,
-                  edgeWeightControl
-                  { forceAtlasState
-                  , range: edgeWeightRange
-                  , state: edgeWeight }
-                -}
+                 , gap
+                 , labelRenderedSizeThresholdButton
+                   { forceAtlasState
+                   , sigmaRef
+                   , state: labelRenderedSizeThreshold
+                   }
                 ,
                   gap, gap
                 ,

src/Gargantext/Components/GraphExplorer/Toolbar/RangeControl.purs

@@ -6,19 +6,29 @@ module Gargantext.Components.GraphExplorer.Toolbar.RangeControl
   , nodeSizeControl
   ) where
 
+import Data.Maybe (Maybe(..))
+import Data.Tuple.Nested((/\))
+import Debug (spy)
+import Effect.Aff (launchAff_)
+import Effect.Class (liftEffect)
+import Effect.Debouncing as Debounce
+import FFI.Simple (delay)
+import Gargantext.Components.RangeSlider as RS
+import Gargantext.Hooks.Sigmax.Types as SigmaxTypes
+import Gargantext.Utils.Range as Range
+import Gargantext.Utils.Reactix as R2
 import Prelude
 import Reactix as R
 import Reactix.DOM.HTML as H
 import Toestand as T
 
-import Gargantext.Components.RangeSlider as RS
-import Gargantext.Hooks.Sigmax.Types as SigmaxTypes
-import Gargantext.Utils.Range as Range
-import Gargantext.Utils.Reactix as R2
 
 here :: R2.Here
 here = R2.here "Gargantext.Components.GraphExplorer.Toolbar.RangeControl"
 
+defaultThrottleInterval :: Int
+defaultThrottleInterval = 500
+
 type Props =
   ( caption     :: String
   , sliderProps :: Record RS.Props
@@ -54,22 +64,24 @@ edgeConfluenceControlCpt :: R.Component EdgeConfluenceControlProps
 edgeConfluenceControlCpt = here.component "edgeConfluenceControl" cpt
   where
     cpt { forceAtlasState
-        , range: Range.Closed { min, max }
+        , range
         , state
         } _ = do
+      
       forceAtlasState' <- R2.useLive' forceAtlasState
       state' <- T.useLive T.unequal state
 
       pure $ rangeControl {
-        caption: "Edge Confluence Weight"
+          caption: "Edge Confluence Weight"
         , sliderProps: {
-            bounds: Range.Closed { min, max }
+            bounds: range
           , epsilon: 0.01
           , height: 5.0
           , initialValue: state'
           , onChange: \rng -> T.write_ rng state
           , status: SigmaxTypes.forceAtlasComponentStatus forceAtlasState'
           , step: 1.0
+          , throttleInterval: Just defaultThrottleInterval
           , width: 10.0
           }
         }
@@ -88,22 +100,27 @@ edgeWeightControlCpt :: R.Component EdgeWeightControlProps
 edgeWeightControlCpt = here.component "edgeWeightControl" cpt
   where
     cpt { forceAtlasState
-        , range: Range.Closed { min, max }
+        , range: range@(Range.Closed { min, max })
         , state
         } _ = do
+
       forceAtlasState' <- R2.useLive' forceAtlasState
       state' <- T.useLive T.unequal state
 
       pure $ rangeControl {
-        caption: "Edge Weight"
+          caption: "Edge Weight"
         , sliderProps: {
-          bounds: Range.Closed { min, max }
+            bounds: range
           , initialValue: state'
-          , epsilon: 1.0
+          , epsilon: (max - min) / 100.0
           , height: 5.0
           , onChange: \rng -> T.write_ rng state
+          -- , onChange: \rng -> Debounce.call onChange rng
+          -- , onChange: \rng -> RD.callDebouncedCallback rd rng
+          -- , onChange: onChange'
           , status: SigmaxTypes.forceAtlasComponentStatus forceAtlasState'
           , step: 1.0
+          , throttleInterval: Just defaultThrottleInterval
           , width: 10.0
           }
         }
@@ -138,6 +155,7 @@ nodeSizeControlCpt = here.component "nodeSizeControl" cpt
           , onChange: \rng -> T.write_ rng state
           , status: SigmaxTypes.forceAtlasComponentStatus forceAtlasState'
           , step: 1.0
+          , throttleInterval: Just defaultThrottleInterval
           , width: 10.0
           }
         }

src/Gargantext/Components/GraphExplorer/Toolbar/SlideButton.purs

@@ -7,10 +7,11 @@ module Gargantext.Components.GraphExplorer.Toolbar.SlideButton
   ) where
 
 import Data.Map as Map
-import Data.Maybe (Maybe(..))
+import Data.Maybe (Maybe(..), fromMaybe)
 import Data.Number as DN
-import Prelude
 import Effect (Effect)
+import Effect.Debouncing as Debounce
+import Prelude
 import Reactix as R
 import Reactix.DOM.HTML as H
 import Toestand as T
@@ -25,20 +26,29 @@ import Gargantext.Utils.Reactix as R2
 here :: R2.Here
 here = R2.here "Gargantext.Components.GraphExplorer.Toolbar.SlideButton"
 
+defaultThrottleInterval :: Int
+defaultThrottleInterval = 500
+
 type Props =
-  ( caption         :: String
-  , forceAtlasState :: T.Box SigmaxTypes.ForceAtlasState
-  , min             :: Number
-  , max             :: Number
-  , onChange        :: forall e. e -> Effect Unit
-  , state           :: T.Box Number
+  ( caption          :: String
+  , forceAtlasState  :: T.Box SigmaxTypes.ForceAtlasState
+  , min              :: Number
+  , max              :: Number
+  , onChange         :: Number -> Effect Unit
+  , state            :: T.Box Number
+  , throttleInterval :: Maybe Int          -- then Nothing, no throttling is done
   )
 
 sizeButton :: Record Props -> R.Element
 sizeButton props = R.createElement sizeButtonCpt props []
 sizeButtonCpt :: R.Component Props
 sizeButtonCpt = here.component "sizeButton" cpt where
-  cpt { state, caption, forceAtlasState, min, max, onChange } _ = do
+  cpt { state, caption, forceAtlasState, min, max, onChange, throttleInterval } _ = do
+    let throttled = Debounce.throttleWithDebounceAtEnd onChange (fromMaybe 0 throttleInterval)
+    let onChangeThrottled = case throttleInterval of
+          Nothing -> onChange
+          Just ti -> \rng -> Debounce.call throttled rng
+          
     defaultValue <- T.useLive T.unequal state
     forceAtlasState' <- R2.useLive' forceAtlasState
 
@@ -61,7 +71,11 @@ sizeButtonCpt = here.component "sizeButton" cpt where
           , min: show min
           , max: show max
           , defaultValue
-          , on: { input: onChange }
+          , on: { input: \e -> do
+                               let v = DN.fromString $ R.unsafeEventValue e
+                               case v of
+                                 Nothing -> pure unit
+                                 Just vv -> onChangeThrottled vv }
           , className: "range-simple__input"
           , disabled: status == Disabled
           }
@@ -92,30 +106,27 @@ labelSizeButtonCpt = here.component "labelSizeButton" cpt
         , forceAtlasState
         , min: minLabelSize
         , max: maxLabelSize
-        , onChange: \e -> do
+        , onChange: \newValue -> do
           let sigma = R.readRef sigmaRef
-          let newValue' = DN.fromString $ R.unsafeEventValue e
-          case newValue' of
-            Nothing -> pure unit
-            Just newValue ->
-              Sigmax.dependOnSigma sigma "[labelSizeButton] sigma: Nothing" $ \s -> do
-                let ratio = (newValue - minLabelSize) / (defaultLabelSize - minLabelSize)
-                let nodes = SigmaxTypes.graphNodes graph'
-                let nodesResized = (\n@{ size } -> n { size = size * ratio }) <$> nodes
-                let nodesMap = SigmaxTypes.idMap nodesResized
-                Graphology.forEachNode (Sigma.graph s) $ \{ id } -> do
-                  case Map.lookup id nodesMap of
-                    Nothing -> pure unit
-                    Just { size } -> Graphology.mergeNodeAttributes (Sigma.graph s) id { size }
-
-                Sigma.setSettings s {
-                    defaultLabelSize: newValue
-                  , drawLabels: true
-                  , labelSize: newValue
-                  -- , maxNodeSize: newValue / 2.5
-                    --, labelSizeRatio: newValue / 2.5
-                  }
-                T.write_ newValue state
+          Sigmax.dependOnSigma sigma "[labelSizeButton] sigma: Nothing" $ \s -> do
+            let ratio = (newValue - minLabelSize) / (defaultLabelSize - minLabelSize)
+            let nodes = SigmaxTypes.graphNodes graph'
+            let nodesResized = (\n@{ size } -> n { size = size * ratio }) <$> nodes
+            let nodesMap = SigmaxTypes.idMap nodesResized
+            Graphology.forEachNode (Sigma.graph s) $ \{ id } -> do
+              case Map.lookup id nodesMap of
+                Nothing -> pure unit
+                Just { size } -> Graphology.mergeNodeAttributes (Sigma.graph s) id { size }
+
+            Sigma.setSettings s {
+                defaultLabelSize: newValue
+              , drawLabels: true
+              , labelSize: newValue
+              -- , maxNodeSize: newValue / 2.5
+                --, labelSizeRatio: newValue / 2.5
+              }
+            T.write_ newValue state
+        , throttleInterval: Just defaultThrottleInterval
         }
 
 type LabelRenderedSizeThresholdButtonProps =
@@ -135,17 +146,14 @@ labelRenderedSizeThresholdButtonCpt = here.component "labelRenderedSizeThreshold
         , forceAtlasState
         , min: 0.0
         , max: 10.0
-        , onChange: \e -> do
+        , onChange: \newValue -> do
           let sigma = R.readRef sigmaRef
-          let newValue' = DN.fromString $ R.unsafeEventValue e
-          case newValue' of
-            Nothing -> pure unit
-            Just newValue ->
-              Sigmax.dependOnSigma sigma "[labelRenderdSizeThresholdButton] sigma: Nothing" $ \s -> do
-                Sigma.setSettings s {
-                  labelRenderedSizeThreshold: newValue
-                  }
-                T.write_ newValue state
+          Sigmax.dependOnSigma sigma "[labelRenderdSizeThresholdButton] sigma: Nothing" $ \s -> do
+            Sigma.setSettings s {
+              labelRenderedSizeThreshold: newValue
+              }
+            T.write_ newValue state
+        , throttleInterval: Just defaultThrottleInterval
         }
 
 type MouseSelectorSizeSliderProps =
@@ -164,16 +172,13 @@ mouseSelectorSizeSliderCpt = here.component "mouseSelectorSizeSlider" cpt
         , forceAtlasState
         , min: 1.0
         , max: 100.0
-        , onChange: \e -> do
+        , onChange: \newValue -> do
           let sigma = R.readRef sigmaRef
-          let newValue' = DN.fromString $ R.unsafeEventValue e
-          case newValue' of
-            Nothing -> pure unit
-            Just newValue ->
-              Sigmax.dependOnSigma sigma "[mouseSelectorSizeButton] sigma: Nothing" $ \s -> do
-                Sigma.setSettings s {
-                  mouseSelectorSize: newValue
-                  }
-                T.write_ newValue state
+          Sigmax.dependOnSigma sigma "[mouseSelectorSizeButton] sigma: Nothing" $ \s -> do
+            Sigma.setSettings s {
+              mouseSelectorSize: newValue
+              }
+            T.write_ newValue state
         , state
+        , throttleInterval: Just defaultThrottleInterval
         }

src/Gargantext/Components/Nodes/Graph.purs

@@ -5,7 +5,6 @@ module Gargantext.Components.Nodes.Graph
 import Gargantext.Prelude
 
 import Data.Array as A
-import Data.Int as I
 import Data.Maybe (Maybe(..), isJust, maybe)
 import Data.Sequence as Seq
 import Data.Tuple (Tuple(..))
@@ -165,6 +164,11 @@ hydrateStoreCpt = here.component "hydrateStore" cpt where
     -- | Precompute some values
     -- |
 
+    let edgesWeightSorted = A.sortWith (_.weight) $ Seq.toUnfoldable $ SigmaxT.graphEdges graph
+    let edgeWeightMin = maybe 0.0 _.weight $ A.head edgesWeightSorted
+    let edgeWeightMax = maybe 100.0 _.weight $ A.last edgesWeightSorted
+    let edgeWeightRange = Range.Closed { min: edgeWeightMin, max: edgeWeightMax }
+
     let edgesConfluenceSorted = A.sortWith (_.confluence) $ Seq.toUnfoldable $ SigmaxT.graphEdges graph
     let edgeConfluenceMin = maybe 0.0 _.confluence $ A.head edgesConfluenceSorted
     let edgeConfluenceMax = maybe 100.0 _.confluence $ A.last edgesConfluenceSorted
@@ -184,13 +188,17 @@ hydrateStoreCpt = here.component "hydrateStore" cpt where
     let nodeSizeMax = maybe 100.0 _.size $ A.last nodesSorted
     let nodeSizeRange = Range.Closed { min: nodeSizeMin, max: nodeSizeMax }
 
-    let edgeWeight = Range.Closed
-          { min: 0.0
-          , max: I.toNumber $ Seq.length $ SigmaxT.graphEdges graph
-          }
+    -- let edgeWeight = Range.Closed
+    --       { min: 0.0
+    --       , max: I.toNumber $ Seq.length $ SigmaxT.graphEdges graph
+    --       }
+    -- let weightsSeq = Seq.map _.weight $ SigmaxT.graphEdges graph
+    -- let edgeWeight = Range.Closed
+    --       { min: fromMaybe 0.0 $ minimum weightsSeq
+    --       , max: fromMaybe 1.0 $ maximum weightsSeq } :: Range.Closed Number
 
     let transformedGraph = transformGraph graph { edgeConfluence': GraphStore.options.edgeConfluence
-                                                , edgeWeight': edgeWeight
+                                                , edgeWeight': GraphStore.options.edgeWeight
                                                 , nodeSize': GraphStore.options.nodeSize
                                                 , removedNodeIds': GraphStore.options.removedNodeIds
                                                 , selectedNodeIds': GraphStore.options.selectedNodeIds
@@ -208,7 +216,8 @@ hydrateStoreCpt = here.component "hydrateStore" cpt where
       , startForceAtlas
       , forceAtlasState
       , noverlapState: SigmaxT.NoverlapPaused
-      , edgeWeight
+      -- , edgeWeight
+      , edgeWeightRange
       , edgeConfluenceRange
       , nodeSizeRange
       -- (cache options)

src/Gargantext/Components/RangeSlider.purs

@@ -21,6 +21,7 @@ import DOM.Simple.Event as Event
 import DOM.Simple.EventListener as EL
 import DOM.Simple (DOMRect)
 import Effect (Effect)
+import Effect.Debouncing as Debounce
 import Reactix as R
 import Reactix.DOM.HTML as H
 import Toestand as T
@@ -51,6 +52,7 @@ type Props =
   , width        :: Number
   , height       :: Number
   , onChange     :: Range.NumberRange -> Effect Unit
+  , throttleInterval :: Maybe Int          -- then Nothing, no throttling is done
   , status       :: ComponentStatus )
 
 data Knob = MinKnob | MaxKnob
@@ -65,6 +67,11 @@ rangeSlider props = R.createElement rangeSliderCpt props []
 rangeSliderCpt :: R.Component Props
 rangeSliderCpt = here.component "rangeSlider" cpt where
   cpt props _ = do
+    let throttled = Debounce.throttleWithDebounceAtEnd props.onChange (fromMaybe 0 props.throttleInterval)
+    let onChangeThrottled = case props.throttleInterval of
+          Nothing -> props.onChange
+          Just ti -> \rng -> Debounce.call throttled rng            
+    
     -- rounding precision (i.e. how many decimal digits are in epsilon)
     let (Range.Closed { min: minR, max: maxR }) = props.initialValue
     let decPrecision num =
@@ -116,7 +123,8 @@ rangeSliderCpt = here.component "rangeSlider" cpt where
                 case reproject drag scalePos props.bounds props.epsilon (R2.domMousePosition event) of
                   Just val -> do
                     setKnob knob value value' val
-                    props.onChange $ knobSetter knob value' val
+                    -- props.onChange $ knobSetter knob value' val
+                    onChangeThrottled $ knobSetter knob value' val
                   Nothing -> destroy unit
           let onMouseUp = EL.callback $ \(_event :: Event.MouseEvent) -> do
                 --props.onChange $ knobSetter knob value val

src/Gargantext/Utils/Reactix.js

@@ -61,4 +61,13 @@ export function _scrollIntoView(el) {
         inline: 'center'
     });
 }
-   
+   
\ No newline at end of file
+
+export const isPendingTransitionImpl = (t) => () => {
+  return t[0]();
+}
+
+export const startTransitionImpl = (t) => (f) => () => {
+  console.log('starting transition', t, f);
+  return t[1](() => { f()() });
+}

src/Gargantext/Utils/Reactix.purs

@@ -648,3 +648,24 @@ setInputValue elNullableRef val = case toMaybe (R.readRef elNullableRef) of
     _ <- pure $ (el .= "value") val
     triggerEvent el "change"
     triggerEvent el "input"
+
+-- TODO useTransition?
+foreign import data Transition :: Type
+
+-- foreign import useTransitionImpl :: R.Hooks Transition
+
+-- useTransition :: R.Hooks Transition
+-- useTransition = useTransitionImpl
+
+useTransition :: R.Hooks Transition
+useTransition = hook $ \_ -> pure $ react ... "useTransition" $ []
+
+foreign import isPendingTransitionImpl :: Transition -> R.Hooks Boolean
+
+isPendingTransition :: Transition -> R.Hooks Boolean
+isPendingTransition = isPendingTransitionImpl
+
+foreign import startTransitionImpl :: Transition -> (Unit -> Effect Unit) -> Effect Unit
+
+startTransition :: Transition -> (Unit -> Effect Unit) -> Effect Unit
+startTransition = startTransitionImpl

src/Main.purs

@@ -8,7 +8,7 @@ import Effect (Effect)
 import FFI.Simple ((...))
 import Gargantext.Components.App as App
 import Gargantext.Utils.Reactix as R2
-import Prelude (Unit, ($))
+import Prelude (Unit, ($), bind)
 import Reactix as R
 
 
@@ -21,6 +21,8 @@ main = paint $ toMaybe (document ... "getElementById" $ [ "app" ])
 paint :: Maybe Element -> Effect Unit
 paint Nothing  = here.error "[main] Container not found"
 paint (Just c) = do
-  R.render app c
+  -- R.render app c
+  let r = R.createRoot c
+  R.renderRoot r app
   where
     app = App.app {}