Don't send snippets in completion

if client doesn't support them.

Author: reznikmm

source/ada/lsp-ada_client_capabilities.adb

@@ -63,6 +63,24 @@ package body LSP.Ada_Client_Capabilities is
               else False);
    end Code_ActionLiteralSupport;
 
+   -------------------------------
+   -- Completion_SnippetSupport --
+   -------------------------------
+
+   function Completion_SnippetSupport
+     (Self : Client_Capability'Class) return Boolean
+   is
+      use LSP.Structures.Unwrap;
+
+      Result : constant LSP.Structures.Boolean_Optional :=
+        snippetSupport
+          (completionItem
+            (completion
+               (Self.Value.capabilities.textDocument)));
+   begin
+      return (if Result.Is_Set then Result.Value else False);
+   end Completion_SnippetSupport;
+
    -----------------------------------------------
    -- didChangeWatchedFiles_dynamicRegistration --
    -----------------------------------------------

source/ada/lsp-ada_client_capabilities.ads

@@ -75,6 +75,10 @@ package LSP.Ada_Client_Capabilities is
      (Self : Client_Capability'Class) return Boolean;
    --  Returns textDocument.documentSymbol.hierarchicalDocumentSymbolSupport
 
+   function Completion_SnippetSupport
+     (Self : Client_Capability'Class) return Boolean;
+   --  Returns textDocument.completion.completionItem.snippetSupport
+
    function didChangeWatchedFiles_dynamicRegistration
      (Self : Client_Capability'Class) return Boolean;
    --  Returns capabilities.workspace.didChangeWatchedFiles.dynamicRegistration

source/ada/lsp-ada_handlers.adb

@@ -1633,7 +1633,9 @@ package body LSP.Ada_Handlers is
         LSP.Ada_Completions.Attributes.Attributes_Completion_Provider;
 
       P5 : aliased LSP.Ada_Completions.Names.Name_Completion_Provider
-        (Self.Configuration.Use_Completion_Snippets);
+        (Self.Configuration.Use_Completion_Snippets
+         and then Self.Client.Completion_SnippetSupport);
+
       P6 : aliased LSP.Ada_Handlers.Invisibles.Invisible_Completion_Provider
         (Self'Access, Context);
       P7 : aliased

source/lsp_3.17/lsp-structures-unwrap.ads

@@ -44,6 +44,11 @@ package LSP.Structures.Unwrap is
        return resolveSupport_OfWorkspaceSymbolClientCapabilities_Optional is
          (if X.Is_Set then X.Value.resolveSupport else (Is_Set => False));
 
+   function snippetSupport
+     (X : completionItem_OfCompletionClientCapabilities_Optional)
+       return Boolean_Optional is
+         (if X.Is_Set then X.Value.snippetSupport else (Is_Set => False));
+
    function properties
      (X : resolveSupport_OfWorkspaceSymbolClientCapabilities_Optional)
        return LSP.Structures.Virtual_String_Vector is