Return autocomplete documentation for items in markdown, just as for hover.

Author: cristianoc

src/rescript-editor-support/EditorSupportCommands.re

@@ -205,13 +205,19 @@ let autocomplete = (~currentFile, ~full, ~package, ~pos, ~state) => {
                ("detail", NewCompletions.detail(name, item) |> s),
                (
                  "documentation",
-                 s(
-                   (docstring |? "No docs")
-                   ++ "\n\n"
-                   ++ uri
-                   ++ ":"
-                   ++ string_of_int(pos_lnum),
-                 ),
+                 o([
+                   ("kind", s("markdown")),
+                   (
+                     "value",
+                     s(
+                       (docstring |? "No docs")
+                       ++ "\n\n"
+                       ++ uri
+                       ++ ":"
+                       ++ string_of_int(pos_lnum),
+                     ),
+                   ),
+                 ]),
                ),
              ])
            })

src/rescript-editor-support/MessageHandlers.re

@@ -220,13 +220,19 @@ let handlers:
                    ("detail", NewCompletions.detail(name, item) |> s),
                    (
                      "documentation",
-                     s(
-                       (docstring |? "No docs")
-                       ++ "\n\n"
-                       ++ uri
-                       ++ ":"
-                       ++ string_of_int(pos_lnum),
-                     ),
+                     o([
+                       ("kind", s("markdown")),
+                       (
+                         "value",
+                         s(
+                           (docstring |? "No docs")
+                           ++ "\n\n"
+                           ++ uri
+                           ++ ":"
+                           ++ string_of_int(pos_lnum),
+                         ),
+                       ),
+                     ]),
                    ),
                  ])
                ),