awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

tools/lsp: noop lsp! if used more than once

Browse Source
This commit is contained in:
Henrik Lissner
2019-07-05 19:08:11 +02:00
parent d39500f143
commit eb42f95777
1 changed files with 13 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
modules/tools/lsp/autoload.el
View File

@ -11,15 +11,16 @@ been moved out to their respective modules, or these hooks:
+ `+lsp|init-company' (on `lsp-mode-hook')
+ `+lsp|init-ui-flycheck-or-flymake' (on `lsp-ui-mode-hook')"
(require 'lsp-mode)
(when lsp-auto-configure
(require 'lsp-clients))
(when (and (buffer-file-name)
(setq-local lsp--buffer-workspaces
(or (lsp--try-open-in-library-workspace)
(lsp--try-project-root-workspaces (equal arg '(4))
(and arg (not (equal arg 1)))))))
(lsp-mode 1)
(lsp--info
"Connected to %s."
(apply #'concat (mapcar (lambda (it) (format "[%s]" (lsp--workspace-print it)))
lsp--buffer-workspaces)))))
(unless lsp-mode
(when lsp-auto-configure
(require 'lsp-clients))
(when (and (buffer-file-name)
(setq-local lsp--buffer-workspaces
(or (lsp--try-open-in-library-workspace)
(lsp--try-project-root-workspaces (equal arg '(4))
(and arg (not (equal arg 1)))))))
(lsp-mode 1)
(lsp--info
"Connected to %s."
(apply #'concat (mapcar (lambda (it) (format "[%s]" (lsp--workspace-print it)))
lsp--buffer-workspaces))))))