Fix an highlighting bug when pattern overlap

src/Gargantext/Components/NgramsTable.purs

@@ -208,7 +208,10 @@ highlightNgrams (NgramsTable table) input =
 
     -- NOTE that only the first matching pattern is used, the others are ignored!
     goFold :: Partial => _ -> Tuple Int (Array Int) -> _
-    goFold { i0, s, l } (Tuple i pis) =
+    goFold { i0, s, l } (Tuple i pis)
+      | i < i0    =
+        { i0, s, l }
+      | otherwise =
       case A.index pis 0 of
         Nothing ->
           { i0, s, l }

test/Gargantext/Components/NgramsTable/Spec.purs

@@ -12,20 +12,20 @@ import Data.Map as Map
 import Data.Set as Set
 
 spec :: Spec Unit
-spec =
+spec = do
+  let ne ngrams list =
+        NgramsElement
+          { ngrams
+          , list
+          , occurrences: 0
+          , parent:   Nothing
+          , root:     Nothing
+          , children: Set.empty
+          }
+      tne ngrams list = Tuple ngrams (ne ngrams list)
   describe "NgramsTable.highlightNgrams" do
     it "partially works" do
-      let ne ngrams list =
-            NgramsElement
-              { ngrams
-              , list
-              , occurrences: 0
-              , parent:   Nothing
-              , root:     Nothing
-              , children: Set.empty
-              }
-          tne ngrams list = Tuple ngrams (ne ngrams list)
-          table = NgramsTable
+      let table = NgramsTable
                     (Map.fromFoldable [tne "graph"     GraphTerm
                                       ,tne "stop"      StopTerm
                                       ,tne "candidate" CandidateTerm
@@ -38,3 +38,28 @@ spec =
                    ,Tuple "s at every " Nothing
                    ,Tuple "candidate" (Just CandidateTerm)]
       highlightNgrams table input `shouldEqual` output
+
+    it "works when pattern overlaps" do
+      let table = NgramsTable
+                    (Map.fromFoldable [tne "is"     StopTerm
+                                      ,tne "a"      StopTerm
+                                      ,tne "of"     StopTerm
+                                      ,tne "new"    GraphTerm
+                                      ,tne "the"    GraphTerm
+                                      ,tne "state"  GraphTerm
+                                      ])
+          input = "SCIPION is a new state of the"
+          output = [Tuple "SCIPION " Nothing
+                   ,Tuple "is" (Just StopTerm)
+                   ,Tuple " " Nothing
+                   ,Tuple "a" (Just StopTerm)
+                   ,Tuple " " Nothing
+                   ,Tuple "new" (Just GraphTerm)
+                   ,Tuple " " Nothing
+                   ,Tuple "state" (Just GraphTerm)
+                   ,Tuple " " Nothing
+                   ,Tuple "of" (Just StopTerm)
+                   ,Tuple " " Nothing
+                   ,Tuple "the" (Just GraphTerm)
+                   ]
+      highlightNgrams table input `shouldEqual` output