simon/linol
1
0
Fork 0
mirror of https://github.com/c-cube/linol.git synced 2025-12-07 19:55:44 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

feat: provide some methods to modify init config

Browse source
This commit is contained in:
Simon Cruanes 2021-04-07 14:35:01 -04:00
parent 6e6a1f998e
commit 9d0b257cea
1 changed files with 16 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
src/server.ml
View file

@ -86,11 +86,26 @@ module Make(IO : IO) = struct
TextDocumentSyncOptions.create TextDocumentSyncOptions.create
~change:TextDocumentSyncKind.Incremental ~willSave:false () ~change:TextDocumentSyncKind.Incremental ~willSave:false ()
method config_code_lens_provider : CodeLensOptions.t option = None
(** @since NEXT_RELEASE *)
method config_code_action_provider : [`CodeActionOptions of CodeActionOptions.t | `Bool of bool] = `Bool false
(** @since NEXT_RELEASE *)
(** Modify capabilities before sending them back to the client.
By default we just return them unmodified.
@since NEXT_RELEASE *)
method config_modify_capabilities (c:ServerCapabilities.t) : ServerCapabilities.t = c
method on_req_initialize (_i:InitializeParams.t) : InitializeResult.t IO.t = method on_req_initialize (_i:InitializeParams.t) : InitializeResult.t IO.t =
let sync_opts = self#config_sync_opts in let sync_opts = self#config_sync_opts in
let capabilities = let capabilities =
ServerCapabilities.create ServerCapabilities.create
~textDocumentSync:(`TextDocumentSyncOptions sync_opts) () in ?codeLensProvider:self#config_code_lens_provider
~codeActionProvider:self#config_code_action_provider
~textDocumentSync:(`TextDocumentSyncOptions sync_opts) ()
|> self#config_modify_capabilities
in
IO.return @@ InitializeResult.create ~capabilities () IO.return @@ InitializeResult.create ~capabilities ()
(** Called when the user hovers on some identifier in the document *) (** Called when the user hovers on some identifier in the document *)