rename attribute

Author: zth

analysis/src/CompletionBackEnd.ml

@@ -1015,7 +1015,7 @@ and getCompletionsForContextPath ~debug ~full ~opens ~rawOpens ~pos ~env ~exact
     | Some (env, fields, recordAsString, path, attributes) ->
       let pipeCompletion =
         match
-          (path, ProcessAttributes.findMainTypeForModuleAttribute attributes)
+          (path, ProcessAttributes.findEditorCompleteFromAttribute attributes)
         with
         | Some path, _ when Path.last path = "t" ->
           Some

analysis/src/CompletionFrontEnd.ml

@@ -947,7 +947,7 @@ let completionWithParser1 ~currentFile ~debug ~offset ~path ~posCursor
              (Completable.CdecoratorPayload
                 (JsxConfig {nested = List.rev nested; prefix})))
        | _ -> ()
-     else if id.txt = "mainTypeForModule" then
+     else if id.txt = "editor.completeFrom" then
        match payload with
        | PStr
            [
@@ -963,7 +963,7 @@ let completionWithParser1 ~currentFile ~debug ~offset ~path ~posCursor
            ]
          when locHasCursor pexp_loc ->
          if Debug.verbose () then
-           print_endline "[decoratorCompletion] Found @mainTypeForModule";
+           print_endline "[decoratorCompletion] Found @editor.completeFrom";
          setResult
            (Completable.Cpath
               (CPId

analysis/src/ProcessAttributes.ml

@@ -49,11 +49,11 @@ let newDeclared ~item ~extent ~name ~stamp ~modulePath isExported attributes =
     item;
   }
 
-let rec findMainTypeForModuleAttribute attributes =
+let rec findEditorCompleteFromAttribute attributes =
   let open Parsetree in
   match attributes with
   | [] -> None
-  | ( {Asttypes.txt = "mainTypeForModule"},
+  | ( {Asttypes.txt = "editor.completeFrom"},
       PStr
         [
           {
@@ -63,4 +63,4 @@ let rec findMainTypeForModuleAttribute attributes =
         ] )
     :: _ ->
     Some (Utils.flattenLongIdent path)
-  | _ :: rest -> findMainTypeForModuleAttribute rest
+  | _ :: rest -> findEditorCompleteFromAttribute rest

analysis/tests/src/CompletionFromModule.res

@@ -13,7 +13,7 @@ let n = {SomeModule.name: "hello"}
 //   ^com
 // ^dv-
 
-@mainTypeForModule(SomeOtherModule)
+@editor.completeFrom(SomeOtherModule)
 type typeOutsideModule = {nname: string}
 
 module SomeOtherModule = {
@@ -35,5 +35,5 @@ let nn: SomeOtherModule.t = {nname: "hello"}
 //    ^com
 // ^dv-
 
-// @mainTypeForModule(SomeOthe) type typeOutsideModule = {nname: string}
-//                            ^com
+// @editor.completeFrom(SomeOthe) type typeOutsideModule = {nname: string}
+//                              ^com

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

@@ -77,7 +77,7 @@ Path SomeOtherModule.
   }]
 
 
-Complete src/CompletionFromModule.res 37:30
+Complete src/CompletionFromModule.res 37:32
 XXX Not found!
 Completable: Cpath Module[SomeOthe]
 Package opens Pervasives.JsxModules.place holder