emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

tools/lsp: defer server shutdown

Browse source 
To give theu ser a chance to open othe rproject files before the server
is auto-killed.
This commit is contained in:
Henrik Lissner 2019-10-21 19:01:57 -04:00
parent c034bfdc87
commit cba645be00
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 18 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

18
modules/tools/lsp/config.el
View file

@ -31,6 +31,24 @@ This can be a single company backend or a list thereof. It can be anything
:definition 'lsp-find-definition :definition 'lsp-find-definition
:references 'lsp-find-references) :references 'lsp-find-references)
(defvar +lsp--deferred-shutdown-timer nil)
(defadvice! +lsp-defer-server-shutdown-a (orig-fn)
"Defer server shutdown for a few seconds.
This gives the user a chance to open other project files before the server is
auto-killed (which is usually an expensive process)."
:around #'lsp--shutdown-workspace
(if lsp-keep-workspace-alive
(funcall orig-fn)
(when (timerp +lsp--deferred-shutdown-timer)
(cancel-timer +lsp--deferred-shutdown-timer))
(setq +lsp--deferred-shutdown-timer
(run-at-time
3 nil (lambda (workspace)
(let ((lsp--cur-workspace workspace))
(unless (lsp--workspace-buffers lsp--cur-workspace)
(funcall orig-fn))))
lsp--cur-workspace))))
(defadvice! +lsp-prompt-if-no-project-a (root) (defadvice! +lsp-prompt-if-no-project-a (root)
"Prompt for the project root only if no project was found. "Prompt for the project root only if no project was found.
Also refuses to recognize $HOME as a valid project root." Also refuses to recognize $HOME as a valid project root."