Merge branch 'topic/request-priorities' into 'master'

Adjust priorities of requests and notifications

See merge request eng/ide/ada_language_server!2055

Author: eliericha

source/ada/lsp-ada_driver.adb

@@ -106,6 +106,7 @@ with LSP.Server_Notifications.DidDeleteFiles;
 with LSP.Server_Notifications.DidOpen;
 with LSP.Server_Notifications.DidRenameFiles;
 with LSP.Server_Notifications.Exits;
+with LSP.Server_Notifications.Initialized;
 with LSP.Server_Requests.Declaration;
 with LSP.Server_Requests.Definition;
 with LSP.Server_Requests.DocumentSymbol;
@@ -634,6 +635,10 @@ begin
            (LSP.Server_Requests.Initialize.Request'Tag,
             Ada_Fence_Message_Handler'Unchecked_Access);
 
+         Server.Register_Handler
+           (LSP.Server_Notifications.Initialized.Notification'Tag,
+            Ada_Fence_Message_Handler'Unchecked_Access);
+
          Server.Register_Handler
            (LSP.Server_Notifications.DidOpen.Notification'Tag,
             Ada_Fence_Message_Handler'Unchecked_Access);

source/ada/lsp-ada_handlers-executables_commands.ads

@@ -41,7 +41,7 @@ private
 
    overriding function Priority (Self : Command)
      return LSP.Server_Jobs.Job_Priority
-       is (LSP.Server_Jobs.Immediate);
+       is (LSP.Server_Jobs.High);
 
    for Command'External_Tag use "als-executables";
 

source/ada/lsp-ada_handlers-gpr_dependencies_commands.ads

@@ -64,7 +64,7 @@ private
 
    overriding
    function Priority (Self : Command) return LSP.Server_Jobs.Job_Priority
-   is (LSP.Server_Jobs.Immediate);
+   is (LSP.Server_Jobs.High);
 
    for Command'External_Tag use "als-gpr-dependencies";
 

source/ada/lsp-ada_handlers-mains_commands.ads

@@ -41,7 +41,7 @@ private
 
    overriding function Priority (Self : Command)
      return LSP.Server_Jobs.Job_Priority
-       is (LSP.Server_Jobs.Immediate);
+       is (LSP.Server_Jobs.High);
 
    for Command'External_Tag use "als-mains";
 

source/ada/lsp-ada_handlers-other_file_commands.ads

@@ -43,7 +43,7 @@ private
 
    overriding function Priority (Self : Command)
      return LSP.Server_Jobs.Job_Priority
-       is (LSP.Server_Jobs.Immediate);
+       is (LSP.Server_Jobs.High);
 
    for Command'External_Tag use "als-other-file";
 

source/ada/lsp-ada_handlers-project_attributes_commands.ads

@@ -46,7 +46,7 @@ private
 
    overriding function Priority (Self : Command)
      return LSP.Server_Jobs.Job_Priority
-       is (LSP.Server_Jobs.Immediate);
+       is (LSP.Server_Jobs.High);
 
    for Command'External_Tag use "als-get-project-attribute-value";
 

source/ada/lsp-ada_handlers-show_dependencies_commands.ads

@@ -47,7 +47,7 @@ private
 
    overriding function Priority (Self : Command)
      return LSP.Server_Jobs.Job_Priority
-       is (LSP.Server_Jobs.Immediate);
+       is (LSP.Server_Jobs.High);
 
    for Command'External_Tag use "als-show-dependencies";
 

source/ada/lsp-ada_handlers-source_dirs_commands.ads

@@ -42,7 +42,7 @@ private
 
    overriding function Priority (Self : Command)
      return LSP.Server_Jobs.Job_Priority
-       is (LSP.Server_Jobs.Immediate);
+       is (LSP.Server_Jobs.High);
 
    for Command'External_Tag use "als-source-dirs";