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

feat: expose on_req_symbol

Browse source
This commit is contained in:
Simon Cruanes 2021-04-13 15:27:42 -04:00
parent 34f931e74c
commit 97bbdfd4ba
1 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/server.ml
View file

@ -174,6 +174,13 @@ module Make(IO : IO) = struct
(_c:string) (_args:Yojson.Safe.t list option) : Yojson.Safe.t IO.t = (_c:string) (_args:Yojson.Safe.t list option) : Yojson.Safe.t IO.t =
IO.return `Null IO.return `Null
(** List symbols in this document.
@since NEXT_RELEASE *)
method on_req_symbol ~notify_back:_ ~uri:_
() : [ `DocumentSymbol of DocumentSymbol.t list
| `SymbolInformation of SymbolInformation.t list ] option IO.t =
IO.return None
method on_request method on_request
: type r. notify_back:_ -> r Lsp.Client_request.t -> r IO.t : type r. notify_back:_ -> r Lsp.Client_request.t -> r IO.t
= fun ~notify_back (r:_ Lsp.Client_request.t) -> = fun ~notify_back (r:_ Lsp.Client_request.t) ->
@ -243,13 +250,16 @@ module Make(IO : IO) = struct
let notify_back = new notify_back ~notify_back () in let notify_back = new notify_back ~notify_back () in
self#on_req_execute_command ~notify_back command arguments self#on_req_execute_command ~notify_back command arguments
| Lsp.Client_request.DocumentSymbol { textDocument=d } ->
let notify_back = new notify_back ~notify_back () in
self#on_req_symbol ~notify_back ~uri:d.uri ()
| Lsp.Client_request.TextDocumentDeclaration _ | Lsp.Client_request.TextDocumentDeclaration _
| Lsp.Client_request.TextDocumentTypeDefinition _ | Lsp.Client_request.TextDocumentTypeDefinition _
| Lsp.Client_request.TextDocumentPrepareRename _ | Lsp.Client_request.TextDocumentPrepareRename _
| Lsp.Client_request.TextDocumentRename _ | Lsp.Client_request.TextDocumentRename _
| Lsp.Client_request.TextDocumentLink _ | Lsp.Client_request.TextDocumentLink _
| Lsp.Client_request.TextDocumentLinkResolve _ | Lsp.Client_request.TextDocumentLinkResolve _
| Lsp.Client_request.DocumentSymbol _
| Lsp.Client_request.WorkspaceSymbol _ | Lsp.Client_request.WorkspaceSymbol _
| Lsp.Client_request.DebugEcho _ | Lsp.Client_request.DebugEcho _
| Lsp.Client_request.DebugTextDocumentGet _ | Lsp.Client_request.DebugTextDocumentGet _