>>> BEGIN

dist/styles/bootstrap-darkster.css

@@ -8955,7 +8955,7 @@ select.form-control {
   margin-right: 8px;
 }
 
-.search-button-prepend .input-group-text {
+.ngrams-table-search-button .input-group-text {
   width: 41px;
   z-index: initial;
 }

dist/styles/bootstrap-default.css

@@ -8908,7 +8908,7 @@ select.form-control {
   margin-right: 8px;
 }
 
-.search-button-prepend .input-group-text {
+.ngrams-table-search-button .input-group-text {
   width: 41px;
   z-index: initial;
 }

dist/styles/bootstrap-greyson.css

@@ -8664,7 +8664,7 @@ select.form-control {
   margin-right: 8px;
 }
 
-.search-button-prepend .input-group-text {
+.ngrams-table-search-button .input-group-text {
   width: 41px;
   z-index: initial;
 }

dist/styles/bootstrap-herbie.css

@@ -8912,7 +8912,7 @@ select.form-control {
   margin-right: 8px;
 }
 
-.search-button-prepend .input-group-text {
+.ngrams-table-search-button .input-group-text {
   width: 41px;
   z-index: initial;
 }

dist/styles/bootstrap-monotony.css

@@ -8913,7 +8913,7 @@ select.form-control {
   margin-right: 8px;
 }
 
-.search-button-prepend .input-group-text {
+.ngrams-table-search-button .input-group-text {
   width: 41px;
   z-index: initial;
 }

src/Gargantext/Components/NgramsTable/Search.purs

@@ -45,42 +45,73 @@ type SearchButtonProps =
 
 searchButton :: R2.Component SearchButtonProps
 searchButton = R.createElement searchButtonCpt
+
 searchButtonCpt :: R.Component SearchButtonProps
 searchButtonCpt = here.component "searchButton" cpt where
   cpt { inputRef, searchQuery } _ = do
+    -- | States
+    -- |
     searchQuery' <- T.useLive T.unequal searchQuery
 
+    -- | Behaviors
+    -- |
+    let
+      onReset _ = do
+        R2.setInputValue inputRef ""
+        T.write_ "" searchQuery
+
+      onSubmit _ = do
+        T.write_ (R2.getInputValue inputRef) searchQuery
+
+    -- | Render
+    -- |
     pure $
 
       H.div
-      { className: "search-button-append input-group-append" }
+      { className: intercalate " "
+          [ "ngrams-table-search-button"
+          , "input-group-append"
+          ]
+      }
       [
         if searchQuery' /= ""
         then
           R.fragment
-            [ B.button
+            [
+              B.button
               { variant: ButtonVariant Light
-              , callback: \_ -> do
-                                  R2.setInputValue inputRef ""
-                                  T.write_ "" searchQuery
-              , className: "input-group-text" }
-                [ B.icon
+              , callback: onReset
+              , className: "input-group-text"
+              }
+                [
+                  B.icon
                   { name: "times"
                   , className: "text-danger"
                   }
                 ]
-            , B.button { callback: \_ -> T.write_ (R2.getInputValue inputRef) searchQuery
-                       , className: "input-group-text" }
-                [ B.icon { name: "search" }
-                         
+            ,
+              B.button
+              { variant: ButtonVariant Light
+              , callback: onSubmit
+              , className: "input-group-text"
+              }
+                [ B.icon
+                  { name: "search"
+                  , className: "text-secondary"
+                  }
                 ]
             ]
         else
-          B.button { callback: \_ -> T.write_ (R2.getInputValue inputRef) searchQuery
-                   , className: "input-group-text" }
-            [ B.icon
-              { name: "search" }
-            ]
+          B.button
+          { variant: ButtonVariant Light
+          , callback: onSubmit
+          , className: "input-group-text"
+          }
+          [ B.icon
+            { name: "search"
+            , className: "text-secondary"
+            }
+          ]
       ]
 
 type SearchFieldInputProps =
@@ -109,4 +140,3 @@ searchFieldInputCpt = here.component "searchFieldInput" cpt where
             T.write_ (R2.getInputValue inputRef) searchQuery
           else
             pure unit
-

src/sass/_legacy/_list.sass

@@ -52,7 +52,7 @@
 
 ///////////////////////////////////////////////////:
 
-.search-button-prepend
+.ngrams-table-search-button
 
   .input-group-text
     // @XXX Glyphicon icons lack of homogeneous width