Fix autocomplete of @react. as @react.component.component.

Author: cristianoc

analysis/src/NewCompletions.ml

@@ -602,6 +602,15 @@ let processCompletable ~findItems ~package ~rawOpens
       "variadic";
     ]
     |> List.filter (fun decorator -> Utils.startsWith decorator prefix)
+    |> List.map (fun decorator ->
+           let parts = String.split_on_char '.' prefix in
+           let len = String.length prefix in
+           let dec2 =
+             if List.length parts > 1 then
+               String.sub decorator len (String.length decorator - len)
+             else decorator
+           in
+           dec2)
     |> List.map mkDecorator
   | Clabel (funPath, prefix) ->
     let labels =

analysis/tests/src/Complete.res

@@ -57,4 +57,4 @@ let zzz = 11
 
 //^com @reac
 
-//^com @react.
+//^com @react.

analysis/tests/src/expected/Complete.res.txt

@@ -549,7 +549,7 @@ Complete tests/src/Complete.res 56:2
 
 Complete tests/src/Complete.res 58:2
 [{
-    "label": "react.component",
+    "label": "component",
     "kind": 4,
     "tags": [],
     "detail": "",