Henrik Lissner
2021-12-18 00:17:37 +01:00
parent af7c1d79bd
commit 0cb8d1416f
2 changed files with 3 additions and 26 deletions

View File

@@ -7,12 +7,6 @@
"The backends to prepend to `company-backends' in `lsp-mode' buffers.
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 set to `quiet', suppress the install prompt and don't visibly inform the user
about it (it will be logged to *Messages* however).")
;;
;;; Packages
@@ -127,23 +121,6 @@ server getting expensively restarted when reverting buffers."
(+lsp-optimization-mode -1))))
lsp--cur-workspace))))
(defadvice! +lsp-dont-prompt-to-install-servers-maybe-a (fn &rest args)
:around #'lsp
(when (buffer-file-name)
(require 'lsp-mode)
(lsp--require-packages)
(if (or (lsp--filter-clients
(-andfn #'lsp--matching-clients?
#'lsp--server-binary-present?))
(not (memq +lsp-prompt-to-install-server '(nil quiet))))
(apply fn args)
;; HACK `lsp--message' overrides `inhibit-message', so use `quiet!'
(let ((doom-debug-p
(or doom-debug-p
(not (eq +lsp-prompt-to-install-server 'quiet)))))
(doom-shut-up-a #'lsp--info "No language server available for %S"
major-mode)))))
(when (featurep! :ui modeline +light)
(defvar-local lsp-modeline-icon nil)