[FIX] Ergo/Design/Text.

src/Gargantext/Components/DocsTable.purs

@@ -178,17 +178,16 @@ searchBar (query /\ setQuery) = R.createElement el {} []
       queryText <- R.useState' query
 
       pure $ H.div {className: "row"}
-        [ H.div {className: "col col-md-3 form-group"}
+        [ H.div {className: "col col-md-3"} []
+        , H.div {className: "col col-md-1"} [searchButton queryText]
+        , H.div {className: "col col-md-3 form-group"}
           [ H.input { type: "text"
                     , className: "form-control"
                     , on: {change: onSearchChange queryText, keyUp: onSearchKeyup queryText}
                     , placeholder: query
                     , defaultValue: query}
           ]
-        , H.div {className: "col col-md-1"}
-          [ searchButton queryText
-          , if query /= "" then clearButton else H.div {} []
-          ]
+        , H.div {className: "col col-md-1"} [if query /= "" then clearButton else H.div {} []]
         ]
 
     onSearchChange :: forall e. R.State Query -> e -> Effect Unit
@@ -281,8 +280,8 @@ renderPage (_ /\ setTableParams) p res = R.createElement el p []
           , container: T.defaultContainer { title: "Documents" }
           , colNames:
             T.ColumnName <$>
-            [ "Map"
-            , "Stop"
+            [ "Favorites"
+            , "Trash"
             , "Date"
             , "Title"
             , "Source"

src/Gargantext/Components/FacetsTable.purs

@@ -175,8 +175,9 @@ instance decodeResponse :: DecodeJson Response where
     created    <- obj .? "created"
     hyperdata  <- obj .? "hyperdata"
     favorite   <- obj .? "favorite"
-    ngramCount <- obj .? "ngramCount"
-    pure $ Response { id, created, hyperdata, category: decodeCategory favorite, ngramCount }
+    --ngramCount <- obj .? "ngramCount"
+    let ngramCount = 1
+    pure $ Response { id, created, hyperdata, category: decodeCategory favorite, ngramCount}
 
 -- | Filter
 -- TODO: unused

src/Gargantext/Components/Search/Types.purs

@@ -46,7 +46,7 @@ instance encodeJsonDatabase :: EncodeJson Database where
 
 
 allDatabases :: Array Database
-allDatabases = [All, HAL, IsTex, PubMed]
+allDatabases = [All, PubMed]
 
 data SearchOrder
   = DateAsc