9da3ffee41
This is a massive diff that I had to do in a hurry - when leaving Urbint. I'm pretty sure that most of these are updating Emacs packages, but I'm not positive.
401 lines
18 KiB
EmacsLisp
401 lines
18 KiB
EmacsLisp
;;; lsp-mode.el --- Minor mode for interacting with Language Servers -*- lexical-binding: t -*-
|
||
|
||
;; Copyright (C) 2016-2018 Vibhav Pant <vibhavp@gmail.com>
|
||
|
||
;; This program is free software: you can redistribute it and/or modify
|
||
;; it under the terms of the GNU General Public License as published by
|
||
;; the Free Software Foundation, either version 3 of the License, or
|
||
;; (at your option) any later version.
|
||
|
||
;; This program is distributed in the hope that it will be useful,
|
||
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
;; GNU General Public License for more details.
|
||
|
||
;; You should have received a copy of the GNU General Public License
|
||
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||
|
||
;; Author: Vibhav Pant <vibhavp@gmail.com>
|
||
;; URL: https://github.com/emacs-lsp/lsp-mode
|
||
;; Package-Requires: ((emacs "25.1"))
|
||
;; Version: 4.2
|
||
|
||
;;; Commentary:
|
||
|
||
;;; Code:
|
||
|
||
(require 'lsp-methods)
|
||
(require 'lsp-io)
|
||
(require 'cl-lib)
|
||
(require 'network-stream)
|
||
|
||
(defvar lsp-version-support "3.0"
|
||
"This is the version of the Language Server Protocol currently supported by ‘lsp-mode’.")
|
||
|
||
;;;###autoload
|
||
(define-minor-mode lsp-mode ""
|
||
nil nil nil
|
||
:lighter (:eval (lsp-mode-line))
|
||
:group 'lsp-mode)
|
||
|
||
(defun lsp--make-stdio-connection (name command command-fn stderr)
|
||
(lambda (filter sentinel)
|
||
(let* ((command (if command-fn (funcall command-fn) command))
|
||
(final-command (if (consp command) command (list command))))
|
||
(unless (executable-find (nth 0 final-command))
|
||
(error (format "Couldn't find executable %s" (nth 0 final-command))))
|
||
(let ((proc (make-process
|
||
:name name
|
||
:connection-type 'pipe
|
||
:coding 'no-conversion
|
||
:command final-command
|
||
:filter filter
|
||
:sentinel sentinel
|
||
:stderr stderr
|
||
:noquery t)))
|
||
;; TODO: This is redundant with :noquery above, but due to a
|
||
;; bug pre-Emacs 26 it is still needed
|
||
;; https://debbugs.gnu.org/cgi/bugreport.cgi?bug=30031
|
||
(set-process-query-on-exit-flag (get-buffer-process (get-buffer stderr)) nil)
|
||
proc))))
|
||
|
||
(defun lsp--make-tcp-connection (name command command-fn host port stderr)
|
||
(lambda (filter sentinel)
|
||
(let* ((command (if command-fn (funcall command-fn) command))
|
||
(final-command (if (consp command) command (list command)))
|
||
proc tcp-proc)
|
||
(unless (executable-find (nth 0 final-command))
|
||
(error (format "Couldn't find executable %s" (nth 0 final-command))))
|
||
(setq proc (make-process
|
||
:name name
|
||
:connection-type 'pipe
|
||
:coding 'no-conversion
|
||
:command final-command
|
||
:sentinel sentinel
|
||
:stderr stderr
|
||
:noquery t)
|
||
tcp-proc (open-network-stream (concat name " TCP connection")
|
||
nil host port
|
||
:type 'plain))
|
||
;; TODO: Same :noquery issue (see above)
|
||
(set-process-query-on-exit-flag (get-buffer-process (get-buffer stderr)) nil)
|
||
(set-process-query-on-exit-flag tcp-proc nil)
|
||
(set-process-filter tcp-proc filter)
|
||
(cons proc tcp-proc))))
|
||
|
||
(cl-defmacro lsp-define-whitelist-add (name get-root
|
||
&key docstring)
|
||
"Define a function to add the project root for the current buffer to the whitleist.
|
||
NAME is the base name for the command.
|
||
GET-ROOT is the language-specific function to determine the project root for the current buffer."
|
||
(let ((whitelist-add (intern (format "%s-whitelist-add" name)))
|
||
(enable-interactive (intern (format "%s-enable" name))))
|
||
`(defun ,whitelist-add ()
|
||
,docstring
|
||
(interactive)
|
||
(let ((root (funcall ,get-root)))
|
||
(customize-save-variable 'lsp-project-whitelist
|
||
(add-to-list 'lsp-project-whitelist (lsp--as-regex root)))
|
||
(,enable-interactive)))))
|
||
|
||
(cl-defmacro lsp-define-whitelist-remove (name get-root
|
||
&key docstring)
|
||
"Define a function to remove the project root for the current buffer from the whitleist.
|
||
NAME is the base name for the command.
|
||
GET-ROOT is the language-specific function to determine the project root for the current buffer."
|
||
(let ((whitelist-remove (intern (format "%s-whitelist-remove" name))))
|
||
`(defun ,whitelist-remove ()
|
||
,docstring
|
||
(interactive)
|
||
(let ((root (funcall ,get-root)))
|
||
(customize-save-variable 'lsp-project-whitelist
|
||
(remove (lsp--as-regex root) lsp-project-whitelist))))))
|
||
|
||
(defun lsp--as-regex (root)
|
||
"Convert the directory path in ROOT to an equivalent regex."
|
||
(concat "^" (regexp-quote root) "$"))
|
||
|
||
(cl-defmacro lsp-define-stdio-client (name language-id get-root command
|
||
&key docstring
|
||
language-id-fn
|
||
command-fn
|
||
ignore-regexps
|
||
ignore-messages
|
||
extra-init-params
|
||
initialize
|
||
prefix-function)
|
||
"Define a LSP client using stdio.
|
||
NAME is the symbol to use for the name of the client.
|
||
LANGUAGE-ID is the language id to be used when communication with
|
||
the Language Server. COMMAND is the command to run.
|
||
|
||
Optional arguments:
|
||
`:docstring' is an optional docstring used for the entrypoint function created by
|
||
`lsp-define-stdio-client'.
|
||
|
||
`:ignore-regexps' is a list of regexps. When a data packet from the LSP server
|
||
matches any of these regexps, it will be ignored. This is intended for dealing
|
||
with LSP servers that output non-protocol data.
|
||
|
||
`:ignore-messages' is a list of regexps. When a message from the LSP server
|
||
matches any of these regexps, it will be ignored. This is useful for filtering
|
||
out unwanted messages; such as servers that send nonstandard message types, or
|
||
extraneous `logMessage's.
|
||
|
||
`:command-fn' is a function that returns the command string/list to be used to
|
||
launch the language server. If non-nil, COMMAND is ignored.
|
||
|
||
`:language-id-fn' is a function that returns the language-id string to be used
|
||
while opening a new file. If non-nil, LANGUAGE-ID is ignored.
|
||
|
||
`:extra-init-params' is a plist that specifies any (optional)
|
||
initializeOptions parameters required by the LSP server. A function taking
|
||
a single argument (LSP workspace) and returning a plist is also accepted.
|
||
|
||
`:initialize' is a function called when the client is initialized. It takes a
|
||
single argument, the newly created client.
|
||
|
||
`:prefix-function' is a function called for getting the prefix for completion.
|
||
The function takes no parameter and returns a cons (start . end) representing
|
||
the start and end bounds of the prefix. If it's not set, the client uses a
|
||
default prefix function."
|
||
(cl-check-type name symbol)
|
||
(let ((enable-name (intern (format "%s-enable" name))))
|
||
`(progn
|
||
(lsp-define-whitelist-add ,name ,get-root)
|
||
(lsp-define-whitelist-remove ,name ,get-root)
|
||
(defun ,enable-name ()
|
||
,docstring
|
||
(interactive)
|
||
(lsp--enable-stdio-client ',name
|
||
:language-id ,language-id
|
||
:language-id-fn ,language-id-fn
|
||
:root-directory-fn ,get-root
|
||
:command ,command
|
||
:command-fn ,command-fn
|
||
:ignore-regexps ,ignore-regexps
|
||
:ignore-messages ,ignore-messages
|
||
:extra-init-params ,extra-init-params
|
||
:initialize-fn ,initialize
|
||
:enable-function (function ,enable-name)
|
||
:prefix-function ,prefix-function)))))
|
||
|
||
(cl-defun lsp--enable-stdio-client (name &key language-id language-id-fn
|
||
root-directory-fn command command-fn
|
||
ignore-regexps ignore-messages
|
||
extra-init-params initialize-fn
|
||
enable-function
|
||
prefix-function)
|
||
(cl-check-type name symbol)
|
||
(cl-check-type language-id (or null string))
|
||
(cl-check-type language-id-fn (or null function))
|
||
(cl-check-type root-directory-fn (or null function))
|
||
(cl-check-type command list)
|
||
(cl-check-type command-fn (or null function))
|
||
(cl-check-type ignore-regexps list)
|
||
(cl-check-type ignore-messages list)
|
||
(cl-check-type extra-init-params (or list function))
|
||
(cl-check-type initialize-fn (or null function))
|
||
;; (cl-check-type enable-function function)
|
||
(cl-check-type prefix-function (or null function))
|
||
(when (and (not lsp-mode) (buffer-file-name))
|
||
(let* ((stderr (generate-new-buffer-name
|
||
(concat "*" (symbol-name name) " stderr*")))
|
||
(client (make-lsp--client
|
||
:language-id (or language-id-fn (lambda (_) language-id))
|
||
:new-connection (lsp--make-stdio-connection
|
||
(symbol-name name)
|
||
command
|
||
command-fn
|
||
stderr)
|
||
:stderr stderr
|
||
:get-root root-directory-fn
|
||
:ignore-regexps ignore-regexps
|
||
:ignore-messages ignore-messages
|
||
:enable-function enable-function
|
||
:prefix-function prefix-function)))
|
||
(when initialize-fn
|
||
(funcall initialize-fn client))
|
||
(let ((root (funcall (lsp--client-get-root client))))
|
||
(if (lsp--should-start-p root)
|
||
(lsp--start client extra-init-params)
|
||
(message "Not initializing project %s" root))))))
|
||
|
||
(cl-defmacro lsp-define-tcp-client (name language-id get-root command host port
|
||
&key docstring
|
||
language-id-fn
|
||
command-fn
|
||
ignore-regexps
|
||
ignore-messages
|
||
extra-init-params
|
||
initialize
|
||
prefix-function)
|
||
"Define a LSP client using TCP.
|
||
NAME is the symbol to use for the name of the client.
|
||
LANGUAGE-ID is the language id to be used when communication with
|
||
the Language Server. COMMAND is the command to run. HOST is the
|
||
host address. PORT is the port number.
|
||
|
||
Optional arguments:
|
||
`:ignore-regexps' is a list of regexps. When a data packet from the LSP server
|
||
matches any of these regexps, it will be ignored. This is intended for dealing
|
||
with LSP servers that output non-protocol data.
|
||
|
||
`:ignore-messages' is a list of regexps. When a message from the LSP server
|
||
matches any of these regexps, it will be ignored. This is useful for filtering
|
||
out unwanted messages; such as servers that send nonstandard message types, or
|
||
extraneous `logMessage's.
|
||
|
||
`:command-fn' is a function that returns the command string/list to be used to
|
||
launch the language server. If non-nil, COMMAND is ignored.
|
||
|
||
`:language-id-fn' is a function that returns the language-id string to be used
|
||
while opening a new file. If non-nil, LANGUAGE-ID is ignored.
|
||
|
||
`:extra-init-params' is a plist that specifies any (optional)
|
||
initializeOptions parameters required by the LSP server. A function taking
|
||
a single argument (LSP workspace) and returning a plist is also accepted.
|
||
|
||
`:initialize' is a function called when the client is initialized. It takes a
|
||
single argument, the newly created client.
|
||
|
||
`:prefix-function' is a function called for getting the prefix for completion.
|
||
The function takes no parameter and returns a cons (start . end) representing
|
||
the start and end bounds of the prefix. If it's not set, the client uses a
|
||
default prefix function."
|
||
(cl-check-type name symbol)
|
||
(let ((enable-name (intern (format "%s-enable" name))))
|
||
`(progn
|
||
(lsp-define-whitelist-add ,name ,get-root)
|
||
(lsp-define-whitelist-remove ,name ,get-root)
|
||
(defun ,enable-name ()
|
||
,docstring
|
||
(interactive)
|
||
(lsp--enable-tcp-client ',name
|
||
:language-id ,language-id
|
||
:language-id-fn ,language-id-fn
|
||
:root-directory-fn ,get-root
|
||
:command ,command
|
||
:command-fn ,command-fn
|
||
:host ,host
|
||
:port ,port
|
||
:ignore-regexps ,ignore-regexps
|
||
:ignore-messages ,ignore-messages
|
||
:extra-init-params ,extra-init-params
|
||
:initialize-fn ,initialize
|
||
:enable-function (function ,enable-name)
|
||
:prefix-function ,prefix-function)))))
|
||
|
||
(cl-defun lsp--enable-tcp-client (name &key language-id language-id-fn
|
||
root-directory-fn command command-fn
|
||
host port
|
||
ignore-regexps ignore-messages
|
||
extra-init-params initialize-fn
|
||
enable-function
|
||
prefix-function)
|
||
(cl-check-type name symbol)
|
||
(cl-check-type language-id (or null string))
|
||
(cl-check-type language-id-fn (or null function))
|
||
(cl-check-type root-directory-fn (or null function))
|
||
(cl-check-type command list)
|
||
(cl-check-type command-fn (or null function))
|
||
(cl-check-type host string)
|
||
(cl-check-type port (integer 1 #xFFFF))
|
||
(cl-check-type ignore-regexps list)
|
||
(cl-check-type ignore-messages list)
|
||
(cl-check-type extra-init-params (or list function))
|
||
(cl-check-type initialize-fn (or null function))
|
||
(cl-check-type prefix-function (or null function))
|
||
(when (and (not lsp-mode) (buffer-file-name))
|
||
(let* ((stderr (generate-new-buffer-name
|
||
(concat "*" (symbol-name name) " stderr*")))
|
||
(client (make-lsp--client
|
||
:language-id (or language-id-fn (lambda (_) language-id))
|
||
:new-connection (lsp--make-tcp-connection
|
||
(symbol-name name)
|
||
command
|
||
command-fn
|
||
host port
|
||
stderr)
|
||
:stderr stderr
|
||
:get-root root-directory-fn
|
||
:ignore-regexps ignore-regexps
|
||
:ignore-messages ignore-messages
|
||
:enable-function enable-function
|
||
:prefix-function prefix-function)))
|
||
(when initialize-fn
|
||
(funcall initialize-fn client))
|
||
(let ((root (funcall (lsp--client-get-root client))))
|
||
(if (lsp--should-start-p root)
|
||
(lsp--start client extra-init-params)
|
||
(message "Not initializing project %s" root))))))
|
||
|
||
(defvar-local lsp-status nil
|
||
"The current status of the LSP server.")
|
||
|
||
(defun lsp-workspace-status (status-string &optional workspace)
|
||
"Set current workspace status to STATUS-STRING.
|
||
If WORKSPACE is not specified defaults to lsp--cur-workspace."
|
||
(setf (lsp--workspace-status (or workspace lsp--cur-workspace)) status-string))
|
||
|
||
(defun lsp-mode-line ()
|
||
"Construct the mode line text."
|
||
(concat " LSP" lsp-status (lsp--workspace-status lsp--cur-workspace)))
|
||
|
||
(defconst lsp--sync-type
|
||
`((0 . "None")
|
||
(1 . "Full Document")
|
||
(2 . "Incremental Changes")))
|
||
|
||
(defconst lsp--capabilities
|
||
`(("textDocumentSync" . ("Document sync method" .
|
||
((0 . "None")
|
||
(1 . "Send full contents")
|
||
(2 . "Send incremental changes."))))
|
||
("hoverProvider" . ("The server provides hover support" . boolean))
|
||
("completionProvider" . ("The server provides completion support" . boolean))
|
||
("signatureHelpProvider" . ("The server provides signature help support" . boolean))
|
||
("definitionProvider" . ("The server provides goto definition support" . boolean))
|
||
("typeDefinitionProvider" . ("The server provides goto type definition support" . boolean))
|
||
("implementationProvider" . ("The server provides goto implementation support" . boolean))
|
||
("referencesProvider" . ("The server provides references support" . boolean))
|
||
(("documentHighlightProvider" . ("The server provides document highlight support." . boolean)))
|
||
("documentSymbolProvider" . ("The server provides file symbol support" . boolean))
|
||
("workspaceSymbolProvider" . ("The server provides project symbol support" . boolean))
|
||
("codeActionProvider" . ("The server provides code actions" . boolean))
|
||
("codeLensProvider" . ("The server provides code lens" . boolean))
|
||
("documentFormattingProvider" . ("The server provides file formatting" . boolean))
|
||
("documentOnTypeFormattingProvider" . ("The server provides on-type formatting" . boolean))
|
||
("documentLinkProvider" . ("The server provides document link support" . boolean))
|
||
("executeCommandProvider" . ("The server provides command execution support" . boolean))
|
||
(("documentRangeFormattingProvider" . ("The server provides region formatting" . boolean)))
|
||
(("renameProvider" . ("The server provides rename support" . boolean)))))
|
||
|
||
(defun lsp--cap-str (cap)
|
||
(let* ((elem (assoc cap lsp--capabilities))
|
||
(desc (cadr elem))
|
||
(type (cddr elem))
|
||
(value (gethash cap (lsp--server-capabilities))))
|
||
(when (and elem desc type value)
|
||
(concat desc (cond
|
||
((listp type) (concat ": " (cdr (assoc value type))))) "\n"))))
|
||
|
||
(defun lsp-capabilities ()
|
||
"View all capabilities for the language server associated with this buffer."
|
||
(interactive)
|
||
(unless lsp--cur-workspace
|
||
(user-error "No language server is associated with this buffer"))
|
||
(let ((str (mapconcat #'lsp--cap-str (reverse (hash-table-keys
|
||
(lsp--server-capabilities))) ""))
|
||
(buffer-name (generate-new-buffer-name "lsp-capabilities"))
|
||
)
|
||
(get-buffer-create buffer-name)
|
||
(with-current-buffer buffer-name
|
||
(view-mode -1)
|
||
(erase-buffer)
|
||
(insert str)
|
||
(view-mode 1))
|
||
(switch-to-buffer buffer-name)))
|
||
|
||
(provide 'lsp-mode)
|
||
;;; lsp-mode.el ends here
|