[graph] add count of documents to sidebar

src/Gargantext/Components/FacetsTable.purs

@@ -263,7 +263,8 @@ initialPageGQL { corpusId, ngramsTerms, session } =
 
 loadPageGQL :: Record PageGQLParams -> AffRESTError Rows
 loadPageGQL { corpusId
-            , params: { limit, offset, orderBy }
+            -- NOTE: unused
+            -- , params: { limit, offset, orderBy }
             , ngramsTerms
             , session } = do
 

src/Gargantext/Components/GraphExplorer/Sidebar/DocList.purs

@@ -239,23 +239,27 @@ docListCpt = here.component "main" cpt where
         ,
           R2.when (not $ eq results Seq.empty) $
 
-            H.ul
-            { className: intercalate " "
-                [ "graph-doc-list"
-                , "list-group"
-                ]
-            } $
-            Seq.toUnfoldable $ flip Seq.map results \r ->
-
-              item
-              { documentView: (r :: DocumentsView)
-              , callback: callback showDoc'
-              , isSelected: isSelected showDoc' (r :: DocumentsView)
-              , listId
-              , corpusId: nodeId
-              , session
-              , frontends
-              }
+          H.div {}
+            [
+              H.h6 {} [ H.text $ show (Seq.length results) <> " related documents"]
+            , H.ul
+              { className: intercalate " "
+                  [ "graph-doc-list"
+                  , "list-group"
+                  ]
+              } $
+              Seq.toUnfoldable $ flip Seq.map results \r ->
+
+                item
+                { documentView: (r :: DocumentsView)
+                , callback: callback showDoc'
+                , isSelected: isSelected showDoc' (r :: DocumentsView)
+                , listId
+                , corpusId: nodeId
+                , session
+                , frontends
+                }
+             ]
         ]