Merge branch 'dev-merge' into dev

dist/styles/Graph.css

@@ -80,12 +80,11 @@
 }
 
 .input-with-autocomplete .completions {
-  position: absolute;
+  position: fixed;
   max-height: 300px;
   overflow-y: scroll;
   width: 300px;
-  top: 50px;
-  z-index: 5;
+  top: 100px;
 }
 
 /*# sourceMappingURL=Graph.css.map */

dist/styles/Graph.sass

@@ -79,9 +79,8 @@
 
 .input-with-autocomplete
   .completions
-    position: absolute
+    position: fixed
     max-height: 300px
     overflow-y: scroll
     width: 300px
-    top: 50px
-    z-index: 5
+    top: 100px

src/Gargantext/Components/NgramsTable/Core.purs

@@ -758,18 +758,22 @@ type RootParent = { root :: NgramsTerm, parent :: NgramsTerm }
 
 type ReParent a = forall m. MonadState NgramsTable m => a -> m Unit
 
-reRootChildren :: NgramsTerm -> ReParent NgramsTerm
-reRootChildren root ngram = do
+reRootMaxDepth :: Int
+reRootMaxDepth = 100 -- TODO: this is a hack
+
+reRootChildren :: Int -> NgramsTerm -> ReParent NgramsTerm
+reRootChildren 0         _    _     = pure unit -- TODO: this is a hack
+reRootChildren max_depth root ngram = do
   nre <- use (at ngram)
   traverseOf_ (_Just <<< _NgramsRepoElement <<< _children <<< folded) (\child -> do
     at child <<< _Just <<< _NgramsRepoElement <<< _root ?= root
-    reRootChildren root child) nre
+    reRootChildren (max_depth - 1) root child) nre
 
 reParent :: Maybe RootParent -> ReParent NgramsTerm
 reParent mrp child = do
   at child <<< _Just <<< _NgramsRepoElement %= ((_parent .~ (view _parent <$> mrp)) <<<
                                                 (_root   .~ (view _root   <$> mrp)))
-  reRootChildren (fromMaybe child (mrp ^? _Just <<< _root)) child
+  reRootChildren reRootMaxDepth (fromMaybe child (mrp ^? _Just <<< _root)) child
 
 -- reParentNgramsPatch :: NgramsTerm -> ReParent NgramsPatch
 -- ^ GHC would have accepted this type. Here reParentNgramsPatch checks but

src/Gargantext/Components/Nodes/Corpus/Chart/Histo.purs

@@ -103,7 +103,7 @@ loaded :: Record MetricsProps -> HistoMetrics -> R.Element
 loaded { path, reload, session } loaded =
   H.div {} [
     U.reloadButton reload
-  -- , U.chartUpdateButton { chartType: Histo, path, reload, session }
+  , U.chartUpdateButton { chartType: Histo, path, reload, session }
   , chart $ chartOptions loaded
   ]
   -- TODO: parametrize ngramsType above

src/Gargantext/Components/Nodes/Corpus/Chart/Metrics.purs

@@ -137,6 +137,6 @@ loaded :: Record MetricsProps -> Loaded -> R.Element
 loaded { path, reload, session } loaded =
   H.div {} [
     U.reloadButton reload
-  -- , U.chartUpdateButton { chartType: Scatter, path, reload, session }
+  , U.chartUpdateButton { chartType: Scatter, path, reload, session }
   , chart $ scatterOptions loaded
   ]

src/Gargantext/Components/Nodes/Corpus/Chart/Pie.purs

@@ -123,7 +123,7 @@ loadedPie :: Record MetricsProps -> HistoMetrics -> R.Element
 loadedPie { path, reload, session } loaded =
   H.div {} [
     U.reloadButton reload
-  -- , U.chartUpdateButton { chartType: ChartPie, path, reload, session }
+  , U.chartUpdateButton { chartType: ChartPie, path, reload, session }
   , chart $ chartOptionsPie loaded
   ]
 
@@ -151,6 +151,6 @@ loadedBar :: Record MetricsProps -> Loaded -> R.Element
 loadedBar { path, reload, session } loaded =
   H.div {} [
     U.reloadButton reload
-  -- , U.chartUpdateButton { chartType: ChartBar, path, reload, session }
+  , U.chartUpdateButton { chartType: ChartBar, path, reload, session }
   , chart $ chartOptionsBar loaded
   ]

src/Gargantext/Components/Nodes/Corpus/Chart/Tree.purs

@@ -95,6 +95,6 @@ loaded :: Record MetricsProps -> Loaded -> R.Element
 loaded { path, reload, session } loaded =
   H.div {} [
     U.reloadButton reload
-  -- , U.chartUpdateButton { chartType: ChartTree, path, reload, session }
+  , U.chartUpdateButton { chartType: ChartTree, path, reload, session }
   , chart (scatterOptions loaded)
   ]