Add ocaml.server.duneDiagnostics to disable dune diagnostics reporting

package.json

@@ -272,6 +272,11 @@
           "default": false,
           "markdownDescription": "Enable/Disable extended hover"
         },
+        "ocaml.server.duneDiagnostics": {
+          "type": "boolean",
+          "default": true,
+          "markdownDescription": "Enable/Disable dune diagnostics"
+        },
         "ocaml.dune.autoDetect": {
           "type": "boolean",
           "default": true,

src-bindings/vscode_languageclient/vscode_languageclient.ml

@@ -97,9 +97,12 @@ module OcamllspSettings = struct
 
     val extendedHover : t -> OcamllspSettingEnable.t or_undefined [@@js.get]
 
+    val duneDiagnostics : t -> OcamllspSettingEnable.t or_undefined [@@js.get]
+
     val create :
          ?codelens:OcamllspSettingEnable.t
       -> ?extendedHover:OcamllspSettingEnable.t
+      -> ?duneDiagnostics:OcamllspSettingEnable.t
       -> unit
       -> t
     [@@js.builder]]

src-bindings/vscode_languageclient/vscode_languageclient.mli

@@ -78,9 +78,12 @@ module OcamllspSettings : sig
 
   val extendedHover : t -> OcamllspSettingEnable.t option
 
+  val duneDiagnostics : t -> OcamllspSettingEnable.t option
+
   val create :
        ?codelens:OcamllspSettingEnable.t
     -> ?extendedHover:OcamllspSettingEnable.t
+    -> ?duneDiagnostics:OcamllspSettingEnable.t
     -> unit
     -> t
 end

src/settings.ml

@@ -127,3 +127,10 @@ let server_extendedHover_setting =
     ~key:"ocaml.server.extendedHover"
     ~of_json:Jsonoo.Decode.bool
     ~to_json:Jsonoo.Encode.bool
+
+let server_duneDiagnostics_setting =
+  create_setting
+    ~scope:ConfigurationTarget.Workspace
+    ~key:"ocaml.server.duneDiagnostics"
+    ~of_json:Jsonoo.Decode.bool
+    ~to_json:Jsonoo.Encode.bool

src/settings.mli

@@ -41,3 +41,5 @@ val server_args_setting : string list setting
 val server_codelens_setting : bool setting
 
 val server_extendedHover_setting : bool setting
+
+val server_duneDiagnostics_setting : bool setting

src/vscode_ocaml_platform.ml

@@ -38,8 +38,18 @@ let notify_configuration_changes instance =
             ~f:(fun enable ->
               LanguageClient.OcamllspSettingEnable.create ~enable ())
         in
+        let duneDiagnostics =
+          Option.map
+            Settings.(get server_duneDiagnostics_setting)
+            ~f:(fun enable ->
+              LanguageClient.OcamllspSettingEnable.create ~enable ())
+        in
         let settings =
-          LanguageClient.OcamllspSettings.create ?codelens ?extendedHover ()
+          LanguageClient.OcamllspSettings.create
+            ?codelens
+            ?extendedHover
+            ?duneDiagnostics
+            ()
         in
         let payload =
           let settings =