Archived
1
0
Fork 0
This repository has been archived on 2024-10-19. You can view files and clone it, but cannot push or open issues or pull requests.
emacs/code/elpa/lsp-mode-20240727.1013/lsp-erlang.el
2024-07-28 12:03:37 -04:00

229 lines
8.4 KiB
EmacsLisp

;;; lsp-erlang.el --- Erlang Client settings -*- lexical-binding: t; -*-
;; Copyright (C) 2019-2023 Roberto Aloi, Alan Zimmerman
;; Author: Roberto Aloi, Alan Zimmerman
;; Keywords: erlang lsp
;; 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 <https://www.gnu.org/licenses/>.
;;; Commentary:
;; lsp-erlang client
;;; Code:
(require 'lsp-mode)
(require 'lsp-semantic-tokens)
(defgroup lsp-erlang nil
"LSP support for the Erlang programming language.
It can use erlang-ls or erlang-language-platform (ELP)."
:group 'lsp-mode)
(defgroup lsp-erlang-ls nil
"LSP support for the Erlang programming language using erlang-ls."
:group 'lsp-mode
:link '(url-link "https://github.com/erlang-ls/erlang_ls"))
(defgroup lsp-erlang-elp nil
"LSP support for the Erlang programming language using erlang-language-platform (ELP)."
:group 'lsp-mode
:link '(url-link "https://github.com/WhatsApp/erlang-language-platform"))
(defgroup lsp-erlang-elp-semantic-tokens nil
"LSP semantic tokens support for ELP."
:group 'lsp-erlang-elp
:link '(url-link "https://github.com/WhatsApp/erlang-language-platform")
:package-version '(lsp-mode . "9.0.0"))
(defcustom lsp-erlang-server 'erlang-ls
"Choose LSP server."
:type '(choice (const :tag "erlang-ls" erlang-ls)
(const :tag "erlang-language-platform" erlang-language-platform))
:group 'lsp-erlang
:package-version '(lsp-mode . "6.2"))
;; erlang-ls
(defcustom lsp-erlang-ls-server-path
"erlang_ls"
"Path to the Erlang Language Server binary."
:group 'lsp-erlang-ls
:risky t
:type 'file)
(defcustom lsp-erlang-ls-server-connection-type
'stdio
"Type of connection to use with the Erlang Language Server: tcp or stdio."
:group 'lsp-erlang-ls
:risky t
:type 'symbol)
(defun lsp-erlang-ls-server-start-fun (port)
"Command to start erlang_ls in TCP mode on the given PORT."
`(,lsp-erlang-ls-server-path
"--transport" "tcp"
"--port" ,(number-to-string port)))
(defun lsp-erlang-ls-server-connection ()
"Command to start erlang_ls in stdio mode."
(if (eq lsp-erlang-ls-server-connection-type 'tcp)
(lsp-tcp-connection 'lsp-erlang-ls-server-start-fun)
(lsp-stdio-connection `(,lsp-erlang-ls-server-path "--transport" "stdio"))))
(lsp-register-client
(make-lsp-client :new-connection (lsp-erlang-ls-server-connection)
:major-modes '(erlang-mode)
:priority -1
:server-id 'erlang-ls))
;; erlang-language-platform
(lsp-defcustom lsp-erlang-elp-types-on-hover t
"Show eqWAlizer types on hover."
:type 'boolean
:group 'lsp-erlang-elp
:package-version '(lsp-mode . "9.0.0")
:lsp-path "elp.typesOnHover.enable")
(defcustom lsp-erlang-elp-server-command '("elp" "server")
"Command to start erlang-language-platform."
:type '(repeat string)
:group 'lsp-erlang-elp
:package-version '(lsp-mode . "8.0.0"))
(defcustom lsp-erlang-elp-download-url
(format "https://github.com/WhatsApp/erlang-language-platform/releases/latest/download/%s"
(pcase system-type
('gnu/linux "elp-linux-x86_64-unknown-linux-gnu-otp-26.tar.gz")
('darwin
(if (string-match "^aarch64-.*" system-configuration)
"elp-macos-aarch64-apple-darwin-otp-25.3.tar.gz"
"elp-macos-x86_64-apple-darwin-otp-25.3.tar.gz"))))
"Automatic download url for erlang-language-platform."
:type 'string
:group 'lsp-erlang-elp
:package-version '(lsp-mode . "8.0.0"))
(defcustom lsp-erlang-elp-store-path (f-join lsp-server-install-dir
"erlang"
(if (eq system-type 'windows-nt)
"elp.exe"
"elp"))
"The path to the file in which `elp' will be stored."
:type 'file
:group 'lsp-erlang-elp
:package-version '(lsp-mode . "8.0.0"))
(lsp-dependency
'erlang-language-platform
`(:download :url lsp-erlang-elp-download-url
:decompress :targz
:store-path lsp-erlang-elp-store-path
:set-executable? t)
'(:system "elp"))
;; Semantic tokens
;; Modifier faces
(defface lsp-erlang-elp-bound-modifier-face
'((t :underline t))
"The face modification to use for bound variables in patterns."
:group 'lsp-erlang-elp-semantic-tokens)
(defface lsp-erlang-elp-exported-function-modifier-face
'((t :underline t))
"The face modification to use for exported functions."
:group 'lsp-erlang-elp-semantic-tokens)
(defface lsp-erlang-elp-deprecated-function-modifier-face
'((t :strike-through t))
"The face modification to use for deprecated functions."
:group 'lsp-erlang-elp-semantic-tokens)
;; ---------------------------------------------------------------------
;; Semantic token modifier face customization
(defcustom lsp-erlang-elp-bound-modifier 'lsp-erlang-elp-bound-modifier-face
"Face for semantic token modifier for `bound' attribute."
:type 'face
:group 'lsp-erlang-elp-semantic-tokens
:package-version '(lsp-mode . "9.0.0"))
(defcustom lsp-erlang-elp-exported-function-modifier 'lsp-erlang-elp-exported-function-modifier-face
"Face for semantic token modifier for `exported_function' attribute."
:type 'face
:group 'lsp-erlang-elp-semantic-tokens
:package-version '(lsp-mode . "9.0.0"))
(defcustom lsp-erlang-elp-deprecated-function-modifier 'lsp-erlang-elp-deprecated-function-modifier-face
"Face for semantic token modifier for `deprecated_function' attribute."
:type 'face
:group 'lsp-erlang-elp-semantic-tokens
:package-version '(lsp-mode . "9.0.0"))
;; ---------------------------------------------------------------------
(defun lsp-erlang-elp--semantic-modifiers ()
"Mapping between rust-analyzer keywords and fonts to apply.
The keywords are sent in the initialize response, in the semantic
tokens legend."
`(
("bound" . ,lsp-erlang-elp-bound-modifier)
("exported_function" . ,lsp-erlang-elp-exported-function-modifier)
("deprecated_function" . ,lsp-erlang-elp-deprecated-function-modifier)))
;; ---------------------------------------------------------------------
;; Client
(lsp-register-client
(make-lsp-client
:new-connection (lsp-stdio-connection
(lambda ()
`(,(or (executable-find
(cl-first lsp-erlang-elp-server-command))
(lsp-package-path 'erlang-language-platform)
"elp")
,@(cl-rest lsp-erlang-elp-server-command))))
:activation-fn (lsp-activate-on "erlang")
:priority (if (eq lsp-erlang-server 'erlang-language-platform) 1 -2)
:semantic-tokens-faces-overrides `(:discard-default-modifiers t
:modifiers
,(lsp-erlang-elp--semantic-modifiers))
:server-id 'elp
:custom-capabilities `((experimental . ((snippetTextEdit . ,(and lsp-enable-snippet (fboundp 'yas-minor-mode))))))
:download-server-fn (lambda (_client callback error-callback _update?)
(lsp-package-ensure 'erlang-language-platform callback error-callback))))
(defun lsp-erlang-switch-server (&optional lsp-server)
"Switch priorities of lsp servers, unless LSP-SERVER is already active."
(interactive)
(let ((current-server (if (> (lsp--client-priority (gethash 'erlang-ls lsp-clients)) 0)
'erlang-ls
'erlang-language-platform)))
(unless (eq lsp-server current-server)
(dolist (server '(erlang-ls erlang-language-platform))
(when (natnump (setf (lsp--client-priority (gethash server lsp-clients))
(* (lsp--client-priority (gethash server lsp-clients)) -1)))
(message (format "Switched to server %s." server)))))))
(lsp-consistency-check lsp-erlang)
(provide 'lsp-erlang)
;;; lsp-erlang.el ends here