From 7f6bcb8616554e49c717b36c3db1bb9b9a1ceeed Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Wed, 24 Feb 2021 15:54:28 -0500 Subject: [PATCH] tools/lsp: allow +lsp-prompt-to-install-server = 'quiet --- modules/tools/lsp/+lsp.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/modules/tools/lsp/+lsp.el b/modules/tools/lsp/+lsp.el index 8feadd5df..acef54883 100644 --- a/modules/tools/lsp/+lsp.el +++ b/modules/tools/lsp/+lsp.el @@ -5,7 +5,10 @@ Can be a list of backends; accepts any value `company-backends' accepts.") (defvar +lsp-prompt-to-install-server t - "If non-nil, prompt to install a server if no server is present.") + "If non-nil, prompt to install a server if no server is present. + +If set to `quiet', suppress the install prompt and don't visibly inform the user +about it (it will be logged to *Messages* however).") ;; @@ -120,9 +123,10 @@ server getting expensively restarted when reverting buffers." (if (or (lsp--filter-clients (-andfn #'lsp--matching-clients? #'lsp--server-binary-present?)) - +lsp-prompt-to-install-server) + (not (memq +lsp-prompt-to-install-server '(nil quiet)))) (apply orig-fn args) - (lsp--info "No language server available for %S" major-mode))))) + (let ((inhibit-message (not (eq +lsp-prompt-to-install-server 'quiet)))) + (lsp--info "No language server available for %S" major-mode)))))) (use-package! lsp-ui