[NGRAMSTABLE] WIP fix default behavior.

src/Gargantext/Components/DocsTable.purs

@@ -343,7 +343,7 @@ loadPage session {nodeId, tabType, query, listId, corpusId, params: {limit, offs
   let docs = res2corpus <$> res.docs
   pure $
     if mock then
-      Tuple 4737 (take limit $ drop offset sampleData)
+      Tuple 0 (take limit $ drop offset sampleData)
     else
       Tuple res.count docs
   where

src/Gargantext/Components/Forest/Tree.purs

@@ -96,10 +96,10 @@ toHtml reload treeState@(ts@{tree: (NTree (LNode {id, name, nodeType}) ary), asy
     pAction = performAction session reload openNodes treeState
 
     cpt props _ = do
-      let folderIsOpen = Set.member id (fst openNodes)
-      let setFn = if folderIsOpen then Set.delete else Set.insert
+      let folderIsOpen         = Set.member id (fst openNodes)
+      let setFn                = if folderIsOpen then Set.delete else Set.insert
       let toggleFolderIsOpen _ = (snd openNodes) (setFn id)
-      let folderOpen = Tuple folderIsOpen toggleFolderIsOpen
+      let folderOpen           = Tuple folderIsOpen toggleFolderIsOpen
 
       let withId (NTree (LNode {id: id'}) _) = id'
 

src/Gargantext/Components/Forest/Tree/Node/Box.purs

@@ -57,10 +57,10 @@ nodeMainSpan d p folderOpen session frontends = R.createElement el p []
     el = R.hooksComponent "NodeMainSpan" cpt
     cpt props@{id, asyncTasks, mCurrentRoute, name, nodeType, onAsyncTaskFinish} _ = do
       -- only 1 popup at a time is allowed to be opened
-      popupOpen   <- R.useState' (Nothing :: Maybe NodePopup)
+      popupOpen     <- R.useState' (Nothing :: Maybe NodePopup)
       popupPosition <- R.useState' (Nothing :: Maybe R2.Point)
-      droppedFile <- R.useState' (Nothing :: Maybe DroppedFile)
-      isDragOver  <- R.useState' false
+      droppedFile   <- R.useState' (Nothing :: Maybe DroppedFile)
+      isDragOver    <- R.useState' false
 
       pure $ H.span (dropProps droppedFile isDragOver) $
         [ folderIcon nodeType folderOpen

src/Gargantext/Components/NgramsTable.purs

@@ -167,7 +167,10 @@ tableContainer { path: {searchQuery, termListFilter, termSizeFilter} /\ setPath
               , H.div {} (
                    if A.null props.tableBody && searchQuery /= "" then [
                      H.button { className: "btn btn-primary"
-                              , on: {click: const $ dispatch $ addNewNgramA $ normNgram tabNgramType searchQuery}
+                              , on: {click: const $ dispatch
+                                                  $ addNewNgramA
+                                                  $ normNgram tabNgramType searchQuery
+                                                }
                               }
                      [ H.text ("Add " <> searchQuery) ]
                      ] else [])]
@@ -204,7 +207,7 @@ tableContainer { path: {searchQuery, termListFilter, termSizeFilter} /\ setPath
                 ngramsClick {depth: 1, ngrams: child} =
                   Just $ dispatch $ ToggleChild false child
                 ngramsClick _ = Nothing
-                ngramsEdit _ = Nothing
+                ngramsEdit  _ = Nothing
               in
               [ H.p {} [H.text $ "Editing " <> ngramsTermText ngrams]
               , R2.buff $ renderNgramsTree { ngramsTable, ngrams, ngramsStyle: [], ngramsClick, ngramsEdit }
@@ -336,7 +339,7 @@ loadedNgramsTableSpec = Thermite.simpleSpec performAction render
                            }
       ]
       where
-        totalRecords = 47361 -- TODO
+        totalRecords = 0 -- TODO, 0 to show first users that it is fake (until it is fixed)
         colNames = T.ColumnName <$> ["Select", "Map", "Stop", "Terms", "Score"] -- see convOrderBy
         selected =
           input
@@ -354,7 +357,7 @@ loadedNgramsTableSpec = Thermite.simpleSpec performAction render
         ngramsTable = applyNgramsPatches state initTable
         orderWith =
           case convOrderBy <$> params.orderBy of
-            Just ScoreAsc  -> A.sortWith \x -> (snd x) ^. _NgramsElement <<< _occurrences
+            Just ScoreAsc  -> A.sortWith \x -> (snd x)        ^. _NgramsElement <<< _occurrences
             Just ScoreDesc -> A.sortWith \x -> Down $ (snd x) ^. _NgramsElement <<< _occurrences
             _              -> identity -- the server ordering is enough here
 
@@ -365,7 +368,12 @@ loadedNgramsTableSpec = Thermite.simpleSpec performAction render
 
         ngramsParentRoot :: Maybe NgramsTerm
         ngramsParentRoot =
-          (\np -> ngramsTable ^? at np <<< _Just <<< _NgramsElement <<< _root <<< _Just) =<< ngramsParent
+          (\np -> ngramsTable ^? at np
+                            <<< _Just
+                            <<< _NgramsElement
+                            <<< _root
+                            <<< _Just
+            ) =<< ngramsParent
 
         displayRow (NgramsElement {ngrams, root}) =
           root == Nothing

src/Gargantext/Components/NgramsTable/Core.purs

@@ -180,13 +180,13 @@ _list = prop (SProxy :: SProxy "list")
 
 derive instance newtypeNgramsElement :: Newtype NgramsElement _
 
-_NgramsElement :: Iso' NgramsElement {
-      children :: Set NgramsTerm
-    , list :: TermList
-    , ngrams :: NgramsTerm
+_NgramsElement    :: Iso' NgramsElement {
+      children    :: Set NgramsTerm
+    , list        :: TermList
+    , ngrams      :: NgramsTerm
     , occurrences :: Int
-    , parent :: Maybe NgramsTerm
-    , root :: Maybe NgramsTerm
+    , parent      :: Maybe NgramsTerm
+    , root        :: Maybe NgramsTerm
     }
 _NgramsElement = _Newtype
 

src/Gargantext/Components/Nodes/Lists/Tabs.purs

@@ -57,4 +57,4 @@ ngramsViewCpt = R.staticComponent "ListsNgramsView" cpt
         chart Authors = pie {session, path}
         chart Sources = bar {session, path}
         chart Institutes = tree {session, path: path2}
-        chart Terms = metrics {session, path: path2}
+        chart Terms      = metrics {session, path: path2}

src/Gargantext/Components/Table.purs

@@ -79,7 +79,7 @@ type TableHeaderLayoutProps =
   )
 
 initialParams :: Params
-initialParams = stateParams {page: 1, pageSize: PS10, orderBy: Nothing}
+initialParams = stateParams {page: 1, pageSize: PS10, orderBy: Just (DESC $ ColumnName "Score")}
 -- TODO: Not sure this is the right place for this
 
 tableHeaderLayout :: Record TableHeaderLayoutProps -> R.Element