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

Generalize LSP optimizations to include eglot

Browse source
This commit is contained in:
Henrik Lissner 2020-08-11 21:10:35 -04:00
parent 50f1391e86
commit 6cf5d72ff6
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
3 changed files with 21 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

1
modules/tools/lsp/+eglot.el
View file

@ -5,6 +5,7 @@
(use-package! eglot
:commands eglot eglot-ensure
:hook (eglot-managed-mode . +lsp-init-optimizations-h)
:init
(setq eglot-sync-connect 1
eglot-connect-timeout 10

15
modules/tools/lsp/+lsp.el
View file

@ -104,25 +104,14 @@ should be a deliberate act (as is flipping this variable).")
(apply orig-fn args)))
(add-hook! 'lsp-mode-hook
(defun +lsp-init-optimizations-h ()
"Increase `read-process-output-max' and `gcmh-high-cons-threshold'."
;; `read-process-output-max' is only available on recent development
;; builds of Emacs 27 and above.
(unless (boundp 'read-process-output-max)
(setq-local read-process-output-max (* 1024 1024)))
;; REVIEW LSP causes a lot of allocations, with or without Emacs 27+'s
;; native JSON library, so we up the GC threshold to stave off
;; GC-induced slowdowns/freezes. Doom uses `gcmh' to enforce its GC
;; strategy, so we modify its variables rather than
;; `gc-cons-threshold' directly.
(setq-local gcmh-high-cons-threshold (* 2 (default-value 'gcmh-high-cons-threshold))))
(defun +lsp-display-guessed-project-root-h ()
"Log what LSP things is the root of the current project."
;; Makes it easier to detect root resolution issues.
(when-let (path (buffer-file-name (buffer-base-buffer)))
(if-let (root (lsp--calculate-root (lsp-session) path))
(lsp--info "Guessed project root is %s" (abbreviate-file-name root))
(lsp--info "Could not guess project root.")))))
(lsp--info "Could not guess project root."))))
#'+lsp-init-optimizations-h)
(add-hook! 'lsp-completion-mode-hook
(defun +lsp-init-company-backends-h ()

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

@ -8,6 +8,24 @@ This delay prevents premature server shutdown when a user still intends on
working on that project after closing the last buffer.")
;;
;;; Common
(defun +lsp-init-optimizations-h ()
(when (or (bound-and-true-p eglot--managed-mode)
(bound-and-true-p lsp-mode))
;; `read-process-output-max' is only available on recent development
;; builds of Emacs 27 and above.
(setq-local read-process-output-max (* 1024 1024))
;; REVIEW LSP causes a lot of allocations, with or without Emacs 27+'s
;; native JSON library, so we up the GC threshold to stave off
;; GC-induced slowdowns/freezes. Doom uses `gcmh' to enforce its GC
;; strategy, so we modify its variables rather than
;; `gc-cons-threshold' directly.
(setq-local gcmh-high-cons-threshold (* 2 (default-value 'gcmh-high-cons-threshold)))))
;;
;;; Implementations