handle regexps

Author: zth

analysis/src/CompletionBackEnd.ml

@@ -1451,9 +1451,10 @@ let rec completeTypedValue ?(typeArgContext : typeArgContext option) ~rawOpens
     (* Special casing for things where we want extra things in the completions *)
     let completionItems =
       match path with
-      | Pdot (Pdot (Pident m, "Re", _), "t", _) when Ident.name m = "Js" ->
+      | Pdot (Pdot (Pident {name = "Js"}, "Re", _), "t", _)
+      | Pdot (Pident {name = "RegExp"}, "t", _) ->
         (* regexps *)
-        create "%re()" ~insertText:"%re(\"/$0/g\")" ~includesSnippets:true
+        create "/<regexp>/g" ~insertText:"/$0/g" ~includesSnippets:true
           ~kind:(Label "Regular expression") ~env
         :: completionItems
       | _ -> completionItems

tests/analysis_tests/tests/src/expected/CompletionExpressions.res.txt

@@ -1259,12 +1259,12 @@ ContextPath CArgument Value[mkStuff]($0)
 ContextPath Value[mkStuff]
 Path mkStuff
 [{
-    "label": "%re()",
+    "label": "/<regexp>/g",
     "kind": 4,
     "tags": [],
     "detail": "Regular expression",
     "documentation": null,
-    "insertText": "%re(\"/$0/g\")",
+    "insertText": "/$0/g",
     "insertTextFormat": 2
   }, {
     "label": "Js.Re.fromString()",