9ea6a0965b
Implements LSP documentSymbol request to provide a list of all symbols defined in the current document. Clients use it to show an outline and allow to jump to the symbol's definition.
124 lines
3.6 KiB
Fennel
124 lines
3.6 KiB
Fennel
(local dispatch (require :fennel-ls.dispatch))
|
|
(local message (require :fennel-ls.message))
|
|
|
|
(local ROOT-PATH "/path/to/test/project")
|
|
|
|
(local ROOT-URI
|
|
(.. "file://" ROOT-PATH))
|
|
|
|
(local default-encoding :utf-8)
|
|
|
|
(fn next-id! [self]
|
|
(set self.prev-id (+ self.prev-id 1))
|
|
self.prev-id)
|
|
|
|
(fn open-file! [self name text]
|
|
(dispatch.handle* self.server
|
|
(message.create-notification :textDocument/didOpen
|
|
{:textDocument
|
|
{:uri name
|
|
:languageId "fennel"
|
|
:version 1
|
|
: text}})))
|
|
|
|
(fn pretend-this-file-exists! [self name text]
|
|
(tset self.server.preload name text))
|
|
|
|
(fn completion [self file position]
|
|
(dispatch.handle* self.server
|
|
(message.create-request (next-id! self) :textDocument/completion
|
|
{: position
|
|
:textDocument {:uri file}})))
|
|
|
|
(fn completion-item-resolve [self completion-item]
|
|
(dispatch.handle* self.server
|
|
(message.create-request (next-id! self) :completionItem/resolve
|
|
completion-item)))
|
|
|
|
(fn definition [self file position]
|
|
(dispatch.handle* self.server
|
|
(message.create-request (next-id! self) :textDocument/definition
|
|
{: position
|
|
:textDocument {:uri file}})))
|
|
|
|
(fn hover [self file position]
|
|
(dispatch.handle* self.server
|
|
(message.create-request (next-id! self) :textDocument/hover
|
|
{: position
|
|
:textDocument {:uri file}})))
|
|
|
|
(fn references [self file position ?includeDeclaration]
|
|
(dispatch.handle* self.server
|
|
(message.create-request (next-id! self) :textDocument/references
|
|
{: position
|
|
:textDocument {:uri file}
|
|
:context {:includeDeclaration (not (not ?includeDeclaration))}})))
|
|
|
|
(fn document-highlight [self file position]
|
|
(dispatch.handle* self.server
|
|
(message.create-request (next-id! self) :textDocument/documentHighlight
|
|
{: position
|
|
:textDocument {:uri file}})))
|
|
|
|
(fn document-symbol [self file]
|
|
(dispatch.handle* self.server
|
|
(message.create-request (next-id! self) :textDocument/documentSymbol
|
|
{:textDocument {:uri file}})))
|
|
|
|
(fn signature-help [self file position]
|
|
(dispatch.handle*
|
|
self.server
|
|
(message.create-request (next-id! self)
|
|
:textDocument/signatureHelp
|
|
{: position
|
|
:textDocument {:uri file}})))
|
|
|
|
(fn rename [self file position newName]
|
|
(dispatch.handle* self.server
|
|
(message.create-request (next-id! self) :textDocument/rename
|
|
{: position
|
|
:textDocument {:uri file}
|
|
: newName})))
|
|
|
|
(fn diagnostic [self file ?previousResultId]
|
|
(dispatch.handle* self.server
|
|
(message.create-request (next-id! self) :textDocument/diagnostic
|
|
(let [params {:textDocument {:uri file}}]
|
|
(when ?previousResultId
|
|
(set params.previousResultId ?previousResultId))
|
|
params))))
|
|
|
|
(fn code-action [self file range]
|
|
(dispatch.handle* self.server
|
|
(message.create-request (next-id! self) :textDocument/codeAction
|
|
{: range
|
|
:textDocument {:uri file}
|
|
:context {:diagnostics []}})))
|
|
|
|
(fn did-save [self file]
|
|
(dispatch.handle* self.server
|
|
(message.create-notification :textDocument/didSave
|
|
{:textDocument {:uri file}})))
|
|
|
|
|
|
(local client-mt
|
|
{:__index {: open-file!
|
|
: pretend-this-file-exists!
|
|
: completion
|
|
: completion-item-resolve
|
|
: definition
|
|
: hover
|
|
: references
|
|
: document-highlight
|
|
: document-symbol
|
|
: signature-help
|
|
: rename
|
|
: code-action
|
|
: diagnostic
|
|
: did-save}})
|
|
|
|
{: client-mt
|
|
: default-encoding
|
|
: ROOT-URI
|
|
: ROOT-PATH}
|