[ngrams table] add queryExactMatches to make "add" button work

correctly

It should show if there are search results, but don't match the search
query exactly (modulo normalization).

src/Gargantext/Components/NgramsTable.purs

@@ -19,7 +19,7 @@ import Data.Map as Map
 import Data.Maybe (Maybe(..), fromMaybe, isNothing, maybe)
 import Data.Monoid.Additive (Additive(..))
 import Data.Ord.Down (Down(..))
-import Data.Sequence (Seq, length) as Seq
+import Data.Sequence as Seq
 import Data.Set (Set)
 import Data.Set as Set
 import Data.Tuple (Tuple(..))
@@ -38,7 +38,7 @@ import Gargantext.Hooks.Loader (useLoaderBox)
 import Gargantext.Routes (SessionRoute(..)) as R
 import Gargantext.Sessions (Session, get)
 import Gargantext.Types (CTabNgramType, OrderBy(..), SearchQuery, TabType, TermList(..), TermSize, termLists, termSizes)
-import Gargantext.Utils (queryMatchesLabel, toggleSet, sortWith)
+import Gargantext.Utils (queryExactMatchesLabel, queryMatchesLabel, toggleSet, sortWith)
 import Gargantext.Utils.CacheAPI as GUC
 import Gargantext.Utils.Reactix as R2
 import Gargantext.Utils.Seq as Seq
@@ -97,6 +97,7 @@ type TableContainerProps =
   , ngramsParent      :: Maybe NgramsTerm
   , ngramsSelection   :: Set NgramsTerm
   , ngramsTable       :: NgramsTable
+  , queryExactMatches :: Boolean
   , path              :: T.Box PageParams
   , tabNgramType      :: CTabNgramType
   , syncResetButton   :: Array R.Element
@@ -111,6 +112,7 @@ tableContainerCpt { dispatch
                   , ngramsSelection
                   , ngramsTable: ngramsTableCache
                   , path
+                  , queryExactMatches
                   , tabNgramType
                   , syncResetButton
                   } = here.component "tableContainer" cpt
@@ -125,7 +127,7 @@ tableContainerCpt { dispatch
             [
               R2.row [ H.div {className: "col-md-2", style: {marginTop: "6px"}}
                        [ H.div {} syncResetButton
-                       , if A.null props.tableBody && searchQuery /= "" then
+                       , if (not queryExactMatches || A.null props.tableBody) && searchQuery /= "" then
                        -- , if (not $ Set.member (normNgram tabNgramType searchQuery) ngramsSelection) && searchQuery /= "" then
                            H.li { className: "list-group-item" } [
                              H.button { className: "btn btn-primary"
@@ -336,6 +338,10 @@ loadedNgramsTableBodyCpt = here.component "loadedNgramsTableBody" cpt where
           then Just (fromMaybe ng (nre ^. _NgramsRepoElement <<< _root))
           else Nothing
         rootsWithMatches = Set.fromFoldable (Seq.mapMaybe rootOfMatch nres)
+        exactMatches :: Boolean
+        exactMatches = not $ Seq.null $ Seq.filter fltr nres
+          where
+            fltr (Tuple ng _) = queryExactMatchesLabel searchQuery (ngramsTermText ng)
         rowsFilter :: NgramsElement -> Maybe NgramsElement
         rowsFilter ngramsElement =
           if displayRow { ngramsElement
@@ -411,6 +417,7 @@ loadedNgramsTableBodyCpt = here.component "loadedNgramsTableBody" cpt where
           , ngramsSelection
           , ngramsTable
           , path
+          , queryExactMatches: exactMatches
           , syncResetButton: [ syncResetButton ]
           , tabNgramType }
         , params

src/Gargantext/Utils.purs

@@ -70,10 +70,14 @@ zeroPad pad num = zeros <> (show num)
     zeros' 0 = ""
     zeros' n = "0" <> (zeros' (n - 1))
 
+queryNormalize :: String -> String
+queryNormalize = S.toLower
+
 queryMatchesLabel :: String -> String -> Boolean
-queryMatchesLabel q l = S.contains (S.Pattern $ normalize q) (normalize l)
-  where
-    normalize = S.toLower
+queryMatchesLabel q l = S.contains (S.Pattern $ queryNormalize q) (queryNormalize l)
+
+queryExactMatchesLabel :: String -> String -> Boolean
+queryExactMatchesLabel q l = queryNormalize q == queryNormalize l
 
 
 mapLeft :: forall l m r. (l -> m) -> Either l r -> Either m r