Pipe autocomplete for array literals and types.

Author: cristianoc

examples/example-project/src/ZZ.res

@@ -138,3 +138,5 @@ let lll = List.make(3, 4)
 
 let abc = "abc"
 
+let arr = [1, 2, 3]
+

src/NewCompletions.ml

@@ -513,6 +513,7 @@ let processCompletable ~findItems ~full ~package ~pos ~rawOpens
            mkItem ~name ~kind:(kindToInt item) ~deprecated
              ~detail:(detail name item) ~docstring ~uri ~pos_lnum)
   | Cpipe (pipe, partialName) -> (
+    let arrayModulePath = ["Js"; "Array2"] in
     let stringModulePath = ["Js"; "String2"] in
     let getModulePath path =
       let rec loop (path : Path.t) =
@@ -523,6 +524,7 @@ let processCompletable ~findItems ~full ~package ~pos ~rawOpens
       in
       match path with
       | Path.Pident id when Ident.name id = "string" -> stringModulePath
+      | Path.Pident id when Ident.name id = "array" -> arrayModulePath
       | _ -> ( match loop path with _ :: rest -> List.rev rest | [] -> [])
     in
     let getLhsPath ~pipeId ~partialName =
@@ -541,6 +543,7 @@ let processCompletable ~findItems ~full ~package ~pos ~rawOpens
       match pipe with
       | PipeId pipeId -> getLhsPath ~pipeId ~partialName
       | PipeString -> Some (stringModulePath, partialName)
+      | PipeArray -> Some (arrayModulePath, partialName)
     in
     let removePackageOpens modulePath =
       match modulePath with

src/PartialParser.ml

@@ -109,7 +109,7 @@ let findJsxContext text offset =
   in
   loop offset
 
-type pipe = PipeId of string | PipeString
+type pipe = PipeId of string | PipeArray | PipeString
 
 type completable =
   | Cdecorator of string  (** e.g. @module *)
@@ -155,6 +155,7 @@ let findCompletable text offset =
         match text.[i] with
         | 'a' .. 'z' | 'A' .. 'Z' | '0' .. '9' | '.' | '_' -> loop (i - 1)
         | '"' when i == off -> Some PipeString
+        | ']' when i == off -> Some PipeArray
         | _ -> Some (PipeId (String.sub text (i + 1) (off - i))))
     in
     match loop off with